اذهب الي المحتوي
أوفيسنا

كيف أغلق النموذج عند فتح نموذج آخر ؟


الردود الموصى بها

السلام عليكم

أساتذتي الكرام

 

يوجد عندي 3 نماذج .. نموذجين رئيسين ، ونموذجين عبارة عن إدخال رقم الباسوورد لفتح النموذجين الأصليين

ولكن توجد عندي مشكلة في أن نموذجي الباسوورد لا يُغلقان عند فتح النموذج الرئيسي 

لذا فلا يمكن التبديل بسلاسة في فتح النموذجين

 

ربما الشرح غامض قليلا

ولكن المثال المرفق يوضح ويسهل المطلب

 

تقبلوا وافر تحياتي

الشاعر 

Close.rar

رابط هذا التعليق
شارك

الله يعطيكم ألف عافية

تمكنت والحمد لله من عمل اللازم

 

وذلك بإنشكاء ماكرو 1 خاص بإلاق نموذج الرقم السري 1

ونموذج ماكرو 2 خاص بلإغلاق نموذج الرقم السري 2

 

بارك الله يكم أيها الأحبة

 

تقبلوا تحياتي

( الشارعر )

رابط هذا التعليق
شارك

كود زر الامر للنموذج   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

واليك المرفق بعد التعديل بدون ماكرو فقط تعديل الكود البرمجى   :fff:  :fff:  :fff: 

Close.rar

رابط هذا التعليق
شارك

السلام عليكم أخي آخر الارض  :smile:

 

تفضل اخي الكريم 

 

في نموذج pass1   مثلا

 

Private Sub ÃãÑ2_Click()
If Pas = 815 Then
DoCmd.OpenForm "Main2"
DoCmd.Close
End If
 

 

بالتوفيق ان شاء الله.

 

اذا تسمح لي اعدل في الكود ، وابين وين المشكلة في كودك:

لما فتحت نموذج Main2 ، فاصبح هو الذي عليه التركيز ، فلما اصدرت الامر Docmd.close ، فانه يغلق النموذج الذي عليه التركيز وهو Main2  :eek2:

فالحل هو:

Private Sub ÃãÑ2_Click()
If Pas = 815 Then
myForm= Me.Name
DoCmd.OpenForm "Main2"
docmd.Close acForm, myForm
End If

جعفر

رابط هذا التعليق
شارك

بعد اذن استاذ اخر الارض والاستاذ جعفر 
انا جربت الكود بهذه الطريقة وتأكدت من عمل البرنامج بطريقة سلسلة كما فى المرفق التالى فما تعليق اساتذتى الكرام على تقدمت به فما رايكم بكتابة الكود بهذه الكيفية

 

If Pas = 815 Then

DoCmd.Close
DoCmd.OpenForm "Main2"
ElseIf Pas <> 815 Then
DoCmd.Quit
End If
 
رابط هذا التعليق
شارك

 

بعد اذن استاذ اخر الارض والاستاذ جعفر 

انا جربت الكود بهذه الطريقة وتأكدت من عمل البرنامج بطريقة سلسلة كما فى المرفق التالى فما تعليق اساتذتى الكرام على تقدمت به فما رايكم بكتابة الكود بهذه الكيفية

 

If Pas = 815 Then

DoCmd.Close
DoCmd.OpenForm "Main2"
ElseIf Pas <> 815 Then
DoCmd.Quit
End If
 

 

 

مادام البرنامج شغال تمام ، فلا تهتم في التفاصيل البسيطة  :smile:

 

 

جعفر

رابط هذا التعليق
شارك

 

 

بعد اذن استاذ اخر الارض والاستاذ جعفر 

انا جربت الكود بهذه الطريقة وتأكدت من عمل البرنامج بطريقة سلسلة كما فى المرفق التالى فما تعليق اساتذتى الكرام على تقدمت به فما رايكم بكتابة الكود بهذه الكيفية

 

If Pas = 815 Then

DoCmd.Close
DoCmd.OpenForm "Main2"
ElseIf Pas <> 815 Then
DoCmd.Quit
End If
 

 

 

مادام البرنامج شغال تمام ، فلا تهتم في التفاصيل البسيطة  :smile:

 

 

جعفر

 

استاذنا الكريم جزاكم الله كل الخير على سرعة الرد وعلى متابعتكم الطيبة لى ولاهل المنتدى الكرام

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

رابط هذا التعليق
شارك

السلام عليكم ورحمة الله وبركاته ,,,

 

شكرا لمرور الأساتذه الكرام زادنا الله واياكم من علمه 

 

نعم ,, انا اسأت فهم الموضوع ونسيت ان النموذج المفتوح هو من يكون عليه التركيز ... وبالتالي تسرعت بالرد ..

 

ولكن كسبنا مرور الخبير الأخ جعفر والمميز جدا اسير الشروق .

 

وفقنا الله واياكم .

  • Like 1
رابط هذا التعليق
شارك

السلام عليكم ورحمة الله وبركاته ,,,

 

شكرا لمرور الأساتذه الكرام زادنا الله واياكم من علمه 

 

نعم ,, انا اسأت فهم الموضوع ونسيت ان النموذج المفتوح هو من يكون عليه التركيز ... وبالتالي تسرعت بالرد ..

 

ولكن كسبنا مرور الخبير الأخ جعفر والمميز جدا اسير الشروق .

 

وفقنا الله واياكم .

اخى الحبيب  آخر الأرض

كل الشكر والتقدير على الكلمات الرقيقه انا اقل بكثير مما وصفتمونى به جملكم الله بالايمان والعلم وحسن الخلق  :fff:  :fff:  :fff: 

رابط هذا التعليق
شارك

  • 2 years later...

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

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



سجل دخولك الان
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information