Tüm olasılıkları kullandım.İsterseniz deneyebilirsiniz.
Kod:
Private Sub btn_olyeri_Click()
Dim arr, x As Integer, y As Integer, say As Integer
Dim GVeri
Dim GSay As Integer
GVeri = InputBox("Ýlk ve Son KAyýt", "Kayit Gir", "")
arr = Array("0", "1", "2", "3", "4", "5", "6", "7", "8", "9", "-")
If GVeri = "" Then
MsgBox "inputboxa veri girilmedi yada iptal edildi", vbExclamation
Exit Sub
End If
say = 0
For y = 1 To Len(GVeri)
For x = LBound(arr) To UBound(arr)
If Mid(GVeri, y, 1) = arr(x) Then
say = say + 1
End If
Next
Next
If say = 0 Or Len(GVeri) <> say Then
hata:
MsgBox "Format Hata", vbCritical
Exit Sub
End If
GSay = InStr(1, GVeri, "-"): If GSay = 0 Then GoTo hata
GIlkKayit = Left(GVeri, GSay - 1): GSonKayit = Mid(GVeri, GSay + 1)
If GIlkKayit = "" Or GSonKayit = "" Then
MsgBox "ilk kayit numara yada son kayit numara bos olamaz ", vbCritical
Exit Sub
End If
If GIlkKayit > GSonKayit Then
MsgBox "ilk kayit numara son kayit numaradan büyük olamaz", vbCritical
Exit Sub
End If
'Buraya diger kodlar gelecek
End Sub