Skip to main content

AccessTr.neT


Formlarda bilgi çekme

Formlarda bilgi çekme

#7
(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 .    
.rar Access Gönderilen Örnek.rar (Dosya Boyutu: 339,85 KB | İndirme Sayısı: 3)
Cevapla
#8
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...
.zip Access Gönderilen Örnek.zip (Dosya Boyutu: 220,88 KB | İndirme Sayısı: 8)
Please return your positive or negative ...
Cevapla
#9
Şİ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
Please return your positive or negative ...
Cevapla
#10
(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 .
Cevapla
#11
Konuyu kapatabilirsiniz teşekkür ederim .
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da