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.

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

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.