Skip to main content

AccessTr.neT


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

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

Çözüldü #1
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.

.zip Yeni klasör.zip (Dosya Boyutu: 2,28 MB | İndirme Sayısı: 3)
derzulya, proud to be a member of AccessTr.neT since 09-03-2009.
Cevapla
#2
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
Cevapla
#3
(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.
derzulya, proud to be a member of AccessTr.neT since 09-03-2009.
Son Düzenleme: 05/03/2020, 10:01, Düzenleyen: derzulya.
Cevapla
#4
Worde aktarma kodundaki TRden kaynaklı olabilir.

.TypeText Format([hesapno1].Column(2), "TR@@ @@@@ @@@@ @@@@ @@@@ @@@@ @@")
şeklindeki kodu,


.TypeText Format([hesapno1].Column(2), "#### #### #### #### #### #### ##")
kodu ile değiştir.
Cevapla
#5
(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
derzulya, proud to be a member of AccessTr.neT since 09-03-2009.
Cevapla
#6
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.
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da