Private Sub Report_Load()
If IsNull(Atr) Or Atr = "" Then
Atr.Visible = False
Atr_Etiket.Visible = False
Atr_Tarihi_Etiket.Left = Atr.Left
Atr_Tarihi_Etiket.Width = Atr_Etiket.Width + Atr_Tarihi_Etiket.Width
Atr_Tarihi.Left = Atr.Left
Atr_Tarihi.Width = Atr.Width + Atr_Tarihi.Width
End If
End Sub
şeklinde bir kod eklediğinizde Atr alanı değeri boş ise alan ve etiketini gizler, yanındaki Atr Tarihi alanını ve etiketini .Left özelliği ile Atr sol gridine taşır, .Witdh özelliği ile Atr alanı kadar daha genişletilir.Benzer kodu boş denetimi yapmak istediğiniz alanlara senaryonuza göre uyarlayabilirsiniz.