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

ابوخليل

أوفيسنا
  • Posts

    12,480
  • تاريخ الانضمام

  • Days Won

    233

كل منشورات العضو ابوخليل

  1. التذكير بحاجات اخواننا التي نقدر عليها مطلوب والدعاء لهم هو اقل حقوقهم علينا ومع هذا نحصل باذن الله على مثل ما ندعوا لهم به فلا تبخلوا على أنفسكم
  2. ومن باب جمع المتشابهات : هذا كود رائع ابدعته انامل استاذنا عبدالله المجرب كإجابة لمسابقة مجلة اوفيسنا لشهر مايو 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
  3. حسب مثالك يمكن التطبيق وضبط الارقام ولكن البيانات لن يتم عرضها عند فتح النموذج ، وانما العرض سيكون عند اجراء البحث اما ان اردت البيانات ظاهرة في النموذج المستمر فانت مضطر الى تطبيق ذلك من خلال الكود البرمجي ، ويمكن في هذا الحال الاستغناء عن الاستعلام وجعل الجدول هو المصدر
  4. ارفق مثالا للتطبيق وليكن على الامتداد mdb
  5. بادىء ذي بدء يطيب لي ان احيي استاذنا القدير اسامة حمدا لله على سلامتك ، جعلها الله سلامة دائمة عليك وعلى اهلك وذريتك وأحبابك والمسلمين عامة ومن طول الغيبات جاب الغنايم ثم الى الاخ السائل : الجواب من خلية B اختر تنسيق شرطي ثم من مربع التحرير اختر تساوي واكتب في المربع A]=1000] ثم اختر نوع التنسيق وهو هنا عدم التفعيل سيكون الحقل b حين تحقق الشرط باهتا
  6. وهذه احدى صيغ الكود المستخدم كمعيار داخل الاستعلام : Between [Forms]![frmserch]![text1]and[Forms]![frmserch]![text2] frmserch هو نموذج البحث text1 حقل بداية التاريخ text2 حقل نهاية التاريخ
  7. حل اخونا عبدالرحمن 100% ولكن لا بد تضع المعيار في مكانه المناسب ، والمكان المناسب هو في الحقل (أو)
  8. اخونا علي تحية طيبة وبعد لاستخراج مطلوبك انت مخير بين امرين : الاول : ان تنشء استعلام للحصر بين تاريخين فقط ويكون هو مصدر استعلام المجاميع الثاني : ان تستخرج المجاميع من استعلامك باستخدام الدالة Dsum داخل محرر الفيجوال او داخل خلية معينة
  9. الخطأ في اسم النموذج الرئيس مثال بحث2.rar
  10. احفظه على الامتداد mdb ثم ارفقه
  11. تم تعديل العنوان في المرات القادمة 1- اكتب عنوانا مناسبا يصف الموضوع 2- يكتفى بسؤال واحد في كل موضوع جديد جزيت خيرا ،،،
  12. ادرج في آخر سطر الكود وقبل النص التعريفي الذي ستكتبه علامة تنصيص مفردة ( حرف الطاء بدون شفت ) ستلاحظ ان النص انقلب الى اللون الاخضر وطبعا هي الطريقة المتبعة لايقاف اي سطر برمجي عن العمل
  13. فيه حاجة افضل وهي اني اوضح لك ما خفي عليك انظر الى المرفق الجديد 1- مصدر بيانات التقرير هو الاستعلام 2- عملنا مربع نص للرقم في النموذج وسميناه "الرقم" 3- وضعنا معيار في الاستعلام حسب الرقم الذي في النموذج هذا كل شيء الآن التقرير لا يظهر الا البيانات التي في النموذج فقط الجدول الواحد افضل لك فمن خلاله سيتحقق كل ما تفكر به
  14. تفضل انظر المعيار في الاستعلام داخل التقرير db1.rar
  15. بداية اخي الكريم لك دعوة منا طيبة هنا فنرجو منك تلبية الدعوة http://www.officena.net/ib/index.php?showtopic=41520 الشيء الآخر والمهم ولا شك هو اهم من سؤالك ان مشروعك يحتاج الى اعادة صياغة كيف ؟ انت وضعت في قاعدة البيانات 9 جداول و 9 استعلامات و 9 نماذج و 9 تقارير والمفروض ان تختصر كل هذه في جدول واحد واستعلام واحد ونموذج واحد وتقرير واحد ، وتنشء في الجدول حقل جديد يبين النوع ملحوظة : لا يمكنني المتابعة معك لعدم تمكني مستقبلا من فتح امثلتك من جهازي الذي اعمل عليه ، وحتى اطلع على مثالك نقلته الى جهاز آخر يحتوي على اصدار اكسس اعلى من 2003 ان اردت الاستمرار والزيادة في التعلم حاول ان تكون المرفقات على امتداد mdb
  16. شكرا لاخونا حسان وجزاه الله خيرا وحيث اني لم اطلع على الحل المرفق بحكم اختلاف الاصدار ’ ولكنه عرض الحل في مشاركته الاولى يقصد هكذا : Nz([Gom_mont]);0 اخونا كريم : استبدل جملة الجمع في الاستعلام بهذه : Montant_Global: nz([Mont_Eau])+nz([Rar10])+nz([Mont_Gom])
  17. لتلافي ذلك علينا كتابة الاحداث بحروف انجليزية فيجب التأكد من عدم وجود ولو حدث واحد بحروف غير الانجليزية كالعربية والفرنسية وغيرها .... الدليل : شغل برنامج معمول على الفيجوال بيسك على اي حاسبة ( الفيجوال لا يسمح بتغيير لغته الا في التسميات ) او شغل برنامج اكسس خالي من الاحداث ... اولا يتضمن احداثا مخالفة على اي حاسبة
  18. if Not IsNull([ID]) then MsgBox"يوجد بيانات" else Exit Sub end if
  19. يتم لك ذلك من خلال التقرير باستخدام خاصية الفرز ، انظر التوضيح في الصورة المرفقة
  20. درر .. منتقاة .. امتعتنا الله يسعدك و يوفقك دنيا وآخرة
  21. معيار الرواتب موجود في استعلام الالحاق
  22. سبب عدم الوصول الى حل هو بسبب عدم تحقق خصيصتين الاولى : نوع العلاقة بين اعمدة الجدولين في الاستعلام الثانية : عدم امكانية القراءة من حقول وهمية غير موجودة تم التعديل : الاولى بتعديل العلاقة الثانية : استخدام IsNull بدلا من Null db1.rar
×
×
  • اضف...

Important Information