Skip to main content

AccessTr.neT


Vba Kodu Hakkında Yardım

Vba Kodu Hakkında Yardım

#4
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
Cevapla

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

Yorum yapmak için üye olmanız gerekiyor

ya da

Bu Konudaki Yorumlar
Vba Kodu Hakkında Yardım - Yazar: 199911 - 22/10/2019, 22:38
Cvp: Vba Kodu Hakkında Yardım - Yazar: C*e*l*o*y*c*e - 22/10/2019, 22:47
Cvp: Vba Kodu Hakkında Yardım - Yazar: 199911 - 22/10/2019, 22:54
Cvp: Vba Kodu Hakkında Yardım - Yazar: berduş - 22/10/2019, 23:00
Cvp: Vba Kodu Hakkında Yardım - Yazar: 199911 - 22/10/2019, 23:18
Cvp: Vba Kodu Hakkında Yardım - Yazar: C*e*l*o*y*c*e - 22/10/2019, 23:19
Cvp: Vba Kodu Hakkında Yardım - Yazar: berduş - 22/10/2019, 23:23
Cvp: Vba Kodu Hakkında Yardım - Yazar: 199911 - 22/10/2019, 23:45
Task