AccessTr.neT

Arkadaşlar merhaba.

Ekte gönderdiğim örnek dosyada "görevi" açılır kutusu güncellendikten sonra kişilerin görev yaptıkları yere göre görev isimli kutulara 1 ekleniyor. Fakat ikinci kez başka bir görev seçersem aynı satırda iki yada üç adet 1 sayısı oluyor. Uğraştım ama çözemedim. Yardımcı olursanız sevinirim. Yardımda bulunan arkadaşlara şimdiden çok teşekkür ederim.

Aşağıdaki kodu uygula Img-grin

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

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
-----------------------------------

Çok teşekkür ediyorum. Kendinize iyi bakın. Halay

mullteci

ayhan2122

accessman

mullteci