السلام عليكم ورحمة الله وبركاته
اخواني خبراء الاكسس ارجو مساعدتي في تعديل هذا المثال
المثال فيه عدة طرق لاغلاق النموذج اريد تعديل المثال بحيث نجعل كل طريقة اغلاق في نموذج
هم خمس طرق اريد كل طريقه في نموذج لحالها ارجو وصلت لكم المعلووووومه
من يعرف ذالك لا يحرمنا من الشرح ارجوووووكم لانه لس نحن مبتدئين
ساعدوني في اغلاق النموذج بهذا الشكل الرائع
حياك الله اخي الكريم منير
في كل نموذج تريد اغلاقه ضح هذا الكود في حدث عند الاغلاق
Dim lngIncrement As Long
Dim lngOpt As Long
lngOpt = 1
If lngOpt >= 0 Then
lngIncrement = 100
Call WipeEffect(Me, lngOpt, lngIncrement)
End Ifوقم بتغيير الرقم (1) على حسب طريقة الاغلاق التي تريد من ضمن الطرق الخمسة
::
تحياتي
اذا دعتـــك قدرتك على ظلـــم الناس فتذكر قدرة الله عليــــــك
اخي الكريم منير
انظر للمرفق به طلبك وبه مرفق اخر من عندي
نماذج لفتح نموذج بطريقة منسدلة.rar
بالتوفيق
اخوك -------------- محمود المصري
تم تعديل هذه المشاركة بواسطة mahmoud_20 في 2 أكتوبر 2013 في 12:28
(اللَّهُمَّ أَنْتَ رَبِّي لا إِلَه إِلاَّ أَنْتَ خَلَقْتَني وأَنَا عَبْدُكَ وأَنَا على عهْدِكَ ووعْدِكَ ما اسْتَطَعْتُ أَعُوذُ بِكَ مِنْ شَرِّ ما صنَعْتُ أَبوءُ لَكَ بِنِعْمتِكَ علَيَ وأَبُوءُ بذَنْبي فَاغْفِرْ لي فَإِنَّهُ لا يغْفِرُ الذُّنُوبِ إِلاَّ أَنْتَ)
اذا كانت المشاركة مفيدة لك فلا تبخل علينا بالتقييم
اخي مراد واخي محمووود المصري والله لكم الشكر من كل اعمااااااااق قلبي فعلاً انتم رجاااال عند المواقف والله يجزاكم الف خير