Tabii birde şöyle şart lazım.
- bundan öncesi -bundan sonrasından büyükse hata mesajıda verdirilmeli.Zaten bu en kolayı
Bence dediğim array olayını siz biraz uğraşın berduş hocam.bende telefondan yazmaya çalışayım bakalım olacakmı.
Alttaki gibi mantık düşündüm abey.
Kodları yanlış yazmış olabilirim bilemiyorum.Neyse benden bu kadar.Duruma göre bakarız.
Dim arr ,x as integer
Arr=Array(1,2,3,4,5,6,7,8,9,"-")
For x = Lbound(arr) to ubound(arr)
If Instr(1,Gveri,arr(x))=0 then
Msgbox "Format hatasi"
Exit sub
End if
Next
inputa - yazmasanız kod çalışmaz 2-3 yazınca 2 ve 3 nolu satırları işleme alır.
Inputbox cancel, tamam kontrolünü aşağıdaki örnekten anlayabilirsin.
Dim GVeri As String
GVeri = InputBox("İlk ve Son KAyıt", "Kayit Gir", "")
If StrPtr(Gveri) = 0 Then
MsgBox ("İptal")
ElseIf result = vbNullString Then
MsgBox ("İnput boş")
Else
' GIlkKayit =...... ve sonrası buraya.
End If
Önceden yazdığımız textbox olsaydı kod zaten ona göre ayarlanacaktı
(17/02/2020, 23:06)ozanakkaya yazdı: [ -> ]inputa - yazmasanız kod çalışmaz 2-3 yazınca 2 ve 3 nolu satırları işleme alır.
Inputbox cancel, tamam kontrolünü aşağıdaki örnekten anlayabilirsin.
Dim GVeri As String
GVeri = InputBox("İlk ve Son KAyıt", "Kayit Gir", "")
If StrPtr(Gveri) = 0 Then
MsgBox ("İptal")
ElseIf result = vbNullString Then
MsgBox ("İnput boş")
Else
' GIlkKayit =...... ve sonrası buraya.
End If
Kod çalışıyor ama cancel a bastığımızda veya format dışı bir şey yazip ok deyince iptal sonrası şablon olarak kullandığım boş word dosyası açılıyor
İptal olayında ve diğerinde exit sub unutulmuş.
Ondan kod devam ediyor.