AccessTr.neT
ayni satirda tek rakam - Baskı Önizleme

+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: ayni satirda tek rakam (/konu-ayni-satirda-tek-rakam.html)



ayni satirda tek rakam - mullteci - 30/10/2009

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.


Cvp: ayni satirda tek rakam - ayhan2122 - 30/10/2009

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




Cvp: ayni satirda tek rakam - accessman - 30/10/2009

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


Cvp: ayni satirda tek rakam - mullteci - 30/10/2009

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