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
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