son_tarih çıkış olayı
Private Sub son_tarih_Exit(Cancel As Integer)
If (Len(ilk_tarih & "") > 0 And Len(son_tarih.Text & "") > 0) And ilk_tarih > son_tarih Then
MsgBox " ilk tarih son tarihten büyük olamaz"
DoCmd.CancelEvent
Me.ActiveControl.SetFocus
Exit Sub
End If
TmListeGncl
End Sub
ilkTarih çıkış olayı
Private Sub ilk_tarih_Exit(Cancel As Integer)
If (Len(ilk_tarih.Text & "") > 0 And Len(son_tarih & "") > 0) And ilk_tarih > son_tarih Then
MsgBox " ilk tarih son tarihten büyük olamaz"
DoCmd.CancelEvent
Me.ActiveControl.SetFocus
Exit Sub
End If
TmListeGncl
End Sub