Kıda alttaki kırmızı olanları eklemediğiniz için donuyormuş.
Transform olayını açıklarsanız seviniriz.


Application.Echo False
If IsNull(Metin1.Value) Then
MsgBox "Başlangıç Tarihi Giriniz."
Application.Echo True
Metin1.SetFocus
Exit Sub
End If
If IsNull(Metin3.Value) Then
MsgBox "Başlangıç Tarihi Giriniz."
Application.Echo True
Metin3.SetFocus
Exit Sub
End If
If CDbl(Metin1.Value) > CDbl(Metin3.Value) Then
MsgBox "Başlangıç Tarihi Bitiş Tarihinden büyük olamaz"
Application.Echo True
Metin1.Value = ""
Metin3.Value = ""
Metin1.SetFocus
Exit Sub
End If