AccessTr.neT

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.