AccessTr.neT

merhaba arkadaşlar, excel'e export ediyorum ama excel'de  para birimi yerine soru işareti çıkıyor, araştırdım farklı bir kod buldum ama belli  bir sürücüye kaydettiğinden,  bilgisayarda sürücü ismi farklılığı olabileceği durumlar karşısında o da işime yaramıyor, nasıl bir yol izlemem gerekiyor, yardımlarınız için teşekkürler.  dosyamı ekleme gereği duymadım, sadece kodu paylaşmam yeterli mi?



'DoCmd.OutputTo acOutputQuery, "medikalSurec", "MicrosoftExcel(*.xls)", "", False, "", 0<<< bu, simge belirsizliğini oluşturan kod


GBelgeAdi5 = "D:\" & "MEDİKAL_MALZEME" & ".xls" <<<<< bu da sürücü değişince işime yaramayacak olan kod
DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel9, "medikalSurec", GBelgeAdi5, True

Access'den excele formatlı formatsız export etmek ile ilgili onlarca örnek var sitede onları incelediniz mi?

(09/05/2022, 09:13)tarkanaykın yazdı: [ -> ]<<<<< bu da sürücü değişince işime yaramayacak olan kod

genelde uygulamanın olduğu klasöre alt klasör ekleyerek yada doğrudan aynı klasöre ekleyerek sorun çözülebilir

"D:\" & "MEDİKAL_MALZEME" & ".xls" 

yerine

currentproject.Path & "\MEDİKAL_MALZEME" & ".xls"

yazabilirsiniz

(09/05/2022, 09:13)tarkanaykın yazdı: [ -> ]excel'de  para birimi yerine soru işareti çıkıyor,

bu sorunu engellemek için doğrudan tabloyu yollamak yerine, sorgu oluşturup sorguda ilgili alanı TL: FormatCurrency([Lira alanı]) şeklinde biçimlendirerek excele yollayabilirsiniz

yada GBelgeAdi5 = "D:\" & "MEDİKAL_MALZEME" & ".xls" buradaki D: yerine

yol = CurrentProject.Path



Set fso = CreateObject("Scripting.FileSystemObject")

    Set fld = fso.GetFolder(yol)

  GBelgeAdi5 =fld.Drive & "\" & "MEDİKAL_MALZEME" & ".xls"

yazılabilir böylece uygulamanın olduğu kök dizine kaydedilir

hepsi işimi görebilecek öneriler, çok teşekkür ederim , elinize sağlık, yol = CurrentProject.Path olayı kafama çok yattı, ve para birimi formatı için de teşekkürler, işim tamam.