subform deger ve msgbox

orhantanriverdi

Access Cevaplanmış Soruları

1450

24/01/2017, 05:18 #5

orhantanriverdi

Bul

Altın Üye

Adı Soyadı: OR.... TA....

Yaşı: 44

Konum: Ankara

Ofis Versiyonu: Ofis 2010 64 Bit

Son Oturumu: 16/04/2024,09:15

Yorumları: 142

Konuları: 37

Kayıt Tarihi: 23/11/2010

Teşekkür Puanı: 14

Mesleğiniz: TEKNIK OFIS

(23/01/2017, 20:02)Hocam çok t atoz112 yazdı: Hocam cok tesekkur ederim. Elinize emeğinize sağlık.

Saygılar

sayın orhantanriverdi,

bahsettiğiniz talebinize yönelik olarak;

mevcuttaki kodları,
Private Sub SUB_VT_DATE_AfterUpdate()

If Me.SUB_VT_DATE < Me.VT_DATE Then

MsgBox ("KAYNAK TARIHINDEN KUCUK TARIH GIREMEZSINIZ"), vbCritical, "KUCUK DEGER UYARISI"

Me.Undo

Me.SUB_VT_DATE = ""

Exit Sub



ElseIf IsNull(Me.VT_DATE) Then

MsgBox ("KAYNAK TARIHI OLMADAN GIRIS YAPAMAZSINIZ"), vbCritical, "SUB_VT_DATE DEGERI BOS UYARISI"

Exit Sub

End If

End Sub
yukarıda yazılı şekilde kullanarak deneyiniz.

bilginize...iyi çalışmalar,saygılar.