GVeri = InputBox("İlk ve Son KAyıt", "Kayit Gir", "")
Satırının altına aşağıdaki kodu ekleyip dener misiniz if isnull(GVeri) or instr(GVeri,"-")=0 then
Msgbox " duxgun formatta veri girilmedi yada iptal edildi"
Exit sub
End if
GVeri = InputBox("İlk ve Son KAyıt", "Kayit Gir", "")
Satırının altına aşağıdaki kodu ekleyip dener misiniz if isnull(GVeri) or instr(GVeri,"-")=0 then
Msgbox " duxgun formatta veri girilmedi yada iptal edildi"
Exit sub
End if