artık bu da olmazsa benden pes

Private Sub son_tarih_Exit(Cancel As Integer)

If Len(ilk_tarih & "") > 0 And Len(son_tarih.Text & "") > 0 Then

    If CLng(ilk_tarih.Value) > CLng(son_tarih.Text) Then

        MsgBox " ilk tarih son tarihten büyük olamaz"

        DoCmd.CancelEvent

        Me.ActiveControl.SetFocus

        Exit Sub

    End If

End If

TmListeGncl

End Sub

Private Sub ilk_tarih_Exit(Cancel As Integer)

If (Len(ilk_tarih.Text & "") > 0 And Len(son_tarih & "") > 0) Then

    If CLng(ilk_tarih.Text) > CLng(son_tarih.Value) Then

        MsgBox " ilk tarih son tarihten büyük olamaz"

        DoCmd.CancelEvent

        Me.ActiveControl.SetFocus

    Exit Sub

    End If

End If

TmListeGncl

End Sub