formumu açtığımda
If ÇEK_TARİHİ = Date Then
Beep
MsgBox "BUGUN ÖDEME var", vbOKOnly, ""
Else
MsgBox "BUGUN ÖDEME yok", vbOKOnly, ""
End If
böyle bir işlem yapmak istiyorum fakat
hata veriyor veya tarihi dikkate almıyor neyapmalıyım acaba
Merhabalar;
Örnek uygulamanızı eklerseniz daha çabuk yardım alabilirsiniz.
ya benim yapmak istediğim bugun tarihte ödemem varsa formu açtığımda bugun ödemen var desin ve o ödemeleri getirsin yoksa ödemen yok desin istiyorum her yolu denedim ama olmadı
Yukarıda yazdığınız kodların çalışması lazım. Belki bir yerde hata yapmış olabilirsiniz bu yüzden örnek uygulamanızı eklerseniz ve ne gibi hata aldığınızı belirtirseniz.
ESMA HANIM kodlarınızı e postama atarsanız yardımcı olabilirim
If ÇEK_TARİHİ = Date Then
Beep
MsgBox ("BUGUN ÖDEME var") ""
Else
MsgBox ("BUGUN ÖDEME yok" ""
End If
çalışır
Çek tarihlerinin tutulduğu tablonuzun adının tbl_Cekler olduğunu var sayarsak.
Formunuzun açıldığında olay yordamına
Private Sub Form_Load()
If Dlookup ("ÇEK_TARİHİ", "tbl_Cekler", "ÇEK_TARİHİ=Date()") Then
MsgBox ("Bu gün ödemeniz var"), vbExclamation, "Ödeme Uyarısı"
Else
MsgBox ("Bu gün ödemeniz yok"), vbExclamation, "Ödeme Uyarısı"
End If
End Sub
yazarsanız istediğiniz olacaktır.
Kolay gelsin.