Tabloda Boş Olanlar Raporda Gözükmesin

1 2 3

dilerim işinize yarar
kod kolaylığı olması için rapordaki metin kutularının isimlerini değiştirdim
raporun load olayına aşağıdaki kod eklendi
Not: uygulamanız yüklemeden önce Accessteki "sıkıştır/onar" komutunu kullanıp sonra zip/rar dosyasına çevirirseniz dosya büyüklüğü sorunu çıkmaz

Dim x As Integer

For x = 1 To 12

    If IsNull(Me.Controls("gdnm" & x)) Then

        Me.Controls("gdnm" & x).Visible = False

        Me.Controls("gdnm" & x & "durum").Visible = False 'gdnm1durum

    Else

        Me.Controls("gdnm" & x & "durum").Visible = True

        Me.Controls("gdnm" & x).Visible = True

    End If

Next x

For x = 1 To 5

    If IsNull(Me.Controls("mv" & x)) Then

        Me.Controls("mv" & x).Visible = False

        Me.Controls("durum" & x).Visible = False  'mv1durum

    Else

        Me.Controls("mv" & x).Visible = True

        Me.Controls("durum" & x).Visible = True

    End If

Next x

eğer "report_Load()" olayını kodunu aşağıdaki kodla değiştirirseniz daha düzgün bir görünüm sunuyor
arada kalan boş alanları görünmez yapıp bir alttakini üste çekiyor

Dim x, UstCarpan As Integer

UstCarpan = -1

For x = 1 To 12

    If IsNull(Me.Controls("gdnm" & x)) Then

        Me.Controls("gdnm" & x).Visible = False

        Me.Controls("gdnm" & x & "durum").Visible = False 'gdnm1durum

    Else

        UstCarpan = UstCarpan + 1

        Me.Controls("gdnm" & x).Visible = True

        Me.Controls("gdnm" & x & "durum").Visible = True

        Me.Controls("gdnm" & x & "durum").Top = 6917 + 283 * UstCarpan

        Me.Controls("gdnm" & x).Top = 6917 + 283 * UstCarpan

    End If

Next x



UstCarpan = -1

For x = 1 To 5

    If IsNull(Me.Controls("mv" & x)) Then

        Me.Controls("mv" & x).Visible = False

        Me.Controls("durum" & x).Visible = False   'mv1durum

    Else

        UstCarpan = UstCarpan + 1

        Me.Controls("mv" & x).Visible = True

        Me.Controls("durum" & x).Visible = True

        Me.Controls("mv" & x).Top = 6917 + 283 * UstCarpan

        Me.Controls("durum" & x).Top = 6917 + 283 * UstCarpan

    End If

Next x

(04/09/2019, 22:31)berduş yazdı: eğer "report_Load()" olayını kodunu aşağıdaki kodla değiştirirseniz daha düzgün bir görünüm sunuyor
arada kalan boş alanları görünmez yapıp bir alttakini üste çekiyor

Kod:
Dim x, UstCarpan As Integer UstCarpan = -1 For x = 1 To 12 If IsNull(Me.Controls("gdnm" & x)) Then Me.Controls("gdnm" & x).Visible = False Me.Controls("gdnm" & x & "durum").Visible = False 'gdnm1durum Else UstCarpan = UstCarpan + 1 Me.Controls("gdnm" & x).Visible = True Me.Controls("gdnm" & x & "durum").Visible = True Me.Controls("gdnm" & x & "durum").Top = 6917 + 283 * UstCarpan Me.Controls("gdnm" & x).Top = 6917 + 283 * UstCarpan End If Next x UstCarpan = -1 For x = 1 To 5 If IsNull(Me.Controls("mv" & x)) Then Me.Controls("mv" & x).Visible = False Me.Controls("durum" & x).Visible = False 'mv1durum Else UstCarpan = UstCarpan + 1 Me.Controls("mv" & x).Visible = True Me.Controls("durum" & x).Visible = True Me.Controls("mv" & x).Top = 6917 + 283 * UstCarpan Me.Controls("durum" & x).Top = 6917 + 283 * UstCarpan End If Next x

HOCAM ÇOK TEŞEKKÜR EDERİM. EMEKLERİNİZE SAĞLIK

ÖD)
iyi çalışmalar.

(05/09/2019, 14:18)berduş yazdı: ÖD)
iyi çalışmalar.

hocam çök özür dilerim yine bir sorunum var sizin gönderdiğiniz tablo ve rapor gayet başarılı çalışıyor. fakat ben başka accessde çalışırken aynı tablo isimleri olmasına rağmen " durum 1 alanı bulanamadı " hatası veriyor.

(04/09/2019, 21:56)berduş yazdı: kod kolaylığı olması için rapordaki metin kutularının isimlerini standart yaptım

13. mesajda belirttiğim gibi metin kutularının isimlerini değiştirdim. Kod alanları değil, ilgili metin kutularını kontrol ediyor.
rapordaki metin kutularını isimlerin belli bir şablona göre değiştirip kodları ona göre düzenlemeyi deneyin.

1 2 3

Tabloda Boş Olanlar Raporda Gözükmesin

berduş

berduş

omergenc7

berduş

omergenc7

berduş