Skip to main content

AccessTr.neT

Kayıt Ol

 | Facebook ile Bağlan  | Twitter İle Bağlan | Google+ İle Bağlan

Vba Kodu Hakkında Yardım

199911
199911
Access Cevaplanmış Soruları
7
1634

Vba Kodu Hakkında Yardım

Çözüldü #1
199911
Üye
199911
Bul
Üye
Adı Soyadı: Ta.... Du....
Konum: Ankara
Ofis Versiyonu: -
Son Oturumu: 20/01/2025,14:15
Yorumları: 12
Konuları: 3
Kayıt Tarihi: 10/12/2015
Teşekkür Puanı: 0
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.
.rar örnek.rar (Dosya Boyutu: 18,29 KB | İndirme Sayısı: 3)
Son Düzenleme: 22/10/2019, 22:54, Düzenleyen: 199911.
Cevapla
#2
C*e*l*o*y*c*e
Uzman
C*e*l*o*y*c*e
Bul
Uzman
Adı Soyadı: Ce.... Ya....
Konum: Ankara
Ofis Versiyonu: Ofis 2010 32 Bit
Son Oturumu: Bugün,06:34
Yorumları: 3.594
Konuları: 78
Kayıt Tarihi: 29/10/2008
Teşekkür Puanı: 1.047
Mesleğiniz: Yazılım
merhaba örneğiniz varsa ,eklermisiniz daha hızlı cevap alırsınız.
Cevapla
#3
199911
Üye
199911
Bul
Üye
Adı Soyadı: Ta.... Du....
Konum: Ankara
Ofis Versiyonu: -
Son Oturumu: 20/01/2025,14:15
Yorumları: 12
Konuları: 3
Kayıt Tarihi: 10/12/2015
Teşekkür Puanı: 0
örnek ekledim hocam
Cevapla
#4
berduş
Berduş
berduş
Bul
Uzman
Adı Soyadı: ha....
Konum: -
Ofis Versiyonu: Ofis 2019 64 Bit
Son Oturumu: Bugün,00:10
Yorumları: 8.548
Konuları: 94
Kayıt Tarihi: 30/07/2014
Teşekkür Puanı: 1.051
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
#5
199911
Üye
199911
Bul
Üye
Adı Soyadı: Ta.... Du....
Konum: Ankara
Ofis Versiyonu: -
Son Oturumu: 20/01/2025,14:15
Yorumları: 12
Konuları: 3
Kayıt Tarihi: 10/12/2015
Teşekkür Puanı: 0
Berduş hocamın yazdığı kod ile çözdüm , sağolun. Emeği geçen herkese teşekkür ederim.
Cevapla
#6
C*e*l*o*y*c*e
Uzman
C*e*l*o*y*c*e
Bul
Uzman
Adı Soyadı: Ce.... Ya....
Konum: Ankara
Ofis Versiyonu: Ofis 2010 32 Bit
Son Oturumu: Bugün,06:34
Yorumları: 3.594
Konuları: 78
Kayıt Tarihi: 29/10/2008
Teşekkür Puanı: 1.047
Mesleğiniz: Yazılım
ekteki örneği geliştirebilirsin
emek boşa gitmesin  Img-grin
.rar Celosoft Yazılım_örnek.rar (Dosya Boyutu: 26,32 KB | İndirme Sayısı: 2)
Cevapla

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

Yorum yapmak için üye olmanız gerekiyor

ya da
Task