Banka Hesap Ve Kredi Kart Hareketleri Örnek Program (nasıl Olmuş?)

1 2 3
01/07/2022, 23:33

berduş

+ reportname satırında + yerine & kullanarak dener misiniz?
06/07/2022, 08:46

lost84

(01/07/2022, 23:12)muzaffer.sm yazdı: Şöyle bir hata çıkıyor.Excele kaydetme esnasında.


https://www.resimupload.org/r/bLVmp

Merhaba, bende de aynı hatayı verdi, büyük ihtimalle referanslar bölümünden Excel ile ilgili olan seçili olmadığından. Bende de seçi gitmişi geri getirdim şimdi hata vermiyor.

İyi günler.
15/07/2022, 22:36

muzaffer.sm

Aynı hata devam ediyor.
Office 16 sürüm.Referans ekli olduğu halde


https://www.resimupload.org/r/mNLv3
17/07/2022, 13:09

lost84

(15/07/2022, 22:36)muzaffer.sm yazdı: Aynı hata devam ediyor.
Office 16 sürüm.Referans ekli olduğu halde


https://www.resimupload.org/r/mNLv3

Merhaba,

vba kısmında hata aldığınız bölümde "HorizontalAlignment" yazan satırların başına "'" koyun yada satırları silin.
Daha önce bu satırlar nedeni ile hata almıştım, referanslardan Excel seçili olmadığında.

İyi günler.
17/07/2022, 15:30

muzaffer.sm

hata bu kod bloğunda çıkıyor.


DoCmd.OutputTo acOutputReport, "rpr_hesap_hareketleri", acFormatXLS, fileName + reportName, False, , , acExportQualityPrint
'DoCmd.OutputTo acOutputQuery, "", acFormatXLSX, fileName + reportName, False, "Pim Stok" ', , , acExportQualityPrint
'DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel12Xml, "srg_pim_uretilen_pimler_stok_xls", fileName + reportName, True, "Pim Stok"
'DoCmd.Close acQuery, "srg_pim_uretilen_pimler_stok_xls", acSaveNo
'DoCmd.Close acReport, "rpr_celik_stok", acSaveNo
Set xlApp = CreateObject("Excel.Application")
17/07/2022, 16:05

lost84

(17/07/2022, 15:30)muzaffer.sm yazdı: hata bu kod bloğunda çıkıyor.


DoCmd.OutputTo acOutputReport, "rpr_hesap_hareketleri", acFormatXLS, fileName + reportName, False, , , acExportQualityPrint
'DoCmd.OutputTo acOutputQuery, "", acFormatXLSX, fileName + reportName, False, "Pim Stok" ', , , acExportQualityPrint
'DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel12Xml, "srg_pim_uretilen_pimler_stok_xls", fileName + reportName, True, "Pim Stok"
'DoCmd.Close acQuery, "srg_pim_uretilen_pimler_stok_xls", acSaveNo
'DoCmd.Close acReport, "rpr_celik_stok", acSaveNo
Set xlApp = CreateObject("Excel.Application")

Ekteki dosyayı dener misiniz.

Bende sorunsuz çalışmakta.
1 2 3