AccessTr.neT
Vba Kodu Hakkında Yardım - Baskı Önizleme

+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Vba Kodu Hakkında Yardım (/konu-vba-kodu-hakkinda-yardim.html)

Sayfalar: 1 2

Vba Kodu Hakkında Yardım - 199911 - 22/10/2019

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.

Cvp: Vba Kodu Hakkında Yardım - C*e*l*o*y*c*e - 22/10/2019

merhaba örneğiniz varsa ,eklermisiniz daha hızlı cevap alırsınız.

Cvp: Vba Kodu Hakkında Yardım - 199911 - 22/10/2019

örnek ekledim hocam

Cvp: Vba Kodu Hakkında Yardım - berduş - 22/10/2019

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


Cvp: Vba Kodu Hakkında Yardım - 199911 - 22/10/2019

Berduş hocamın yazdığı kod ile çözdüm , sağolun. Emeği geçen herkese teşekkür ederim.

Cvp: Vba Kodu Hakkında Yardım - C*e*l*o*y*c*e - 22/10/2019

ekteki örneği geliştirebilirsin
emek boşa gitmesin  Img-grin