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

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

Şİ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, 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 .

Konuyu kapatabilirsiniz teşekkür ederim .