[sh.hasan]

مرحباً
لدي مشروع فيه فورمين Frm1 و Frm2 .
من الممنوع عمل الفورمين بآن معاً
أي أن أي منهما عندما يتم عرضه وقت التنفيذ سيتحقق من الآخر هل هو يعمل .. إذا الجواب نعم سيتم عرض رسالة لترك المجال للمستخدم ليقرر أن يبقى في الفورم الحالي أو يغلقه و يفتح الآخر .

كيف سيكون الكود لو سمحتم ؟

قمت بتجربة الكود التالي لكنه لم يعمل :

كود :

Dim msgresponse
   If frm1_On Then
       msgresponse = MsgBox("للمتابعة و فتح Frm2  ينبغي إغلاق Frm1  ؛ الإغلاق الآن ؟", vbYesNo, "تنبيه")
       If msgresponse = vbYes Then
Unload frm1
          frm1_On = False
           Else
          Exit Sub
      End If
  End If

حيث وضعت الكود في حدث تحميل الفورم الثاني و تم تعريف Frm1_On كمتحول بولياني يأخذ القيمة True  عند تحميل الفورم  و القيمة False عند إغلاقه .
المشكلة التي حدثت أن الفورم الثاني يتم تحميله عند اختيار VbNo و لكن من غير بيانات في صناديق النص .