ابوخليل

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

ومن باب جمع المتشابهات : هذا كود رائع ابدعته انامل استاذنا عبدالله المجرب كإجابة لمسابقة مجلة اوفيسنا لشهر مايو 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- يكتفى بسؤال واحد في كل موضوع جديد جزيت خيرا ،،،

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

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

ممكن انظر الصورة المرفقة

تفضل انظر المعيار في الاستعلام داخل التقرير db1.rar

بداية اخي الكريم لك دعوة منا طيبة هنا فنرجو منك تلبية الدعوة http://www.officena.net/ib/index.php?showtopic=41520 الشيء الآخر والمهم ولا شك هو اهم من سؤالك ان مشروعك يحتاج الى اعادة صياغة كيف ؟ انت وضعت في قاعدة البيانات 9 جداول و 9 استعلامات و 9 نماذج و 9 تقارير والمفروض ان تختصر كل هذه في جدول واحد واستعلام واحد ونموذج واحد وتقرير واحد ، وتنشء في الجدول حقل جديد يبين النوع ملحوظة : لا يمكنني المتابعة معك لعدم تمكني مستقبلا من فتح امثلتك من جهازي الذي اعمل عليه ، وحتى اطلع على مثالك نقلته الى جهاز آخر يحتوي على اصدار اكسس اعلى من 2003 ان اردت الاستمرار والزيادة في التعلم حاول ان تكون المرفقات على امتداد mdb

شكرا لاخونا حسان وجزاه الله خيرا وحيث اني لم اطلع على الحل المرفق بحكم اختلاف الاصدار ’ ولكنه عرض الحل في مشاركته الاولى يقصد هكذا : Nz([Gom_mont]);0 اخونا كريم : استبدل جملة الجمع في الاستعلام بهذه : Montant_Global: nz([Mont_Eau])+nz([Rar10])+nz([Mont_Gom])

لتلافي ذلك علينا كتابة الاحداث بحروف انجليزية فيجب التأكد من عدم وجود ولو حدث واحد بحروف غير الانجليزية كالعربية والفرنسية وغيرها .... الدليل : شغل برنامج معمول على الفيجوال بيسك على اي حاسبة ( الفيجوال لا يسمح بتغيير لغته الا في التسميات ) او شغل برنامج اكسس خالي من الاحداث ... اولا يتضمن احداثا مخالفة على اي حاسبة

if Not IsNull([ID]) then MsgBox"يوجد بيانات" else Exit Sub end if

يتم لك ذلك من خلال التقرير باستخدام خاصية الفرز ، انظر التوضيح في الصورة المرفقة

درر .. منتقاة .. امتعتنا الله يسعدك و يوفقك دنيا وآخرة

شكرا ابا صلاح على الباغي تدور الدوائر ،،،

معيار الرواتب موجود في استعلام الالحاق

سبب عدم الوصول الى حل هو بسبب عدم تحقق خصيصتين الاولى : نوع العلاقة بين اعمدة الجدولين في الاستعلام الثانية : عدم امكانية القراءة من حقول وهمية غير موجودة تم التعديل : الاولى بتعديل العلاقة الثانية : استخدام IsNull بدلا من Null db1.rar