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

[منير الريمي 1]

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

mmm.rar

[morad2012 14]

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

 

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

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

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

::

 

تحياتي

[mahmoud_20 171]

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

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

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

بالتوفيق

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

تم تعديل 2 Oct 2013 بواسطه mahmoud_20

[منير الريمي 1]

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