Skip to main content

AccessTr.neT

Kayıt Ol

 | Facebook ile Bağlan  | Twitter İle Bağlan | Google+ İle Bağlan

Tabloda Boş Olanlar Raporda Gözükmesin

omergenc7
omergenc7
Access Cevaplanmış Soruları
17
2473

Tabloda Boş Olanlar Raporda Gözükmesin

#15
omergenc7
Aktif Üye
omergenc7
Bul
Aktif Üye
Adı Soyadı:
Yaşı: 38
Konum: Ankara
Ofis Versiyonu: Ofis 2016 64 Bit
Son Oturumu: 22/02/2024,01:02
Yorumları: 59
Konuları: 14
Kayıt Tarihi: 05/12/2008
Teşekkür Puanı: 0
(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
Cevapla

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

Yorum yapmak için üye olmanız gerekiyor

ya da

Bu Konudaki Yorumlar
RE: Tabloda Boş Olanlar Raporda Gözükmesin - Yazar: omergenc7 - 05/09/2019, 14:14