Merhaba herkese iyi akşamlar.
"Tbl_kızılay" ım da "engelli_raporu" bölümünün güncelleştirme sonrasına yine "tbl_kızılay" ım da mecvut bedensel_zihinsel_engeli" bölümüne "ZİHİNSEL" yada "BEDENSEL" ibaresi girilirse "engelli_raporu" bölümüne
"YOK" girilmesi halinde mesaj ile "Kişi Engelli,Raporu Yok Olamaz" şeklinde form üzerinden veri girişi yapanı uyarmak istiyor ve
Vba kodu hakkında sizlerden yardım isitiyorum . Şimdiden çok teşekkür ederim.
merhaba örneğiniz varsa ,eklermisiniz daha hızlı cevap alırsınız.
veri girişlerinin form üzerinden yapıldığını varsayarak
txt öneki alanın bağlandığı metin kutusu
LblUyari: "Kişi Engelli,Raporu Yok Olamaz" uyarısının gösterileceği Etiket/Label
txtengelli_raporu çıkıldığında olayına
if (txtbedensel_zihinsel_engeli="ZİHİNSEL" or txtbedensel_zihinsel_engeli="BEDENSEL") and "engelli_raporu = "YOK" then
LblUyari.caption="Kişi Engelli,Raporu Yok Olamaz"
LblUyari.BackColor = vbYellow
else
LblUyari.caption=""
LblUyari.BackColor = vbButtonFace
end if
dilerim işinize yarar
iyi çalışmalar
Private Sub engelli_raporu_Change()
If (engel_durumu = "ZİHİNSEL" Or engel_durumu = "BEDENSEL") And engelli_raporu = "YOK" Then
MsgBox (" Kişi Engelli,Raporu Yok Olamaz ")
engelli_raporu.BackColor = vbYellow
Else
engelli_raporu.BackColor = vbButtonFace
End If
End Sub
aşağıdaki yöntem de
Eval() kullanılarak yapıldı eğer çok fazla durum varsa her biri için defalarca
OR kullanmak yerine
IN () kullanmak daha kolay
Private Sub engelli_raporu_Change()
'If Eval(y & " IN ( 5,6,7)") Then Me.Controls("Gun_" & x).BackColor = vbRed Else Me.Controls("Gun_" & x).BackColor = vbWhite
'''If (engel_durumu = "ZİHİNSEL" Or engel_durumu = "BEDENSEL") And engelli_raporu = "YOK" Then
If Eval("'" & CStr(Me.engel_durumu) & "' in ('ZİHİNSEL','BEDENSEL')") And engelli_raporu = "YOK" Then
MsgBox (" Kişi Engelli,Raporu Yok Olamaz ")
engelli_raporu.BackColor = vbYellow
Else
engelli_raporu.BackColor = vbButtonFace
End If
End Sub
Berduş hocamın yazdığı kod ile çözdüm , sağolun. Emeği geçen herkese teşekkür ederim.
