مطلوب كود تعطيل زر اغلاق النموذج

[ابوأسد]

السلام عليكم اخواني الاعزاء

لدي نموذج لادخال البيانات ، وفيه زر "تعديل" وزر "حفظ" 

اريد كود عند الضغط على زر "تعديل" يعطل زر اغلاق النموذج لاجبار المستخدم على استكمال البيانات المطلوبه، ثم اعادة تفعيل رز الاغلاق بعد الحفظ

شاكرا لكم

[محمد احمد لطفى]

سوف تستخدم فى زر الاغلاق عند وجود خلايا فارغة لا يتم الاغلاق 
 

if isnull (Country) then 
MsgBox ("من فضلك أدخل المدينة ")
elseif isnull (Kind) then 
MsgBox ("من فضلك أدخل النوع ")
elseif 
DoCmd.Quit
end if

 

[Hamdi Edlbi-khalf]

مرحباً 

أولاً - ألغي من التصميم مربع الإغلاق 

ثانياً - أنشئ زراً للإغلاق مستخدماً ڤيجوال بيزك 

ثالثاً - ضع الشرط الذي ترغب به في زر الإغلاق .

مثلاً 

if me.field1 <> "" then
appliction.quit
else 
exit sub 

 

تم تعديل أكتوبر 6, 2018 بواسطه Khalf

[ابوأسد]

اشكركما على المبادرة

لكنني اريد كود تعطيل/ تفعيل زر اغلاق النموذج لغرض في نفسي فهو سيوفر على عشرات الاسطر والجهد

[ابو ياسين المشولي]

7 دقائق مضت, ابواسد said:

اشكركما على المبادرة

لكنني اريد كود تعطيل/ تفعيل زر اغلاق النموذج لغرض في نفسي فهو سيوفر على عشرات الاسطر والجهد

ارفق مثال وابشر

[Hamdi Edlbi-khalf]

Private Sub Form_Unload(Cancel As Integer)
 
    If IsNull(xxxxx)  Then
        Cancel = True
    End If
 
End Sub

استخدم هذا الكود 

[ابوأسد]

8 دقائق مضت, ابو ياسين المشولي said:

ارفق مثال وابشر

بشرك الله بما يسرك، ولكني اكتب الان من التلفون ولا يوجد حاسب الان، والامر بسيط ولا يحتاج مثال مرفق، فقط اسعدني بسطرين ثلاثة VBA 

 

4 دقائق مضت, Khalf said:

Private Sub Form_Unload(Cancel As Integer)
 
    If IsNull(xxxxx)  Then
        Cancel = True
    End If
 
End Sub

استخدم هذا الكود 

كود جميل وذكي صراحة ، لعطل عمل زر الاغلاق، ولكنه لا يعطل زر الاغلاق نفسه..

قد يكون هذا هو البديل إن لم اجد ما ارغب به.. احسنت اخي

[ابو ياسين المشولي]

عند الضغط على تعديل
زرالاغلاق.Enabled = false
وعند الضغط على حفظ
زرالاغلاق.Enabled = True

 

[Hamdi Edlbi-khalf]

بالتوفيق 

[ابوأسد]

2 دقائق مضت, ابو ياسين المشولي said:

عند الضغط على تعديل
زرالاغلاق.Enabled = false
وعند الضغط على حفظ
زرالاغلاق.Enabled = True

 

اقصد زر اغلاق النموذج اللي تبع اكسس "×" وليس زر المبرمج، واعتذر على عدم التوضيح

[محمد التميمي]

 اخي العزيز ابو اسد

بعد اذن الاخوة الكرام

لماذا تتعب نفسك باكواد الازرار اذاكنت تريد اجبار المستخدم اكمال كتابة جميع الحقول فأستخدم هذا الكد وضعه عند الخروج لجميع مربعات النص او التحرير والسرد

Then ([اسم مربع النص]) IF ISNULL
 ("لا تترك الحقل فارغاً") MsgBox 
DoCmd.CancelEvent
Else

End If

[qathi]

كلها أفكار رائعة

تم تعديل أكتوبر 7, 2018 بواسطه qathi