أبو امين قام بنشر أبريل 25, 2023 مشاركة قام بنشر أبريل 25, 2023 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 رابط هذا التعليق شارك More sharing options...
أبو امين قام بنشر أبريل 25, 2023 الكاتب مشاركة قام بنشر أبريل 25, 2023 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 هل يمكن جعل هذا الكود في موديل و استدعائه لجميع التقارير الموجودة في البرنامج رابط هذا التعليق شارك More sharing options...
أفضل إجابة Moosak قام بنشر أبريل 25, 2023 أفضل إجابة مشاركة قام بنشر أبريل 25, 2023 تفضل أخي @أبو امين 🙂 << تعديل >> عملت لك دالتين .. واحدة للنماذج وأخرى خاصة بالتقارير .. أنسخهم هم الإثنين في موديول : 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() 3 2 رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.