ابوأسد قام بنشر أكتوبر 6, 2018 مشاركة قام بنشر أكتوبر 6, 2018 السلام عليكم اخواني الاعزاء لدي نموذج لادخال البيانات ، وفيه زر "تعديل" وزر "حفظ" اريد كود عند الضغط على زر "تعديل" يعطل زر اغلاق النموذج لاجبار المستخدم على استكمال البيانات المطلوبه، ثم اعادة تفعيل رز الاغلاق بعد الحفظ شاكرا لكم رابط هذا التعليق شارك More sharing options...
محمد احمد لطفى قام بنشر أكتوبر 6, 2018 مشاركة قام بنشر أكتوبر 6, 2018 سوف تستخدم فى زر الاغلاق عند وجود خلايا فارغة لا يتم الاغلاق if isnull (Country) then MsgBox ("من فضلك أدخل المدينة ") elseif isnull (Kind) then MsgBox ("من فضلك أدخل النوع ") elseif DoCmd.Quit end if رابط هذا التعليق شارك More sharing options...
Hamdi Edlbi-khalf قام بنشر أكتوبر 6, 2018 مشاركة قام بنشر أكتوبر 6, 2018 (معدل) مرحباً أولاً - ألغي من التصميم مربع الإغلاق ثانياً - أنشئ زراً للإغلاق مستخدماً ڤيجوال بيزك ثالثاً - ضع الشرط الذي ترغب به في زر الإغلاق . مثلاً if me.field1 <> "" then appliction.quit else exit sub تم تعديل أكتوبر 6, 2018 بواسطه Khalf رابط هذا التعليق شارك More sharing options...
ابوأسد قام بنشر أكتوبر 6, 2018 الكاتب مشاركة قام بنشر أكتوبر 6, 2018 اشكركما على المبادرة لكنني اريد كود تعطيل/ تفعيل زر اغلاق النموذج لغرض في نفسي فهو سيوفر على عشرات الاسطر والجهد رابط هذا التعليق شارك More sharing options...
ابو ياسين المشولي قام بنشر أكتوبر 6, 2018 مشاركة قام بنشر أكتوبر 6, 2018 7 دقائق مضت, ابواسد said: اشكركما على المبادرة لكنني اريد كود تعطيل/ تفعيل زر اغلاق النموذج لغرض في نفسي فهو سيوفر على عشرات الاسطر والجهد ارفق مثال وابشر رابط هذا التعليق شارك More sharing options...
Hamdi Edlbi-khalf قام بنشر أكتوبر 6, 2018 مشاركة قام بنشر أكتوبر 6, 2018 Private Sub Form_Unload(Cancel As Integer) If IsNull(xxxxx) Then Cancel = True End If End Sub استخدم هذا الكود رابط هذا التعليق شارك More sharing options...
ابوأسد قام بنشر أكتوبر 6, 2018 الكاتب مشاركة قام بنشر أكتوبر 6, 2018 8 دقائق مضت, ابو ياسين المشولي said: ارفق مثال وابشر بشرك الله بما يسرك، ولكني اكتب الان من التلفون ولا يوجد حاسب الان، والامر بسيط ولا يحتاج مثال مرفق، فقط اسعدني بسطرين ثلاثة VBA 4 دقائق مضت, Khalf said: Private Sub Form_Unload(Cancel As Integer) If IsNull(xxxxx) Then Cancel = True End If End Sub استخدم هذا الكود كود جميل وذكي صراحة ، لعطل عمل زر الاغلاق، ولكنه لا يعطل زر الاغلاق نفسه.. قد يكون هذا هو البديل إن لم اجد ما ارغب به.. احسنت اخي 1 رابط هذا التعليق شارك More sharing options...
ابو ياسين المشولي قام بنشر أكتوبر 6, 2018 مشاركة قام بنشر أكتوبر 6, 2018 عند الضغط على تعديل زرالاغلاق.Enabled = false وعند الضغط على حفظ زرالاغلاق.Enabled = True رابط هذا التعليق شارك More sharing options...
Hamdi Edlbi-khalf قام بنشر أكتوبر 6, 2018 مشاركة قام بنشر أكتوبر 6, 2018 بالتوفيق رابط هذا التعليق شارك More sharing options...
ابوأسد قام بنشر أكتوبر 6, 2018 الكاتب مشاركة قام بنشر أكتوبر 6, 2018 2 دقائق مضت, ابو ياسين المشولي said: عند الضغط على تعديل زرالاغلاق.Enabled = false وعند الضغط على حفظ زرالاغلاق.Enabled = True اقصد زر اغلاق النموذج اللي تبع اكسس "×" وليس زر المبرمج، واعتذر على عدم التوضيح رابط هذا التعليق شارك More sharing options...
محمد التميمي قام بنشر أكتوبر 6, 2018 مشاركة قام بنشر أكتوبر 6, 2018 اخي العزيز ابو اسد بعد اذن الاخوة الكرام لماذا تتعب نفسك باكواد الازرار اذاكنت تريد اجبار المستخدم اكمال كتابة جميع الحقول فأستخدم هذا الكد وضعه عند الخروج لجميع مربعات النص او التحرير والسرد Then ([اسم مربع النص]) IF ISNULL ("لا تترك الحقل فارغاً") MsgBox DoCmd.CancelEvent Else End If 2 رابط هذا التعليق شارك More sharing options...
qathi قام بنشر أكتوبر 7, 2018 مشاركة قام بنشر أكتوبر 7, 2018 (معدل) كلها أفكار رائعة تم تعديل أكتوبر 7, 2018 بواسطه qathi رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان