AccessTr.neT

Tam Versiyon: subform deger ve msgbox
Şu anda arşiv modunu görüntülemektesiniz. Tam versiyonu görüntülemek için buraya tıklayınız.
Herkeze merhabalar, Hayirli isler
 
Simdi asagida VT yazan subformu ornek olarak gostyeriyorum.
Simdi orda VT_DATE diye bir kolon var, birde en sagda SUB_VT_DATE kolonu var, benim istedigim soyle ozetleyim:
 
Simdi VT_DATE 02.01.2017 TARIHI yazili iken ben gider SUB_VT_DATE kismina 01.01.2017 tarihini yazar isem bana hata mesaji verecek. (SUB_VT_DATE tarihi VT_DATE tarihinden kucuk olamaz diye), yada bos ise VT_DATE tarihi bos iken SUB_VT_DATE tarihine giris yapamazsiniz diye.
 
VT-RT-PT-UT-MPI subformalarina kendim uygularim sonra. Sizler eger mumkun ise bir ornek icin yardimci olabilirseniz digerleri icin kendim uygulayabilirim, ACCESSTR nette boyle bir ornek bulamadim. Simdiden tesekkurler

[Resim: do.php?imgf=148516189318811.jpg]
sayın orhantanriverdi,

bahsettiğiniz talebinize yönelik olarak;

eğer alt formdaki SUB_VT_DATE denetimine veri girişlerini GİRİŞ MASKESİ eşliğinde değer giriyorsanız ÇIKILDIĞINDA olay yordamı içerisine,

eğer alt formdaki SUB_VT_DATE denetimine veri girişlerini BİÇİM satırı KISA TARİH olacak şekilde ve TAKVİM üzerinden giriyorsanız DEĞİŞTİĞİNDE olay yordamı içerisine

If Me.SUB_VT_DATE < Me.VT_DATE Then
MsgBox ("VT_DATE tarihinden KÜÇÜK değer giremezsiniz"), vbCritical, "KÜÇÜK DEĞER UYARISI"
Exit Sub
ElseIf IsNull(Me.SUB_VT_DATE) Then
MsgBox ("VT_DATE tarihi BOŞ.lütfen tarih giriniz"), vbCritical, "VT_DATE DEĞERİ BOŞ UYARISI"
Exit Sub
ElseIf IsNull(Me.VT_DATE) Then
MsgBox ("SUB_VT_DATE tarihi BOŞ.lütfen tarih giriniz"), vbCritical, "SUB_VT_DATE DEĞERİ BOŞ UYARISI"
Exit Sub
End If

yukarıda yazılı kodları yazmak sureti ile deneyiniz.

tahmini olarak yazılan kodlar akabinde olumsuz durumlarda,katılımcılar tarafından daha net paylaşımlar elde edebilmeniz için,
Site Kuralları gereği lütfen örnek uygulamanızı;içeriğinde farazi gerçek dışı bilgiler ve 5-10 kayıt barındıracak şekilde eklemeniz de yerinde olacaktır.

bilginize...iyi çalışmalar,saygılar.
Hocam Tesekkur ederim elinize saglik, Digerleri icinde uyguladim sorunsuz calisiyor.

Sadece bir problem, Hatali tarih giriyorum ve hata cikiyor, Hataya tamam dedigimde yinede gidip hatali tarihi giriyor.

Giris yanlis ise, Mesaji aldiktan sonra tarihi hucreye eklemek yerine hucreyi bos yapabilirmi acaba. isnull gibi birsey ile


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"
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
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.
(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.