1. Tarih alanı için bunu deneyiniz
Kod:
Private Sub Tarih1_AfterUpdate()
If Me.Tarih1.Value < #1/1/2000# Then
MsgBox ("01.01.2000 den daha küçük bir tarih giremezsiniz")
Me.Tarih1.Value = ""
Else
End If
End Sub
2. Tarih alanı için bunu deneyiniz
Kod:
Private Sub Tarih2_AfterUpdate()
If Me.Tarih2.Value > #12/31/2029# Then
MsgBox ("31.12.2029 dan daha büyük bir tarih giremezsiniz")
Me.Tarih2.Value = ""
Else
End If
End Sub
Tek Bir Tarih alanından ikisinide denetlemek içinse bunu
Kod:
Private Sub Tarih_AfterUpdate()
If Me.Tarih.Value < #1/1/2000# Then
MsgBox ("01.01.2000 den daha küçük bir tarih giremezsiniz")
Me.Tarih.Value = ""
Else
If Me.Tarih.Value > #12/31/2029# Then
MsgBox ("31.12.2029 dan daha büyük bir tarih giremezsiniz")
Me.Tarih.Value = ""
Else
End If
End If
End Sub
Kaplumbağa ya dikkat et...
Sadece başını çıkartıp risk aldığında ilerleyebiliyor...
Cevapla
Son Düzenleme: 17/04/2009, 21:19, Düzenleyen: Puletin.
#1
