كود لاختبار هل النموذج مفتوح ام لا

اخي الفاضل

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

الكود موجود ويمكن التحقق من ان النموذج A مفتوح ام لا

ولكن السؤال ما هو الحدث الذي يحدث بعد ذلك هل يتم اغلاق البرنامج كاملا ام يتم عدم فتح النموذج B

لهذا يجب من وجود حدث بعد التحقق ويفضل ان تضع مثالك لكي يتم التطبيق عليه ووضع الكود .

zahrah كتب:

اخي الفاضل

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

الكود موجود ويمكن التحقق من ان النموذج A مفتوح ام لا

ولكن السؤال ما هو الحدث الذي يحدث بعد ذلك هل يتم اغلاق البرنامج كاملا ام يتم عدم فتح النموذج B

لهذا يجب من وجود حدث بعد التحقق ويفضل ان تضع مثالك لكي يتم التطبيق عليه ووضع الكود .

الاخت زهرة اشكرك على تعاونك

الموضوع باختصار ان النموذج A هو نموذج يعرض معلومات عن الصنف الموجود في النموذج B

بمعنى انه عند كتابة الصنف او الوقوف على الصنف اذا كان موجود يحدث حدث يختبر فيه اذا كان نموذج A مفتوح ام لا

فاذا كان نموذج مفتوح A فيتم عرض بيانات الصنف المكتوب او الواقف عليه بالمؤشر و هكذا عند كتابة اي صنف اخر او الوقوف المؤشر عند اي صنف يقوم نموذج A بعرض بيانات الصنف كل هذا اذا كان هذا النموذج مفتوح

بعد اذن الاخت زهره

لإختبار النموذج A هلهو مفتوح أم لا ضع الكود التالي في أي حدث لأي عنصر داخل النموذجB

Dim n As String: Dim i As Integer: Dim isopen As Boolean
n = "A"
isopen = False
For i = 0 To Forms.Count - 1
If Forms(i).FormName = n Then
   isopen = True
End If
Next i
If isopen Then
MsgBox ("Form " & [n] & " Open")
Else
MsgBox ("Form " & [n] & " Closed")
End If

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

السلام عليكم

لو في نموذج لنستفيد منه