[ تمت الإجابة ]تكوين كود لعمل دوران حول النماذج الفرعية

اخي الفاضل

استخدم هذا الكود المختصر لهذه العملية

Private Sub Form_Current()
Dim frm As Form
With frm.Form
.Visible = (.RecordsetClone.RecordCount > 0)
End With
End Sub

بسم الله الرحمن الرحيم

بارك الله فيك اختنا زهرة

كود جميل بالفعل

السلام عليكم ورحمة الله

الاستاذة زهراء

قمت بوضع الكود المختصر ولكنة اعطي رسالة خطاء عند الفتح

ارقت لكم جمعيا الملف , ارجو المساعدة ولكم جزيل الشكر والعرفان ,,,,

mmjj1.zip

تفضل اخي الكريم

الملف بعد التعديل

تم استخدام هذا الكود لإخفاء النماذج الفرعية في حالة عدم وجود سجلات بها في حدث النموذج الحالي

Private Sub Form_Current()
Dim ctl As Access.Control
For Each ctl In Me.Controls
If ctl.ControlType = acSubform Then
With ctl.Form
.Visible = (.RecordsetClone.RecordCount > 0)
End With
End If
Next
End Sub

za_mmjj_UP.rar

وهناك احلى اخر

Private Sub Form_Current()
Dim ctl As Control
	For Each ctl In Me.Controls
		If (ctl.ControlType = acSubform) Then
			If Me.Controls(ctl.TabIndex).Form.RecordsetClone.RecordCount <= 0 Then
				 ctl.Visible = False
			End If
		End If
	Next ctl
End Sub

شكرا لك استاذة زهرة

قمت بتحميل الملف وكان يعمل كما هو مطلوب بالتحديد . بارك الله فيك وفي علمك ,,,,

وشكرا جزيل لك...

الاخ mood

شكرا جزيل لك وسوف اقوم بتجربة الكود ,,,,,

الف شكرا لكم جمعيا وجزاكم الله كل خير .

بسم الله الرحمن الرحيم

تمت الإجابة على الموضوع

إدارة الفريق العربي للبرمجة