الشاعر قام بنشر مارس 3, 2015 مشاركة قام بنشر مارس 3, 2015 السلام عليكم أساتذتي الكرام يوجد عندي 3 نماذج .. نموذجين رئيسين ، ونموذجين عبارة عن إدخال رقم الباسوورد لفتح النموذجين الأصليين ولكن توجد عندي مشكلة في أن نموذجي الباسوورد لا يُغلقان عند فتح النموذج الرئيسي لذا فلا يمكن التبديل بسلاسة في فتح النموذجين ربما الشرح غامض قليلا ولكن المثال المرفق يوضح ويسهل المطلب تقبلوا وافر تحياتي الشاعر Close.rar رابط هذا التعليق شارك More sharing options...
سعيد صواب قام بنشر مارس 3, 2015 مشاركة قام بنشر مارس 3, 2015 تفضل اخي الكريم في نموذج pass1 مثلا Private Sub ÃãÑ2_Click() If Pas = 815 Then DoCmd.OpenForm "Main2" DoCmd.Close End If بالتوفيق ان شاء الله. رابط هذا التعليق شارك More sharing options...
الشاعر قام بنشر مارس 3, 2015 الكاتب مشاركة قام بنشر مارس 3, 2015 الله يعطيك العافية أخي العزيز جربتها ما نفعت إذا ممكن التعديل على النموذج شكرا لكم عزيزي رابط هذا التعليق شارك More sharing options...
الشاعر قام بنشر مارس 3, 2015 الكاتب مشاركة قام بنشر مارس 3, 2015 الله يعطيكم ألف عافية تمكنت والحمد لله من عمل اللازم وذلك بإنشكاء ماكرو 1 خاص بإلاق نموذج الرقم السري 1 ونموذج ماكرو 2 خاص بلإغلاق نموذج الرقم السري 2 بارك الله يكم أيها الأحبة تقبلوا تحياتي ( الشارعر ) رابط هذا التعليق شارك More sharing options...
ابو جودي قام بنشر مارس 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 رابط هذا التعليق شارك More sharing options...
ابو جودي قام بنشر مارس 3, 2015 مشاركة قام بنشر مارس 3, 2015 ☻ رابط هذا التعليق شارك More sharing options...
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 جعفر رابط هذا التعليق شارك More sharing options...
ابو جودي قام بنشر مارس 3, 2015 مشاركة قام بنشر مارس 3, 2015 بعد اذن استاذ اخر الارض والاستاذ جعفر انا جربت الكود بهذه الطريقة وتأكدت من عمل البرنامج بطريقة سلسلة كما فى المرفق التالى فما تعليق اساتذتى الكرام على تقدمت به فما رايكم بكتابة الكود بهذه الكيفية If Pas = 815 Then DoCmd.Close DoCmd.OpenForm "Main2" ElseIf Pas <> 815 Then DoCmd.Quit End If رابط هذا التعليق شارك More sharing options...
jjafferr قام بنشر مارس 3, 2015 مشاركة قام بنشر مارس 3, 2015 بعد اذن استاذ اخر الارض والاستاذ جعفر انا جربت الكود بهذه الطريقة وتأكدت من عمل البرنامج بطريقة سلسلة كما فى المرفق التالى فما تعليق اساتذتى الكرام على تقدمت به فما رايكم بكتابة الكود بهذه الكيفية If Pas = 815 Then DoCmd.Close DoCmd.OpenForm "Main2" ElseIf Pas <> 815 Then DoCmd.Quit End If مادام البرنامج شغال تمام ، فلا تهتم في التفاصيل البسيطة جعفر رابط هذا التعليق شارك More sharing options...
ابو جودي قام بنشر مارس 3, 2015 مشاركة قام بنشر مارس 3, 2015 بعد اذن استاذ اخر الارض والاستاذ جعفر انا جربت الكود بهذه الطريقة وتأكدت من عمل البرنامج بطريقة سلسلة كما فى المرفق التالى فما تعليق اساتذتى الكرام على تقدمت به فما رايكم بكتابة الكود بهذه الكيفية If Pas = 815 Then DoCmd.Close DoCmd.OpenForm "Main2" ElseIf Pas <> 815 Then DoCmd.Quit End If مادام البرنامج شغال تمام ، فلا تهتم في التفاصيل البسيطة جعفر استاذنا الكريم جزاكم الله كل الخير على سرعة الرد وعلى متابعتكم الطيبة لى ولاهل المنتدى الكرام سؤالى ليس للاهتمام بتفاصيل بسيطه على قدر ما هو لتحصيل العلم فانا مبتدئ فى عالم البرمجة لهذا يكثر سؤالى على استحياء بسبب اثقالى على اساتذتى الاجلاء جزاك وجزاهم الله عنا كل الخير رابط هذا التعليق شارك More sharing options...
jjafferr قام بنشر مارس 3, 2015 مشاركة قام بنشر مارس 3, 2015 شغل تمام ونظيف جعفر 1 رابط هذا التعليق شارك More sharing options...
ابو جودي قام بنشر مارس 3, 2015 مشاركة قام بنشر مارس 3, 2015 شغل تمام ونظيف جعفر كل الشكر والتقدير استاذى استاذنا الجليل رابط هذا التعليق شارك More sharing options...
سعيد صواب قام بنشر مارس 3, 2015 مشاركة قام بنشر مارس 3, 2015 السلام عليكم ورحمة الله وبركاته ,,, شكرا لمرور الأساتذه الكرام زادنا الله واياكم من علمه نعم ,, انا اسأت فهم الموضوع ونسيت ان النموذج المفتوح هو من يكون عليه التركيز ... وبالتالي تسرعت بالرد .. ولكن كسبنا مرور الخبير الأخ جعفر والمميز جدا اسير الشروق . وفقنا الله واياكم . 1 رابط هذا التعليق شارك More sharing options...
ابو جودي قام بنشر مارس 3, 2015 مشاركة قام بنشر مارس 3, 2015 السلام عليكم ورحمة الله وبركاته ,,, شكرا لمرور الأساتذه الكرام زادنا الله واياكم من علمه نعم ,, انا اسأت فهم الموضوع ونسيت ان النموذج المفتوح هو من يكون عليه التركيز ... وبالتالي تسرعت بالرد .. ولكن كسبنا مرور الخبير الأخ جعفر والمميز جدا اسير الشروق . وفقنا الله واياكم . اخى الحبيب آخر الأرض كل الشكر والتقدير على الكلمات الرقيقه انا اقل بكثير مما وصفتمونى به جملكم الله بالايمان والعلم وحسن الخلق رابط هذا التعليق شارك More sharing options...
عبد الفتاح كيرة قام بنشر أبريل 19, 2017 مشاركة قام بنشر أبريل 19, 2017 الإغلاق أولا ثم الفتح 1 رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان