ابوخليل

شكرا على المعلومة

بقليل من البحث تجد بغيتك انظر هنا http://www.officena.net/ib/?showtopic=36736 وهنا http://www.officena.net/ib/index.php?showtopic=37846

اخي الكريم احرص على اختيار عنوان مناسب يصف موضوعك تم تعديل العنوان

الحمد لله ،،،

تفضل db2.rar

في المرفق ادناه يتم تصفية التقرير حسب النموذج وبالنسبة لما تريد في الصورة فهو موجود فعلا وكل ماعليك فعله هو زيادة المعايير حسب الرغبة tast6.rar

كنت ذكرت في اجابتي السابقة استخدام مربع السرد ولكن مربع السرد نستخدمه عند اختيار القيم من حقل واحد وهنا ستتم التصفية بناء على اكثر من حقل لذا وضعت لك في النموذج حقول بعدد الحقول في الاستعلام وجعلت خيارها ( أو) حيث ستلاحظ انها متدرجة ومعنى (أو) اي اجراء التصفية بأي معيار يكتب وصرف النظر عن الذي لا يكتب فيه شيء ، أما لو كانت على سطر واحد فحينها تجبر على الكتابة في جميع الحقول الا اذا استخدمنا Like انظر وجرب وحاول db1.rar

وعليكم السلام ورحمة الله وبركاته ومرحبا بك في منتدى اكسس مطلوبك ممكن ويسير بإذن الله وهو كالتالي : - سيكون فتح التقرير من خلال النموذج - نضع في النموذج مربع سرد يحتوي على الحقول المطلوب تصفية التقرير عند الاختيار - انشاء استعلام يكون هو مصدر بيانات التقرير وتكون الحقول في مربع السرد هي المعايير في الاستعلام فقط هذا كل شيء ان لم تتوصل الى الحل ارفق مثالك وليكن على صيغة mdb

ارفع نسخة من المرفق على صيغة mdb

الآن نرجع لمثالك الأول ونعدل فقط على حقول الارقام داخل الكود فقط انظر النتيجة آمل ان تعجبك tast5.rar

افتح البرنامج واصبعك على shift

تم التطبيق على حقلين رقمي ونصي ، فاكمل البقية كما في المثال جعلنا الحقل الرقمي مطابق اما النصي فيبحث في اي حرف ولا يفضل جعله مطابقا وحينها ستضطر الى كتابة الاسم الرباعي كاملا بلا اخطاء وهذا صعب على المستخدم ، ولو اردت ان يكون مطابقا فكل ما عليك عمله هو ان تزيل النجمتين الموجودتين داخل الكود فقط tast4.rar

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

ومن باب جمع المتشابهات : هذا كود رائع ابدعته انامل استاذنا عبدالله المجرب كإجابة لمسابقة مجلة اوفيسنا لشهر مايو 2014 Private Sub AR_KeyPress(KeyAscii As Integer) If KeyAscii >= 65 And KeyAscii <= 122 Then KeyAscii = 0 If KeyAscii > 47 And KeyAscii < 58 Then KeyAscii = 0 End Sub Private Sub EN_KeyPress(KeyAscii As Integer) If KeyAscii > 122 Then KeyAscii = 0 If KeyAscii > 47 And KeyAscii < 58 Then KeyAscii = 0 End Sub Private Sub NUMB_KeyPress(KeyAscii As Integer) Select Case KeyAscii Case 46, 48 To 57 Case Else KeyAscii = 0 End Select End Sub Private Sub txtan_KeyPress(KeyAscii As Integer) If KeyAscii > 47 And KeyAscii < 58 Then KeyAscii = 0 End Sub

حسب مثالك يمكن التطبيق وضبط الارقام ولكن البيانات لن يتم عرضها عند فتح النموذج ، وانما العرض سيكون عند اجراء البحث اما ان اردت البيانات ظاهرة في النموذج المستمر فانت مضطر الى تطبيق ذلك من خلال الكود البرمجي ، ويمكن في هذا الحال الاستغناء عن الاستعلام وجعل الجدول هو المصدر

ارفق مثالا للتطبيق وليكن على الامتداد mdb

بادىء ذي بدء يطيب لي ان احيي استاذنا القدير اسامة حمدا لله على سلامتك ، جعلها الله سلامة دائمة عليك وعلى اهلك وذريتك وأحبابك والمسلمين عامة ومن طول الغيبات جاب الغنايم ثم الى الاخ السائل : الجواب من خلية B اختر تنسيق شرطي ثم من مربع التحرير اختر تساوي واكتب في المربع A]=1000] ثم اختر نوع التنسيق وهو هنا عدم التفعيل سيكون الحقل b حين تحقق الشرط باهتا

وهذه احدى صيغ الكود المستخدم كمعيار داخل الاستعلام : Between [Forms]![frmserch]![text1]and[Forms]![frmserch]![text2] frmserch هو نموذج البحث text1 حقل بداية التاريخ text2 حقل نهاية التاريخ

طبعا يمكن وهو المتبع غالبا

حل اخونا عبدالرحمن 100% ولكن لا بد تضع المعيار في مكانه المناسب ، والمكان المناسب هو في الحقل (أو)

اخونا علي تحية طيبة وبعد لاستخراج مطلوبك انت مخير بين امرين : الاول : ان تنشء استعلام للحصر بين تاريخين فقط ويكون هو مصدر استعلام المجاميع الثاني : ان تستخرج المجاميع من استعلامك باستخدام الدالة Dsum داخل محرر الفيجوال او داخل خلية معينة

الخطأ في اسم النموذج الرئيس مثال بحث2.rar

احفظه على الامتداد mdb ثم ارفقه

تم تعديل العنوان في المرات القادمة 1- اكتب عنوانا مناسبا يصف الموضوع 2- يكتفى بسؤال واحد في كل موضوع جديد جزيت خيرا ،،،

ادرج في آخر سطر الكود وقبل النص التعريفي الذي ستكتبه علامة تنصيص مفردة ( حرف الطاء بدون شفت ) ستلاحظ ان النص انقلب الى اللون الاخضر وطبعا هي الطريقة المتبعة لايقاف اي سطر برمجي عن العمل