+- 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ığı: Raporda doğru fakat pdf yapınca hatalı değerler (/konu-raporda-dogru-fakat-pdf-yapinca-hatali-degerler.html)
Sayfalar:
1
2
Raporda doğru fakat pdf yapınca hatalı değerler - kadirdursun - 13/01/2017
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.
Cvp: Raporda doğru fakat pdf yapınca hatalı değerler - atoz112 - 13/01/2017
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:
DoCmd.OutputTo acOutputReport, "MUTABAKAT", acFormatPDF, CurrentProject.Path & "\" & "MUTABAKAT.pdf", Truebilginize...iyi çalışmalar,saygılar.
Cvp: Raporda doğru fakat pdf yapınca hatalı değerler - kadirdursun - 13/01/2017
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 SubCvp: Raporda doğru fakat pdf yapınca hatalı değerler - atoz112 - 13/01/2017
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]));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 IfCvp: Raporda doğru fakat pdf yapınca hatalı değerler - kadirdursun - 13/01/2017
Mutabakat sorgusunda yürüyen bakiyeyi yapamadım. Bakiye kısmı boş.
Cvp: Raporda doğru fakat pdf yapınca hatalı değerler - kadirdursun - 16/01/2017
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