Metİn Kutusundakİ Tarİh Formatindakİ DeĞer Gİrİlmeyİnce Mesaj Kutusuyla Uyari Vermesİ

[sweeter46]

Metİn Kutusundakİ Tarİh Formatindakİ DeĞer Gİrİlmeyİnce Mesaj Kutusuyla Uyari Vermesİnİ İstİyorum

 

[modalı]

Sayın sweeter46,

If Not IsDate(Me.txtTarih) Then
    MsgBox "Geçerli bir tarih giriniz"
    Me.txtTarih.SetFocus
End If

İşinizi görür sanırım

 

[beytullah10]

aynı kodu formumda bulunan "ikameti" kısmı için kullanmak istiyorum

If Not IsDate(Me.txtTarih) Then
MsgBox "Geçerli bir tarih giriniz"
Me.txtTarih.SetFocus
End If
bu kodu bu iş için nasıl kullanırım...yardımcı olur musunuz...

 

[modalı]

Sayın beytullah10,

txtTarih yerine sizin formunuzdaki alan adını kullanarak istediğiniz yerde kullanabilirsiniz.

Ancak ikameti metin olacağından

If Not IsDate(Me.txtTarih) Then
satırını
If Me.txtTarih="" Then

olarak kullanın.

İyi çalışmalar

 

[beytullah10]

İkameti etiketinin veri kısmındaki kod alanına aynen şu kodları ekledim
Private Sub İkameti_BeforeUpdate(Cancel As Integer)
If Me.txtİkameti = "İkameti" Then
MsgBox "İkamet ettiğiniz yeri yazınız"
Me.txtİkameti.SetFocus
End If
End Sub
yalnız hala istediğim sonucu alamadım.İkameti kısmı doldurulmadan kayıt yapılınca uyarı verilmesini istiyorum...
yardımcı olur musunuz?