الشاعر قام بنشر مارس 3, 2015 قام بنشر مارس 3, 2015 السلام عليكم أساتذتي الكرام يوجد عندي 3 نماذج .. نموذجين رئيسين ، ونموذجين عبارة عن إدخال رقم الباسوورد لفتح النموذجين الأصليين ولكن توجد عندي مشكلة في أن نموذجي الباسوورد لا يُغلقان عند فتح النموذج الرئيسي لذا فلا يمكن التبديل بسلاسة في فتح النموذجين ربما الشرح غامض قليلا ولكن المثال المرفق يوضح ويسهل المطلب تقبلوا وافر تحياتي الشاعر Close.rar
سعيد صواب قام بنشر مارس 3, 2015 قام بنشر مارس 3, 2015 تفضل اخي الكريم في نموذج pass1 مثلا Private Sub ÃãÑ2_Click() If Pas = 815 Then DoCmd.OpenForm "Main2" DoCmd.Close End If بالتوفيق ان شاء الله.
الشاعر قام بنشر مارس 3, 2015 الكاتب قام بنشر مارس 3, 2015 الله يعطيك العافية أخي العزيز جربتها ما نفعت إذا ممكن التعديل على النموذج شكرا لكم عزيزي
الشاعر قام بنشر مارس 3, 2015 الكاتب قام بنشر مارس 3, 2015 الله يعطيكم ألف عافية تمكنت والحمد لله من عمل اللازم وذلك بإنشكاء ماكرو 1 خاص بإلاق نموذج الرقم السري 1 ونموذج ماكرو 2 خاص بلإغلاق نموذج الرقم السري 2 بارك الله يكم أيها الأحبة تقبلوا تحياتي ( الشارعر )
ابو جودي قام بنشر مارس 3, 2015 قام بنشر مارس 3, 2015 كود زر الامر للنموذج Pass2 If Pas = 815 Then DoCmd.Close DoCmd.OpenForm "Main1" ElseIf Pas <> 815 Then DoCmd.Quit End If --------------- كود زر الامر للنموذج Pass1 If Pas = 815 Then DoCmd.Close DoCmd.OpenForm "Main2" ElseIf Pas <> 815 Then DoCmd.Quit End If واليك المرفق بعد التعديل بدون ماكرو فقط تعديل الكود البرمجى ☺ Close.rar
jjafferr قام بنشر مارس 3, 2015 قام بنشر مارس 3, 2015 السلام عليكم أخي آخر الارض تفضل اخي الكريم في نموذج pass1 مثلا Private Sub ÃãÑ2_Click() If Pas = 815 Then DoCmd.OpenForm "Main2" DoCmd.Close End If بالتوفيق ان شاء الله. اذا تسمح لي اعدل في الكود ، وابين وين المشكلة في كودك: لما فتحت نموذج Main2 ، فاصبح هو الذي عليه التركيز ، فلما اصدرت الامر Docmd.close ، فانه يغلق النموذج الذي عليه التركيز وهو Main2 فالحل هو: Private Sub ÃãÑ2_Click() If Pas = 815 Then myForm= Me.Name DoCmd.OpenForm "Main2" docmd.Close acForm, myForm End If جعفر
ابو جودي قام بنشر مارس 3, 2015 قام بنشر مارس 3, 2015 بعد اذن استاذ اخر الارض والاستاذ جعفر انا جربت الكود بهذه الطريقة وتأكدت من عمل البرنامج بطريقة سلسلة كما فى المرفق التالى فما تعليق اساتذتى الكرام على تقدمت به فما رايكم بكتابة الكود بهذه الكيفية If Pas = 815 Then DoCmd.Close DoCmd.OpenForm "Main2" ElseIf Pas <> 815 Then DoCmd.Quit End If
jjafferr قام بنشر مارس 3, 2015 قام بنشر مارس 3, 2015 بعد اذن استاذ اخر الارض والاستاذ جعفر انا جربت الكود بهذه الطريقة وتأكدت من عمل البرنامج بطريقة سلسلة كما فى المرفق التالى فما تعليق اساتذتى الكرام على تقدمت به فما رايكم بكتابة الكود بهذه الكيفية If Pas = 815 Then DoCmd.Close DoCmd.OpenForm "Main2" ElseIf Pas <> 815 Then DoCmd.Quit End If مادام البرنامج شغال تمام ، فلا تهتم في التفاصيل البسيطة جعفر
ابو جودي قام بنشر مارس 3, 2015 قام بنشر مارس 3, 2015 بعد اذن استاذ اخر الارض والاستاذ جعفر انا جربت الكود بهذه الطريقة وتأكدت من عمل البرنامج بطريقة سلسلة كما فى المرفق التالى فما تعليق اساتذتى الكرام على تقدمت به فما رايكم بكتابة الكود بهذه الكيفية If Pas = 815 Then DoCmd.Close DoCmd.OpenForm "Main2" ElseIf Pas <> 815 Then DoCmd.Quit End If مادام البرنامج شغال تمام ، فلا تهتم في التفاصيل البسيطة جعفر استاذنا الكريم جزاكم الله كل الخير على سرعة الرد وعلى متابعتكم الطيبة لى ولاهل المنتدى الكرام سؤالى ليس للاهتمام بتفاصيل بسيطه على قدر ما هو لتحصيل العلم فانا مبتدئ فى عالم البرمجة لهذا يكثر سؤالى على استحياء بسبب اثقالى على اساتذتى الاجلاء جزاك وجزاهم الله عنا كل الخير
ابو جودي قام بنشر مارس 3, 2015 قام بنشر مارس 3, 2015 شغل تمام ونظيف جعفر كل الشكر والتقدير استاذى استاذنا الجليل
سعيد صواب قام بنشر مارس 3, 2015 قام بنشر مارس 3, 2015 السلام عليكم ورحمة الله وبركاته ,,, شكرا لمرور الأساتذه الكرام زادنا الله واياكم من علمه نعم ,, انا اسأت فهم الموضوع ونسيت ان النموذج المفتوح هو من يكون عليه التركيز ... وبالتالي تسرعت بالرد .. ولكن كسبنا مرور الخبير الأخ جعفر والمميز جدا اسير الشروق . وفقنا الله واياكم . 1
ابو جودي قام بنشر مارس 3, 2015 قام بنشر مارس 3, 2015 السلام عليكم ورحمة الله وبركاته ,,, شكرا لمرور الأساتذه الكرام زادنا الله واياكم من علمه نعم ,, انا اسأت فهم الموضوع ونسيت ان النموذج المفتوح هو من يكون عليه التركيز ... وبالتالي تسرعت بالرد .. ولكن كسبنا مرور الخبير الأخ جعفر والمميز جدا اسير الشروق . وفقنا الله واياكم . اخى الحبيب آخر الأرض كل الشكر والتقدير على الكلمات الرقيقه انا اقل بكثير مما وصفتمونى به جملكم الله بالايمان والعلم وحسن الخلق
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.