If not isnull(ilktarih) and not isnull(Sontarih) and ilktarih>sonTarih then
Msgbox " ilk tarih son tarihten büyük olamaz"
TarihKutusununAdi.setfocus
Exit sub
End if
Kodlar kabaca yazıldı, denemedim, ufak tefek değişiklikler gerekebilir
If not isnull(ilktarih) and not isnull(Sontarih) and ilktarih>sonTarih then
Msgbox " ilk tarih son tarihten büyük olamaz"
TarihKutusununAdi.setfocus
Exit sub
End if