Merhaba arkadaşlar. Ekteki uygulamada bilgiler girilip worde atılırken IBAN numarası TRXxxxxxxxxx olarak çıkması gerekirken TRTRxxxxx olarak çıkıyor. kodlarda da ikinci tr nin oluştuğu yeri bulamadım. Nereden alıyor olabilir ikinci TR yi.
Bunu sadece Hesaplar arası TL transfer oluştur formunda yapıyor. Form adı bankasube2. Diğer formlarda sorunsuz çalışıyor. Birkaçgün öncesine kadar bu formdada düzgün çalışıyordu ama nedense artık bu şekilde sorunla karşılaşıyorum.
Yardımcı olabilirseniz sevinirim.
[
attachment=31640]
merhaba
tam inceleyemedim ancak dediğinizden anladıgım kadarıyla para formatlarından kaynaklı olabilir
.TypeText Format([SayiRakkamla], "#,##0.00") burayı
.TypeText ([SayiRakkamla]) şekilde değiştirip deneyin
(05/03/2020, 09:39)C*e*l*o*y*c*e yazdı: merhaba
tam inceleyemedim ancak dediğinizden anladıgım kadarıyla para formatlarından kaynaklı olabilir
.TypeText Format([SayiRakkamla], "#,##0.00") burayı
.TypeText ([SayiRakkamla]) şekilde değiştirip deneyin
rakamla yazılanda sorun yok . iban numarasında hata var. Tutar doğru çıkıyor ama iban numarası yazarken TRTR şeklinde başlıyor. TR şeklinde başlaması lazım
Kod:
.GoTo what:=wdGoToBookmark, Name:="hesapno1"
.TypeText Format([hesapno1].Column(2), "TR@@ @@@@ @@@@ @@@@ @@@@ @@@@ @@")
hesap nonun kodu bu şekilde. neredeyse tüm formlarında bu şekilde kod. ama bitek bu formda bu sorun çıkıyor.
Worde aktarma kodundaki TRden kaynaklı olabilir.
.TypeText Format([hesapno1].Column(2), "TR@@ @@@@ @@@@ @@@@ @@@@ @@@@ @@")
şeklindeki kodu,
.TypeText Format([hesapno1].Column(2), "#### #### #### #### #### #### ##")
kodu ile değiştir.
(05/03/2020, 10:06)ozanakkaya yazdı: Worde aktarma kodundaki TRden kaynaklı olabilir.
.TypeText Format([hesapno1].Column(2), "TR@@ @@@@ @@@@ @@@@ @@@@ @@@@ @@")
şeklindeki kodu,
.TypeText Format([hesapno1].Column(2), "#### #### #### #### #### #### ##")
kodu ile değiştir.
Bu şekilde tamam oluyor ama
@@ @@@@ @@@@ @@@@ @@@@ @@@@ @@ formatını
@@ @ @@@ @@@@ @@@ @ @@ @@ @@@@ @@ haline getiriyor. bozuyor yani.
örnek iban:
olması gereken : TR59 0001 0000 6762 0316 9150 05
Olan: TR 59 0 001 0000 676 2 03 16 9150 05
Modül1'e
Public Function BosluklariSil(ByVal GVeri As String) As String
Do Until InStr(1, GVeri, " ") = 0
GVeri = Replace(GVeri, " ", "", 1)
Loop
BosluklariSil = Trim(GVeri)
End Function
kodu ekleyip modülü kaydet,
worde aktarma kodundaki ilgili yeri de
.TypeText Format(BosluklariSil([hesapno1].Column(2)), "@@@@ @@@@ @@@@ @@@@ @@@@ @@@@ @@")
kodu ile değiştirerek dene.