Worde Atarken Yinelenen Değer İki Kere Tr Yazıyor?

1 2
05/03/2020, 09:21

derzulya

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]
05/03/2020, 09:39

C*e*l*o*y*c*e

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, 10:00

derzulya

(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.
05/03/2020, 10:06

ozanakkaya

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:23

derzulya

(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
05/03/2020, 10:40

ozanakkaya

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.
1 2