تفضل أخي @أبو امين 🙂
<< تعديل >>
عملت لك دالتين .. واحدة للنماذج وأخرى خاصة بالتقارير .. أنسخهم هم الإثنين في موديول :
Public Sub ShowOrHideFormControls()
Dim Frm As Form
Dim Ctl As Control
Set Frm = Screen.ActiveForm
For Each Ctl In Frm.Controls
Select Case Ctl.ControlType
Case acTextBox, acComboBox, acListBox, acCheckBox, acOptionButton, acOptionGroup
If IsNull(Ctl.value) Or Ctl.value = "" Then
Ctl.Visible = False
End If
End Select
Next Ctl
Set Frm = Nothing
End Sub
'-------------------------------------------------------------------
Public Sub ShowOrHideReportControls()
Dim Rpt As Report
Dim Ctl As Control
Set Rpt = Screen.ActiveReport
For Each Ctl In Rpt.Controls
Select Case Ctl.ControlType
Case acTextBox, acComboBox, acListBox, acCheckBox, acOptionButton, acOptionGroup
If IsNull(Ctl.value) Or Ctl.value = "" Then
Ctl.Visible = False
End If
End Select
Next Ctl
Set Rpt = Nothing
End Sub
وتنادي كل دالة باسمها حسب الاستخدام هكذا :
' للنماذج
Call ShowOrHideFormControls()
' للتقارير
Call ShowOrHideReportControls()