• 0
منير الريمي

ساعدوني في اغلاق النموذج بهذا الشكل الرائع

سؤال

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

mmm.rar

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه

3 إجابة على هذا السؤال .

  • 0

حياك الله اخي الكريم منير

 

في كل نموذج تريد اغلاقه ضح هذا الكود في حدث عند الاغلاق

    Dim lngIncrement As Long    Dim lngOpt As Long        lngOpt = 1    If lngOpt >= 0 Then        lngIncrement = 100        Call WipeEffect(Me, lngOpt, lngIncrement)    End If

وقم بتغيير الرقم (1) على حسب طريقة الاغلاق التي تريد من ضمن الطرق الخمسة

::

 

تحياتي

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

اخي الكريم منير

انظر للمرفق به طلبك وبه مرفق اخر من عندي

نماذج لفتح نموذج بطريقة منسدلة.rar

بالتوفيق

اخوك -------------- محمود المصري

تم تعديل بواسطه mahmoud_20
0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

اخي مراد واخي محمووود المصري والله لكم الشكر من كل اعمااااااااق قلبي فعلاً انتم رجاااال عند المواقف والله يجزاكم الف خير

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



سجل دخولك الان

  • يستعرض القسم حالياً   0 members

    لا يوجد أعضاء مسجلين يشاهدون هذه الصفحة .