AccessTr.neT

Tam Versiyon: Tabloda Boş Olanlar Raporda Gözükmesin
Şu anda arşiv modunu görüntülemektesiniz. Tam versiyonu görüntülemek için buraya tıklayınız.
Sayfalar: 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.
Sayfalar: 1 2 3