+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Seçilen Verilerin Word'e Aktarılması (/konu-secilen-verilerin-word-e-aktarilmasi.html)
Cvp: Seçilen Verilerin Word'e Aktarılması - feraz - 17/02/2020
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.
Cvp: Seçilen Verilerin Word'e Aktarılması - berduş - 17/02/2020
GVeri = InputBox("İlk ve Son KAyıt", "Kayit Gir", "") if isnull(GVeri) or instr(GVeri,"-")=0 then
Msgbox " duxgun formatta veri girilmedi yada iptal edildi"
Exit sub
End if Cvp: Seçilen Verilerin Word'e Aktarılması - feraz - 17/02/2020
(17/02/2020, 22:21)berduş yazdı:Dalgınlıkla iki tane - eklenirseSatırının altına aşağıdaki kodu ekleyip dener misinizGVeri = InputBox("İlk ve Son KAyıt", "Kayit Gir", "")
if isnull(GVeri) or instr(GVeri,"-")=0 then
Msgbox " duxgun formatta veri girilmedi yada iptal edildi"
Exit sub
End if
O zamanda or 0 yerine büyüktür 1 eklenmeli galiba değil mi.
Cvp: Seçilen Verilerin Word'e Aktarılması - berduş - 17/02/2020
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
Cvp: Seçilen Verilerin Word'e Aktarılması - feraz - 17/02/2020
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.
Cvp: Seçilen Verilerin Word'e Aktarılması - berduş - 17/02/2020
(17/02/2020, 22:31)feraz yazdı: Benim pc yanımda olsaydıaynı dertten muzdaripiz galiba ama ben çözebileceğimden pek emin degilim