+- 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ığı: Formlarda bilgi çekme (/konu-formlarda-bilgi-cekme.html)
Sayfalar:
1
2
Cvp: Formlarda bilgi çekme - aacanakova - 18/02/2016
(18/02/2016, 13:53)POWER yazdı: 1-Sadece 2001 nolu sandık kalmış 2002 hatta 2003 te olsunki sandık seçtiğimizde çalışıyormu test edelim.
2-İllere göre ayırım Nufusİl mi yoksa Doğumyeri mi belirtiniz...
1.Hocam tekrar ekledim örneği sandık numaraları ile beraber .
2.İllere göre ayrım Nüfusİl e göre yapıldı .
Hocam bir şey daha soracağım müsaadenizle .
Bu seçmen listesi değiştiği zaman yine kullanmak istiyorum . Aynı başlıklar kullanılırsa liste değiştirilip kullanılabilir mi .
Cvp: Formlarda bilgi çekme - POWER - 18/02/2016
Kullanılır...
İncelermisiniz...
Lütfen olumlu veya olumsuz geri dönüş yapınız...
Not : Görsel olarak daha zanginleştirilebilir ama zaman meselesi...
Cvp: Formlarda bilgi çekme - POWER - 18/02/2016
Şİmdi farkettim, Kodlardaki alanı aşağıdaki gibi yapınız...
If rs!Cinsiyet = "K" Then
Me.txtB1 = Me.txtB1 + 1
If rs!Uye = "Üye" Then Me.txtB2 = Me.txtB2 + 1
If IsNull(rs!Uye) Or rs!Uye <> "Üye" Then Me.txtB3 = Me.txtB3 + 1
If rs!Engel = "ENGELLİ" Then Me.txtB4 = Me.txtB4 + 1
If IsNull(rs!Engel) Or rs!Engel <> "ENGELLİ" Then Me.txtB5 = Me.txtB5 + 1
End If
If rs!Cinsiyet = "E" Then
Me.txtE1 = Me.txtE1 + 1
If rs!Uye = "Üye" Then Me.txtE2 = Me.txtE2 + 1
If IsNull(rs!Uye) Or rs!Uye <> "Üye" Then Me.txtE3 = Me.txtE3 + 1
If rs!Engel = "ENGELLİ" Then Me.txtE4 = Me.txtE4 + 1
If IsNull(rs!Engel) Or rs!Engel <> "ENGELLİ" Then Me.txtE5 = Me.txtE5 + 1
End If
Cvp: Formlarda bilgi çekme - aacanakova - 18/02/2016
(18/02/2016, 15:53)POWER yazdı: Şİmdi farkettim, Kodlardaki alanı aşağıdaki gibi yapınız...
If rs!Cinsiyet = "K" Then
Me.txtB1 = Me.txtB1 + 1
If rs!Uye = "Üye" Then Me.txtB2 = Me.txtB2 + 1
If IsNull(rs!Uye) Or rs!Uye <> "Üye" Then Me.txtB3 = Me.txtB3 + 1
If rs!Engel = "ENGELLİ" Then Me.txtB4 = Me.txtB4 + 1
If IsNull(rs!Engel) Or rs!Engel <> "ENGELLİ" Then Me.txtB5 = Me.txtB5 + 1
End If
If rs!Cinsiyet = "E" Then
Me.txtE1 = Me.txtE1 + 1
If rs!Uye = "Üye" Then Me.txtE2 = Me.txtE2 + 1
If IsNull(rs!Uye) Or rs!Uye <> "Üye" Then Me.txtE3 = Me.txtE3 + 1
If rs!Engel = "ENGELLİ" Then Me.txtE4 = Me.txtE4 + 1
If IsNull(rs!Engel) Or rs!Engel <> "ENGELLİ" Then Me.txtE5 = Me.txtE5 + 1
End If
(18/02/2016, 16:34)aacanakova yazdı:(18/02/2016, 15:53)POWER yazdı: Şİmdi farkettim, Kodlardaki alanı aşağıdaki gibi yapınız...
If rs!Cinsiyet = "K" Then
Me.txtB1 = Me.txtB1 + 1
If rs!Uye = "Üye" Then Me.txtB2 = Me.txtB2 + 1
If IsNull(rs!Uye) Or rs!Uye <> "Üye" Then Me.txtB3 = Me.txtB3 + 1
If rs!Engel = "ENGELLİ" Then Me.txtB4 = Me.txtB4 + 1
If IsNull(rs!Engel) Or rs!Engel <> "ENGELLİ" Then Me.txtB5 = Me.txtB5 + 1
End If
If rs!Cinsiyet = "E" Then
Me.txtE1 = Me.txtE1 + 1
If rs!Uye = "Üye" Then Me.txtE2 = Me.txtE2 + 1
If IsNull(rs!Uye) Or rs!Uye <> "Üye" Then Me.txtE3 = Me.txtE3 + 1
If rs!Engel = "ENGELLİ" Then Me.txtE4 = Me.txtE4 + 1
If IsNull(rs!Engel) Or rs!Engel <> "ENGELLİ" Then Me.txtE5 = Me.txtE5 + 1
End If
Hocam teşekkür ederim ellerinize sağlık . Deneme fırsatı bulamadım ama 1- saat içerinde olumlu olumsuz dönüş yapacağım mutlaka . İlginiz için teşekkür ederim .
Cvp: Formlarda bilgi çekme - aacanakova - 18/02/2016
Konuyu kapatabilirsiniz teşekkür ederim .