حسن سعيد قام بنشر نوفمبر 28, 2016 قام بنشر نوفمبر 28, 2016 السلام عليكم ورحمه الله وبركاته لدي نموذج بحث المطلوب فيه عند النقر المزدوج على اسم الموظف يقوم بفتح نموذج اخر يحتوي على بيانات الموظف بشرط ان يطابق رقم الملف (( filenumber )) كما هو موضح بالصورة search.rar
moham_q قام بنشر نوفمبر 28, 2016 قام بنشر نوفمبر 28, 2016 (معدل) اخي حسن ضع هذا الكود في حقل textbox الموجود في النموذج الفرعي ... empname هو اسم textbox وعلى افتراض هو الاسم و الذي سوف يقوم باظهار بيانات الحقل المراد البحث عنه ()Private Sub empname_Click " " ,DoCmd.Close "[id]=" & Me![ID] , , , " اسم النموذج الفرعي"DoCmd.OpenForm End Sub تم تعديل نوفمبر 28, 2016 بواسطه moham_q 1
jjafferr قام بنشر نوفمبر 28, 2016 قام بنشر نوفمبر 28, 2016 وعليكم السلام احذف السطر الاول في الكود ، استخدم السطر الثاني: 'DoCmd.OpenForm "full", , , " =[filenumber]" & Me.filenumber DoCmd.OpenForm "full", , , "[filenumber]=" & Me.filenumber جعفر 1
حسن سعيد قام بنشر نوفمبر 28, 2016 الكاتب قام بنشر نوفمبر 28, 2016 5 دقائق مضت, moham_q said: اخي حسن ضع هذا الكود في حقل textbox الموجود في النموذج الفرعي ... emp_nam هو اسم textbox وعلى افتراض هو الاسم و الذي سوف يقوم باظهار بيانات الحقل المراد البحث عنه ()Private Sub emp_nam_Click " " ,DoCmd.Close "[id]=" & Me![ID] , , , " اسم النموذج الفرعي"DoCmd.OpenForm End Sub شكرا لك
moham_q قام بنشر نوفمبر 28, 2016 قام بنشر نوفمبر 28, 2016 استاذ جعفر المحترم سؤالي اليس من الافضل اغلاق النموذج الرئيسي لكي يتم عرض نتائج بحث النموذج الفرعي فقط .. تحياتي لك وشكراااا
حسن سعيد قام بنشر نوفمبر 28, 2016 الكاتب قام بنشر نوفمبر 28, 2016 4 دقائق مضت, jjafferr said: وعليكم السلام احذف السطر الاول في الكود ، استخدم السطر الثاني: 'DoCmd.OpenForm "full", , , " =[filenumber]" & Me.filenumber DoCmd.OpenForm "full", , , "[filenumber]=" & Me.filenumber جعفر يعني الخطأ في موقع = ..... وصار لي ساعه احاول ومو جايه معاي ههههه شكرا لك استاذي
jjafferr قام بنشر نوفمبر 28, 2016 قام بنشر نوفمبر 28, 2016 10 ساعات مضت, moham_q said: استاذ جعفر المحترم سؤالي اليس من الافضل اغلاق النموذج الرئيسي لكي يتم عرض نتائج بحث النموذج الفرعي فقط .. تحياتي لك وشكراااا وعليكم السلام اخي محمد 1. اذا اردت استعمال الكود الذي ذكرته انت ، فيجب تغير ترتيب اسطر الكود كالتالي: DoCmd.OpenForm "اسم النموذج", , , "[id]=" & Me![ID] DoCmd.Close acForm, "Search" لأنك اذ اغلقت النموذج Search قبل فتح النموذج الثاني ، فكيف ستحصل على قيمة ID من نموذج مغلق وعليه ، فيجب عليك ذكر اسم النموذج الذي تريد اغلاقة (بعد فتح النموذج الثاني) ، لأنه عندك الان نموذجين مفتوحين ، وبدون ذكر اسم النموذج ، فان الكود سيغلق النموذج الذي في المقدمة /الواجهة ، وهو النموذج الذي فتحته الآن ، يعني فتحته واغلقته 2. استعمال طريقتك التي ذكرتها ، هي نتيجة ان نموذج البحث منبثق ، لذلك وجب عليك فتح النموذج الثاني وغلق نموذج البحث ، اما انا ، فنادرا استخدم نموذج منبثق ، لذلك ، لا داعي لأغلاق نموذج البحث ، حيث ان النموذج الثاني سيملئ الشاشة ويغطي على نموذج البحث طبعا الكل عنده اسبابه في عمل النماذج مثل ما يتناسب مع برنامجه ، ولكن وللأسف الشديد ، اصبح موضوع النماذج والتقارير المنبثقة شبه عادة يستعملها الكثيرون ، ومعظمهم يستخدم هذ الطرق حتى يعطي لبرنامجه جمالا ، او حتى لا يُشعر المستخدم انه يستخدم اكسس 10 ساعات مضت, حسن سعيد said: يعني الخطأ في موقع = ..... وصار لي ساعه احاول ومو جايه معاي ههههه هنا تُرجح الخبرة وفي الواقع اذا حصل لي ربكة في كود معين ، فانا ابحث عن كود سابق عملته ، او حتى اطلب من اكسس ان يُريني مثال اقتدي به جعفر 2
moham_q قام بنشر نوفمبر 28, 2016 قام بنشر نوفمبر 28, 2016 استاذ جعفر المحترم .. ومنك نستفيد في المعلومات التي ادرجتها حضرتك في الاجابة الرائعة .. تحياتنا لك
ابو يـــارا قام بنشر أغسطس 17, 2019 قام بنشر أغسطس 17, 2019 السلام عليكم شباب كيف اكتب الكود لفتح نموذج بستخدام شرطين ولكم جزيل الشكر
ابو يـــارا قام بنشر أغسطس 17, 2019 قام بنشر أغسطس 17, 2019 انا جحرب اضيف AND واكتب الشرط الثاني ما نجح للعلم جرب كل شرط لوحده تماااام هذا الكود الذي جربته DoCmd.OpenForm "DEC_D_Cont", acNormal, , "[Nem_1] =" & "'" & Me.Nem_1 & "'" And "[Nem_2] =" & "'" & Me.Nem_2 & "'"
د.كاف يار قام بنشر أغسطس 17, 2019 قام بنشر أغسطس 17, 2019 خطأ ماهو كذ كتابة الشرط 9 دقائق مضت, ابو يـــارا said: انا جحرب اضيف AND واكتب الشرط الثاني ما نجح للعلم جرب كل شرط لوحده تماااام هذا الكود الذي جربته DoCmd.OpenForm "DEC_D_Cont", acNormal, , "[Nem_1] =" & "'" & Me.Nem_1 & "'" And "[Nem_2] =" & "'" & Me.Nem_2 & "'" ماهي الدالة التي تريد استدعائها لتحقيق الشرط
ابو ياسين المشولي قام بنشر أغسطس 17, 2019 قام بنشر أغسطس 17, 2019 جرب هذا او افتح موضوع جديد وارفق ملف نص DoCmd.OpenForm "DEC_D_Cont", acNormal, , "[Nem_1] ='" & "'" & Me.Nem_1 & "'" And "[Nem_2] ='" & "'" & Me.Nem_2 & "'" رقم DoCmd.OpenForm "DEC_D_Cont", acNormal, , "[Nem_1] = & " & Me.Nem_1 & " " And "[Nem_2] = & " & Me.Nem_2 & "" 1
د.كاف يار قام بنشر أغسطس 17, 2019 قام بنشر أغسطس 17, 2019 اخي حاول ان تستخدم طرق بسيطه بناء على الصورة اعلاه إن اسهل طريقه هي ان تضع في معيار الاستعلام للنموذج full [forms]![search]![empnumper] بناء عليه لن يتم عرض اي سجل سوى المتوافق مع السجل في صفحة البحث و حتى تضبط الأمور اكثر في تبويب الخصائص > غير ذلك > دورة السجل = السجل الحالي 1
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.