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 yarariyi ç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 kolayPrivate 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