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
