أيقاف الخروج من النموذج

up

السلام عليكم

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

اجعل النموذج بدون زر اغلاق عن طريق خصائص النموذج

ثم اضف زر أمر واختر انهاء بدون أن تحدد الأمر المطلوب ثم عن طريق حدث عند النقر لهذا الزر ضع الكود المشروط.

بالتوفيق.

إن أذنتم لي..

الحل متوفر.. لكن فيه ارباك بسيط! أرجو أن تنفك منه سريعا

هذا هي الشفرة ببساطة .. جربها ثم برمجها على راحتك

Private Sub Form_Unload(Cancel As Integer)
    Cancel = True
End Sub

أخي 

جزاك الله كل خير بالفعل الكود أوقف أقفال الشاشة كما كنت أريد 

يتبقي شئ أخر إذا أمكنك مسعدتي في اكون مشكور

وهو كيف أقف أنتقال الشاشة من السجل الحالي عند نفس الشرط الذي منع أغلاق الشاشة

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

تم حل الجزء الأول وهو عدم غلق الشاشة يتبقي الجزء الثاني وهو عدم الإنتقال من السجل الحالي إلا بعد تحقيق الشرط

 لا يتطلب الأمر مثال للتطبيق.. الشفرة ستكون بهذه الصيغة

Private Sub Form_Unload(Cancel As Integer)
    If Me.Quantity = 0 Then
        Cancel = True
    End If
End Sub

أيوة كده حضرتك حليت الجزء الاول وهو عدم غلق النموذج الا بتحقق الشرط وده أنا فهمتة من الإجابة الأولي

اين حل اجزء الثاني وهو عدم مغادرة السجل الحالي (عدم الذهاب للسجل السابق أو التالي او سجل جديد) لا بتحقق نفس الشرط