AccessTr.neT

Tam Versiyon: access den worde sayısal alan
Şu anda arşiv modunu görüntülemektesiniz. Tam versiyonu görüntülemek için buraya tıklayınız.
.Goto what:=wdGoToBookmark, Name:="para"
.TypeText [para]

.Goto what:=wdGoToBookmark, Name:="tarih"
.TypeText [tarih]

Accesde yazılı olan bu kodda, tarih alanı worde gg.aa.yyyy olarak gidiyor,
ancak para alanı virgülsüz düz olarak gidiyor..Koda eklemem gereken nedir ?
Yardımlarınızı bekliyorum..Teşekkür ederim.
tablodaki para alanının veri türünü "Para Birimi" olarak değiştirip dene, eğer zaten "Para Birimi" ise örneğini ekle.
Örnek ekte...Teşekkür ederim..
Eski sorulara bakarken dikkatimi çekti. Gözden kaçmış, kusura bakmayın. Bunun için yapılması gereken sadece para birimi olan alana Format eklemek:

Kod:
If banod <> " " Then
     .Goto what:=wdGoToBookmark, Name:="banod"
     .TypeText (Format(Nz([banod], 0), "#,##0.00 TL"))
   End If

[banod] alanınız para birimi olduğu için bu alana format eklemek yeterli.

Gecikmeli bir cevap oldu, kusura bakmayın. Keşke birkaç gün sonra soruyu tekrar hatırlatmak için bir mesaj yazsaydınız...

İyi günler...
Şimdi denedim de, aslında şöyle de olabiliyor:

Kod:
If banod <> " " Then
     .Goto what:=wdGoToBookmark, Name:="banod"
     .TypeText (FormatCurrency(Nz([banod], 0)))
   End If

Tek farkı Formatı FormatCurrency ile girdiğimiz için doğrudan Para Birimi olarak aktarıyor. Böylece alanda belirtilen para birimini doğrudan aktarıyor. Bu diğerine göre daha iyi oldu... Img-grin