AccessTr.neTMicrosoft AccessAccess Cevaplanmış Soruları

ayni satirda tek rakam

30/10/2009, 10:44

mullteci

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.
30/10/2009, 11:00

ayhan2122

Aşağıdaki kodu uygula
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
30/10/2009, 11:36

accessman

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
-----------------------------------
30/10/2009, 13:24

mullteci

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