Konu Araçları | Seçenekler: | Gösterim Stili
Tarih
02/03/2009 14:40
Konu Sahibi
commac
Yorumlar
8
Okunma
3379
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 0/5 - 0 oy
Kullanici Avatari

commac

Üye
Üye
19
4
15/12/2008
0
Sakarya
Ofis 2007
12/03/2015,02:22
Çözüldü 
satır çizgilerini sayfanın alt tarafına kadar devam ettiren kod rapor tek sayfa olduğunda çalışıyor fakat 2 sayfa olduğunda çalışmıyor
çalışması için yardımcı olun lütfen


Ek Dosyalar
.rar   muhasebe1.rar(Dosya Boyutu: 18,96 KB / İndirme Sayısı: 9)

Kullanici Avatari

Seruz

Uzman
Uzman
SE.... UZ....
 46
1.561
7
30/10/2008
814
Tekirdağ
BT Şefi
Ofis XP
04/07/2018,16:07
Çözüldü 
Özetlersem; boş satır ekleme kontrollerini, sadece son sayfada ve son sayfaya kalan kayıt sayısı üzerinden yapmasını sağladım.

Bunun için Raporun sağ üst köşesinde görebileceğiniz,
O anda bulunulan sayfa (AktifSayfa) ve
Rapordaki Toplam Sayfa (ToplamSayfa) 'yı
bulmak için 2 metin kutusu ekledim.

Örneğiniz ektedir.

Kod:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
Option Compare Database
Option Explicit

Const cTotalRows = 26 'the desired total number of rows in this instance
Const stdHeight = 240

Dim sd As Currency
Dim lngCount As Long
Dim lngTotal As Long
Dim TotGrpx As Long

Private Sub Ayrıntı_Print(Cancel As Integer, PrintCount As Integer)
    lngCount = lngCount + 1
    
    If Me.AktifSayfa = Me.ToplamSayfa Then
        If lngCount = TotGrpx Then
            Me.NextRecord = False
        ElseIf lngCount > TotGrpx And lngCount < cTotalRows Then
            Me.NextRecord = False
            Me![Metin50].ForeColor = 16777215
            Me![Metin52].ForeColor = 16777215
            Me![Metin53].ForeColor = 16777215
            Me![Metin54].ForeColor = 16777215
            Me![Metin55].ForeColor = 16777215
            Me![Metin56].ForeColor = 16777215
        End If
    End If

    If Me.Metin50.Height <> stdHeight Then
        'advance an extra space
        lngCount = lngCount + 1
    End If
End Sub

Private Sub SayfaÜstbilgisiBölümü_Print(Cancel As Integer, PrintCount As Integer)
    TotGrpx = (Me.TotGrp - (cTotalRows * (Me.ToplamSayfa - 1)))
    lngCount = 0
    Me![Metin50].ForeColor = 0
    Me![Metin52].ForeColor = 0
    Me![Metin53].ForeColor = 0
    Me![Metin54].ForeColor = 0
    Me![Metin55].ForeColor = 0
    Me![Metin56].ForeColor = 0
End Sub


Ek Dosyalar
.rar   Muhasebe_Seruz.rar(Dosya Boyutu: 22,45 KB / İndirme Sayısı: 33)
Bildiğini bilenin arkasından git, bildiğini bilmeyeni uyar, bilmediğini bilene öğret, bilmediğini bilmeyenden kaç.
Konfüçyüs

Kullanici Avatari

commac

Üye
Üye
19
4
15/12/2008
0
Sakarya
Ofis 2007
12/03/2015,02:22
Çözüldü 
yardımın için çok teşekkürler seruz tam istediğim gibi çalışıyor
eline koluna sağlık



Kullanici Avatari

i.mete

Üye
Üye
 38
3
1
06/03/2009
0
İstanbul
Ofis 2003
17/08/2015,16:38
Çözüldü 
Sn.Seruz,
Epey bir zamandır sizin eklemiş olduğunuz örneğe benzer bir çelışma üzerinde ter döküyordum.Sizin çalışmanızı görünce heyecanlandım.Ama nafile.
Birde sizin bakmanızı istirham edeceğim.sıkıntının nerden kaynaklandığını bir türlü anlayamadım.

Her sayfada 29 satır göstersin istiyorum.Şu halde verileri eksik gösterdiği gibi her sayfada tam düzenli olarak göstermiyor.

ilginiz ve emeğiniz için şimdiden teşekkür ederim


Ek Dosyalar
.rar   Bosluk.rar(Dosya Boyutu: 32,25 KB / İndirme Sayısı: 11)

Kullanici Avatari

Seruz

Uzman
Uzman
SE.... UZ....
 46
1.561
7
30/10/2008
814
Tekirdağ
BT Şefi
Ofis XP
04/07/2018,16:07
Çözüldü 
Bugün biraz yoğunum, fırsat bulursam gün içinde bakıp cevap vermeye çalışacağım, bugün bakamazsam hafta sonu büyük ihtimalle nete ve dolayısıyla foruma giremeyeceğimden dolayı ancak pazartesi bakabilirim.

Ben bakamasam da diğer arkadaşlar yardımcı olacaklardır.
Bundan sonra lütfen dosyalarınızı sıkıştırıp gönderin,
hem sitede gereksiz yer işgal ediyor, hem de indirmesi uzun sürüyor.


Bildiğini bilenin arkasından git, bildiğini bilmeyeni uyar, bilmediğini bilene öğret, bilmediğini bilmeyenden kaç.
Konfüçyüs

Kullanici Avatari

commac

Üye
Üye
19
4
15/12/2008
0
Sakarya
Ofis 2007
12/03/2015,02:22
Çözüldü 
i.mete bazı kod satırları iptal elince sayfa doğru çalışıyor


Ek Dosyalar
.rar   Bosluk.rar(Dosya Boyutu: 38,29 KB / İndirme Sayısı: 11)


Konuyu Okuyanlar: 1 Ziyaretçi

Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Tarih Son Yorum
Çözüldü Alt Formda Boş Satır Oluşması Ve Veri Aktarma Sorgusu fascioğlu 9 210 20/06/2018, 14:54
Son Yorum: fascioğlu
Çözüldü açılan kutudan seçilen değere göre sürekli form satır ekleme kokotuna 6 2.791 27/02/2018, 16:00
Son Yorum: soner972
Çözüldü Değer Seçince Diğer Satır Otomatik Olarak Gelsin. muslum_66 4 263 12/02/2018, 11:39
Son Yorum: ozanakkaya
Çözüldü Listede Ayni Kişiden Tek Satır Görünmesi m_demir 3 378 12/08/2017, 19:39
Son Yorum: m_demir
Çözüldü Satır Güncelleme te-kin 2 369 22/03/2017, 04:00
Son Yorum: te-kin

Türkçe Çeviri: MCTR, Yazılım: MyBB, © 2002-2018 MyBB Group.