Skip to main content

AccessTr.neT


Raporda doğru fakat pdf yapınca hatalı değerler

Raporda doğru fakat pdf yapınca hatalı değerler

#1
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.
.rar kd yanlış değerler.rar (Dosya Boyutu: 1,07 MB | İndirme Sayısı: 3)
Hayat bu
ölsende yaşamaya mecbursun!
UNUTMA!!!



(hafta sonu mesai olmadığından mesajlardaki çözümleri ancak hafta içi uygulayabiliyorum)
Son Düzenleme: 13/01/2017, 12:51, Düzenleyen: kadirdursun. (Sebep: mdb eklemesi)
Cevapla
#2
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.
Herkes,kendisinin AR-GE'cisidir...


Konulara eklenen Uygulama içeriğine yönelik Tavsiyeler
Alt Form Denetim Değerlerine ulaşma ve Alt Form Güncelleme
Kapatırken Düzenle (Compact On Close) Seçeneğinin İşaretlenmesi Hakkında
Cevapla
#3
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
Hayat bu
ölsende yaşamaya mecbursun!
UNUTMA!!!



(hafta sonu mesai olmadığından mesajlardaki çözümleri ancak hafta içi uygulayabiliyorum)
Cevapla
#4
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.
Herkes,kendisinin AR-GE'cisidir...


Konulara eklenen Uygulama içeriğine yönelik Tavsiyeler
Alt Form Denetim Değerlerine ulaşma ve Alt Form Güncelleme
Kapatırken Düzenle (Compact On Close) Seçeneğinin İşaretlenmesi Hakkında
Cevapla
#5
Mutabakat sorgusunda yürüyen bakiyeyi yapamadım. Bakiye kısmı boş.
Hayat bu
ölsende yaşamaya mecbursun!
UNUTMA!!!



(hafta sonu mesai olmadığından mesajlardaki çözümleri ancak hafta içi uygulayabiliyorum)
Cevapla
#6
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
Hayat bu
ölsende yaşamaya mecbursun!
UNUTMA!!!



(hafta sonu mesai olmadığından mesajlardaki çözümleri ancak hafta içi uygulayabiliyorum)
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da