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