Cancel olayı hatası için yanılmıyorsam
If Gveri= "" then exit sub
Gibi olabilir yanlış yazmadıysam kodu.
Yada
If Gveri = "" then
Msgbox "iptal edildi"
Exit sub
End if
Dediğim gibi kodu kafadan yazdım mantıken böyle olacak
="" yerine = false
De olabilir unuttum kodu chancel için.
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
(17/02/2020, 22:21)berduş yazdı: 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
Dalgınlıkla iki tane - eklenirse
O zamanda or 0 yerine büyüktür 1 eklenmeli galiba değil mi.
Kesin çözüm heralde 2 input mesajı çıkarmak yada her karakteri tek tek kontrol edip içeriğinde sadece rakam ve işaret olanları ayıklayıp 2 ye bölmek
Bende onu düşünüyordum.rakam olayı keypress ile halledilir.Diğeride biçimlendirme ile olur bence.Siz yaparsınuz abey.Benim pc yanımda olsaydı tümünü hallederdim kanaatiniz olsun.
(17/02/2020, 22:31)feraz yazdı: Benim pc yanımda olsaydı
aynı dertten muzdaripiz galiba ama ben çözebileceğimden pek emin degilim