مشكلة عند فتح الاستعلام اكثر من مره

[الحياه ممر]

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

 

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

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

ولكن عند الضغط مره ثانيه على الزر لادخال قيمه اخرى يظهر لي النموذج السابق

 

راح اكتب مثل لاني لا استطيع رفع القاعدة

 

عندي قاعدة بيانات موظفين وعملت استعلام عن رقم موظف واكتب مثلاً رقم الموظف 1 ويفتح معاي النموذج مافيه اي مشكلة

لكن عند الاستعلام مره ثانية عن رقم موظف اخرى واضغط على الزر على طول يفتح معاي اخرى رقم موظف فتحته الي اهو 1

يعني مايظهر لي مربع الحوار الي يطلب مني ادخل رقم الموظف

 

 

 

ويعطيكم العافيه

[jjafferr]

 

عندي قاعدة بيانات موظفين وعملت استعلام عن رقم موظف واكتب مثلاً رقم الموظف 1 ويفتح معاي النموذج مافيه اي مشكلة

لكن عند الاستعلام مره ثانية عن رقم موظف اخرى واضغط على الزر على طول يفتح معاي اخرى رقم موظف فتحته الي اهو 1

يعني مايظهر لي مربع الحوار الي يطلب مني ادخل رقم الموظف

 

 

وعليكم السلام أختي

 

عند الاستعلام مرة ثانية ، هل النموذج الاول مقفل؟

 

رجاء ان تعطينا تفصيل أكثر ، حيث بدون البرنامج ، يجب ان نعرف تفاصيل أكثر 

 

 

جعفر

[الحياه ممر]

شكرأ لك أخي على تواجدك هنا

 

عملت استعلام انه يطلب مني رقم التوظيف ومن ثم يظهر لي جميع البيانات لحامل هذا الرقم

وعملت نموذج مبني على الاستعلام, وعند فتح النموذج يطلب مني رقم التوظيف  (مثلا ادخل رقم 1) وادخل رقم التوظيف ويظهر لي البيانات مافيه اي مشكله في الاستعلام او النموذج

 

لكن  المشكلة عند اغلاق النموذج وافتحه مره ثانيه مايطلب مني رقم التوظيف مباشر يفتح لي بيانات رقم التوظيف السابق الي اهو (رقم التوظيف1)

[jjafferr]

أفضل شئ ممكن تعمليه ، انك ترفقين هذا الجزء من البرنامج:

1. الاستعلام

2. النموذج

3. سجلين او 3 في الجدول

 

وعليه نشوف وين المشكلة 

 

 

جعفر

[الحياه ممر]

أخي عملت شي مبسط عن المشكلة

 

اتمنى وفقت في ذلك

قاعدة بيانات1.rar

[jjafferr]

كما توقعت ، النموذج لم يُغلق ، فعليه ، القيمة السابقه لا تزال موجودة!!

 

غيري الكود الموجود عندك ، بهذا الكود:

 

نموذج1

Private Sub أمر0_Click()
DoCmd.OpenForm "استعلام1", acNormal
'Me.Visible = False
End Sub

ولنموذج الاخر ، استعلام1:

Private Sub أمر6_Click()
'DoCmd.OpenForm "نموذج1", acNormal
'Me.Visible = False
DoCmd.Close
End Sub

جعفر

[الحياه ممر]

غيرت الكود لكن ما ضبط 

[jjafferr]

تفضلي 

56.قاعدة بيانات1.accdb.zip

[الحياه ممر]

يعطيك الف عافية  لكن هل هناك طريقة لاخفاء نموذج1 عند فتح التقرير؟

 

دمت بخير

تم تعديل أبريل 23, 2015 بواسطه الحياه ممر

[jjafferr]

الطريقة اللي انا استعملها هي:

 

في اول نموذج يفتح في برنامجك ، في النموذج1 ، في الحدث عند التحميل ، نحط الكود التالي:

docmd.maximize

وجميع النماذج ما تكون منبثقة ،

واستخدام هذه الطريقة: http://www.officena.net/ib/index.php?showtopic=60864&p=391815

 

تكون النتيجة مثل ما طلبتي 

 

 

جعفر

56.قاعدة بيانات1.accdb.zip

[الحياه ممر]

أشكرك كل الشكر

 

 

دام عطاءك