اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

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


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

السلام عليكم

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

 

يوجد عندي 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...

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

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

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

Important Information