AccessTr.neT
access den worde sayısal alan - Baskı Önizleme

+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: access den worde sayısal alan (/konu-access-den-worde-sayisal-alan.html)



access den worde sayısal alan - tgpek1 - 07/01/2009

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


Cvp: access den worde sayısal alan - ozanakkaya - 07/01/2009

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.


Cvp: access den worde sayısal alan - tgpek1 - 07/01/2009

Örnek ekte...Teşekkür ederim..


Cvp: access den worde sayısal alan - tdsharun - 27/04/2009

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


Cvp: access den worde sayısal alan - tdsharun - 27/04/2009

Ş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