6 satırdaki örneği indirdim, inanın boş döndürüyor, bakın resim ekledim. yanlış dosyayı mı indiriyorum acaba.

Ayni ornegi yeniden indirip deneme sonucu rapor verileri gosteriliyor. VBA editorunu Alt+F11 ile acip derleme yapin.

Hocam derleme yaptırdım, sonuç değişmedi. Office 2007 de çalışıyor. office 2000 de çalışmıyor malesef.

(09-12-2016, 12:20)Mecnun24 demiş ki: Hocam derleme yaptırdım, sonuç değişmedi. Office 2007 de çalışıyor. office 2000 de çalışmıyor malesef.

raporun yer ustbilgisi.print =SetCount([Report]) fonksiyonu kalmis. VBA bolumunde olmadigindan hata verebilir. VBA'da versiyona ozel bir satir olmadigi icin uygulama calismasi gerekir. Mesaj 6'da degisikligi ile yeniden yukledim.

çözdüm sorunu hocam. office 2007 de olan raporun load olayı 2003 office' te yok. Olmadığı için KytSy = Me.TotGrp kod satırı çalışmıyor. O kodu ayrıntı format olayının en başına alınca veri döndürmeme sorunu çözüldü. Son bir ricam olacak hocam, rapor altbilgisine toplam aldırmaya çalışıyorum ancak, dönen satır olması gerekenden az ise sonuç görünmüyor, sanırım sizin kod metin kutusunu boyuyor. o metin kutularının görünmesini nasıl sağlayabiliriz hocam. çok sağolun. Son hali ekte.

YAZI:
Dim Knt As Control
For Each Knt In Me.Controls
...
Next Knt
Me.girisler.ForeColor = 0
Me.cikislar.ForeColor = 0
Me.Metin33.ForeColor = 0
Return
....
boylece yazi rengi siyah yapar..