kodu şöyle değiştirin
------------------------------------
Private Sub görevi_AfterUpdate()
If Me.görevi = "giriş" Then
Me.giriş = "1"
Me.üs_kat = "0"
Me.bahçe = "0"
End If
If Me.görevi = "üs kat" Then
Me.giriş = "0"
Me.üs_kat = "1"
Me.bahçe = "0"
End If
If Me.görevi = "bahçe" Then
Me.giriş = "0"
Me.üs_kat = "0"
Me.bahçe = "1"
End If
End Sub
-----------------------------------
@benbendedeilem