+- 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
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ı.
Cvp: Seçilen Verilerin Word'e Aktarılması - feraz - 17/02/2020
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
Cvp: Seçilen Verilerin Word'e Aktarılması - ozanakkaya - 17/02/2020
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 IfCvp: Seçilen Verilerin Word'e Aktarılması - feraz - 17/02/2020
Önceden yazdığımız textbox olsaydı kod zaten ona göre ayarlanacaktı
Cvp: Seçilen Verilerin Word'e Aktarılması - prestij06 - 17/02/2020
(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
Cvp: Seçilen Verilerin Word'e Aktarılması - feraz - 18/02/2020
İptal olayında ve diğerinde exit sub unutulmuş.
Ondan kod devam ediyor.