Kod:
Private Sub görevi_AfterUpdate()
If IsNull(Me.görevi) Then Me.giriş = "0": Me.üs_kat = "0": Me.bahçe = "0"
If Me.görevi = "giriş" Then Me.giriş = "1": Me.üs_kat = "0": Me.bahçe = "0"
If Me.görevi = "üs kat" Then Me.giriş = "0": Me.üs_kat = "1": Me.bahçe = "0"
If Me.görevi = "bahçe" Then Me.giriş = "0": Me.üs_kat = "0": Me.bahçe = "1"
End Sub