AccessTr.neT - Raporda doğru fakat pdf yapınca hatalı değerler

Sayfalar: 1 2

Arkadaşlar;

https://accesstr.net/konu-raporda-yuruyen-bakiye.html

Bu konudaki yürüyen bakiyeyi programa uyguladım. Rapor alınca sonuç doğru gösteriyor fakat raporu yazıdırınca veya pdf yapınca yanlış değerler veriyor. Acayip bir durum.

Dosyaya mdb de ekledim.

sayın kadirdursun,

bahsettiğiniz talebinize yönelik olarak;

Komut97 adlı butonun TIKLANDIĞINDA olay yordamı içerisinde yer alan

Kod:
DoCmd.RunMacro "WORDVER"

kod satırını iptal edip yerine

Kod:
DoCmd.OutputTo acOutputReport, "MUTABAKAT", acFormatPDF, CurrentProject.Path & "\" & "MUTABAKAT.pdf", True

kod satırını kullanarak deneyiniz.sonucu deneme imkanım olmadığı gerekçesi ile,siz bildirimde bulunabilirsiniz.

bilginize...iyi çalışmalar,saygılar.

Sayın atoz112;

Kodu yazınca komut97 doğru sonuç verdi fakat asıl önemli olan Excel yazan butondan rapor alıp yazdırınca veya pdf yapınca yürüyen bakiyede hata veriyor.

Acaba rapodaki aşağıdaki kodda mı bir şey var?

Kod:
Private Sub Ayrıntı_Print(Cancel As Integer, PrintCount As Integer)

    GToplam = GToplam + (Nz([BORC], 0) - Nz(Me.ODEME, 0))

    Me.Metin68 = Nz([Metin67], 0) + GToplam

End Sub

sayın kadirdursun,

aşağıdaki açıklamaların yapılması uygun görülmüştür.

1)

öncelikle,

DoCmd.TransferSpreadsheet komutu;
eğer bir TABLO mevcutsa bunun üzerinden işlemin yapılması ile kullanılmaktadır.fakat uygulamanızda "mutabakat" adlı tablonuz mevcut değil,aksine sorgu olarak geçerlidir.dolayısı ile,bu işlem hata verecektir.

bu nedenle de,DoCmd.OutputTo acOutputQuery komutunu kullanmanız daha yerinde olacaktır.

2)

istediğiniz sonucu elde etmek için yapmanızı gerekenler şunlardır:

mutabakat adlı sorgunuzun Sql sorgu içeriğini

Kod:
SELECT MUSTERI_KAYDI.GRUPKODU, MUSTERI_HAREKET.TARIH, MUSTERI_KAYDI.UNVAN, MUSTERI_HAREKET.MakbuzFatura, MUSTERI_HAREKET.BELGENO, MUSTERI_HAREKET.BORC, MUSTERI_HAREKET.ODEME, (select sum(([BORC]-[ODEME])) from [MUSTERI_HAREKET] where [TARIH]<=[TARIH]) AS BAKIYE, BAK([UNVAN],[BORC],[ODEME]) AS Bakiye

FROM MUSTERI_KAYDI INNER JOIN MUSTERI_HAREKET ON MUSTERI_KAYDI.[No] = MUSTERI_HAREKET.MUSTERI

WHERE (((MUSTERI_KAYDI.GRUPKODU)=[Forms]![MUSTERI_KAYDI]![BOT]) AND ((MUSTERI_HAREKET.TARIH) Between [Forms]![MUSTERI_KAYDI]![ILK] And [Forms]![MUSTERI_KAYDI]![SON]));

olarak değiştiriniz.çünkü;ALACAK adlı sütun değerine yönelik olarak eski hali ile uyarı vermektedir,sorguya dahil edilmediği için.ardından,

Buton3 adlı Excel uygulamasına dönüştürmek için kullandığınız butonun içeriğini

Kod:
On Error GoTo Err_aktar

Dim Klasor As String

'Klasor = CurrentProject.Path & "\detay.xlsx"

Klasor = CurrentProject.Path & "\" & "detay" & ".xls"

If MsgBox("Verileri Excele aktarmak istiyor musunuz? Bu işlem veri yoğunluğuna göre bir kaç dakika sürebilir.", 36, "detay.xls 'ye aktarılacak") = 6 Then

'DoCmd.TransferSpreadsheet acExport, 10, "mutabakat", Klasor, True, "detay"

DoCmd.OutputTo acOutputQuery, "mutabakat", acFormatXLS, Klasor, True

MsgBox "Aktarma işlemi tamamlandı.", 10, "VERİ AKTARIMI"

Exit_aktar:

Exit Sub

Err_aktar:

MsgBox Error$

Resume Exit_aktar

End If

yukarıdaki kodlar ile değiştirerek kullanmayı deneyiniz.bilginize...iyi çalışmalar,saygılar.

Mutabakat sorgusunda yürüyen bakiyeyi yapamadım. Bakiye kısmı boş.

Arkadaşlar;

Müşteri kaydı formundaki raporlar sekmesinde bulunan RAPORLA butonuna tıklayınca açılan raporu yazdırınca veya pdf yapınca yürüyen bakiye kısmındaki değerlerin değişme sorunu devam ediyor.

Rapordaki aşağdıa bulunan kodda mı sorun var acaba?

Kod:
Private Sub Ayrıntı_Print(Cancel As Integer, PrintCount As Integer)

    GToplam = GToplam + (Nz([BORC], 0) - Nz(Me.ODEME, 0))

    Me.Metin68 = Nz([Metin67], 0) + GToplam

End Sub

Sayfalar: 1 2