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