كود اخفاء خانات النص الفارغة في التقرير :

[أبو امين]

Private Sub Report_Open(Cancel As Integer)

Dim ctl As Control

For Each ctl In Me.Controls
    If IsNull(ctl.Value) Or ctl.Value = "" Then
        ctl.Visible = False
    End If
Next ctl

End Sub

[أبو امين]

Private Sub Report_Open(Cancel As Integer)

Dim ctl As Control

For Each ctl In Me.Controls
    If IsNull(ctl.Value) Or ctl.Value = "" Then
        ctl.Visible = False
    End If
Next ctl

End Sub

هل يمكن جعل هذا الكود في موديل و استدعائه لجميع التقارير الموجودة في البرنامج 

[Moosak]

تفضل أخي @أبو امين 🙂 

<< تعديل >>

عملت لك دالتين .. واحدة للنماذج وأخرى خاصة بالتقارير .. أنسخهم هم الإثنين في موديول :

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()