اذهب الي المحتوي

ابوخليل

أوفيسنا
  • Content count

    8,210
  • تاريخ الانضمام

  • تاريخ اخر زياره

  • Days Won

    88

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

  1. ابوخليل

    كود زر امر فتح تقرير بشرط

    هذي ما تبي شيخ . يعني انك كمبرمج ستعتمد الحقل الذي ترغب والذي يحقق النتيجة الصحيحة
  2. ابوخليل

    كود زر امر فتح تقرير بشرط

    وعليكم السلام Dim i As Boolean i = Forms!FORMS_101!FARY_ADD!CK_1 If i = True Then DoCmd.OpenReport "REBORT_101", acViewPreview Else DoCmd.OpenReport "REBORT_102", acViewPreview End If 334.mdb
  3. عليكم السلام ورحمة الله وبركاته الموضوع مخالف لقواعد وقوانين المشاركات يوجد اكثر من طلب داخل الموضوع يجب فتح موضوع جديد لكل سؤال او استفسار قوانين المشاركة وضعت لصالح السائل اولا ثم لمصلحة العموم يغلق
  4. السلام عليكم اخوي حربي حقيقة طلبك غريب لهذا الواحد يتحير ويتساءل ما الفائدة من هذه الفكرة ، يعني اذا تم التأشير على الخانة ماهي العمليات التي ستترتب على هذا التأشير انا اقول يمكن تطبيق ما تفكر به بأسهل مما تتصور مثلا : لماذا لا تضع حقل غير منضم يظهر فيه عدد ايام الشهر ، وتعمل بناء عليه عملياتك ويمكن ايضا بدل الحقل يكون متغير تستخدمه في اي مكان من البرنامج
  5. كان يجب عليك تطبيق الامثلة اعلاه الخطأ الذي وقعت فيه هو انك في جدول الانتداب : المنطقة والادارة والتخصص عبارة عن نصوص وانت جعلت مربعات التحرير في نموذج التصفية في مثالك الجديد عبارة عن ارقام بينما مربعات التحرير في الحل الذي قدمته لك عبارة عن نصوص ، وانما عملتها لك كنصوص بناء على البيانات في جدول الانتداب ارجع وقارن بين مصادر مربعات التحرير في الامثلة اتمنى ان تتمكن من الوصول للحل بنفسك ..
  6. السلام عليكم جربت اكثر من برنامج اصلاح وكانت النتيجة جدول واحد سليم وخالي من البيانات تفضلوا برنامج الاصلاح accessfix.rar
  7. الحمدلله ان وجدت مطلوبك
  8. ابوخليل

    تهنئة بالشهر الفضيل

    كل عام وانتم بخير
  9. السبب ان بعض الحقول خالية في الجدول والحل انك تسمح بعرض الحقول الخالية بحيث يصبح المعيار Like "*" & [forms]![frist]![Combo14] Or Is Null وفقك الله dbx (1).mdb
  10. وعليكم السلام اخوي حسين اعتقد هذا تجده في خصائص الطابعة اكيد تجد في خصائص الطابعة بند لتثبيت الدرج الافتراضي
  11. في المثال السابق في الخيار الاول يظهر جميع القيم فعلا وفي الخيار الثاني يخفي الاصفار
  12. عزيزي الاستعلام داخل التقرير اذا لم تختر شيئا من المربعات فسيتم عرض الجميع ، ولاحظ التدرج بالتصفية من العام الى الذي اخص منه ايضا يمكن التصفية حسب مربع واحد انظر وتفحص وابحث ففي المثال غنية عن الشرح والمقال dbx.mdb
  13. ابوخليل

    عمليه حسابيه في السجل

    وعليكم السلام مع اختلافي معك في وضع القيمة داخل الجدول ، فبالامكان وضعها في متغير هذه هي طريقة استخراج القيمة حسب فكرتك ويمكنك ان تضعها في المكان الذي يناسبك Dim i, x As Long i = DMin("id", "tbl1") x = DMax("id", "tbl1") diffrent = Nz(DLookup("d2", "tbl1", "id=" & x), 0) - Nz(DLookup("d1", "tbl1", "id=" & i), 0) ويمكن استبدال المتغيرات بحقل id اذا كان ظاهرا معلوما dbx.mdb
  14. عليكم السلام اخوي اتمنى تقبل نقدي بصدر رحب من النظرة الاولى جدول1 ليس بعيد عن بيئة اكسل في اكسس نتعامل مع قاعدة بيانات علائقية الاساسات عندك بحاجة الى اعادة نظر
  15. تفضل هذه بعضا منها والا فالمنتدى مليء بامثالها هنا وهنا وهنا وهنا
  16. اخي الفاضل jo_2010 سؤالك الاخير الافضل فصله بموضوع جديد يخصه علما ان المنتدى مليء بمثل طلبك فقط احسن البحث واختر المفردة المناسبة ايضا ضمن سؤالك مثال بسيط جدا للتطبيق عليه
  17. لم تذكر القيم السالبة في موضوعك وانا غفلت عنها تفضل تم التعديل على المعيار db1.mdb
  18. نعم اذا لزم الامر .. مثلا هذا الاستعلام يشتمل على عمليات خاصة وهو مصدر لعدة تقارير وفي الوقت نفسه لكل تقرير معايير تتعارض مع معايير التقرير الآخر في الاستعلام الذي عملناه داخل التقرير باعتبار ان هذا الاستعلام الداخلي مبني على الاستعلام الاصلي
  19. مجموعة الخيارات سميناها etar هذا الاطار ممكن نجعله بدون قيمة بحيث لما نفتحه تكون الخانات خالية او اننا نعطية قيمة تساوي احد قيم الخانات الموجودة فلما نفتح النموذج نشاهد ان احد الخانات تم التأشير عليها ولكن عند التحديث فهذا الاطار ياخذ قيمة الخانة التي تأشر عليها وعندنا خانتين واحدة قيمتها=1 والثانية = 2 فلما نأشر على الخانة الاولى يصبح قيم الاطار etar=1 وهذا الكلام يفسر لك الكود اللي عملناه : If etar = 1 Then Me.esthkak = Me.agra - (Me.GiapNum * 11666) ElseIf etar = 2 Then Me.esthkak = Me.agra - (Me.GiapNum * 11290) End If
  20. جرب : لنفرض ان اسم الاطار etar1 واسم النموذج frm1 1- اجعل قيمة الخيار الاول = صفر وقيمة الخيار الثاني = 1 المعيار : >=[forms]![frm1]![etar1]
  21. مجموعة الخيارات موجودة جاهزة ضمن صندوق الادوات في اكسس كل الذي عليك هو انزال الاطار والمعالج هو الذي يساعدك في اكمال المهمة جرب كل الخيارات المتاحة واعد التجربة لترى الفرق الجزء الذي يصعب عليك فهمه اذكره لنزيد الايضاح والشرح
  22. السلام عليكم تم اختصار الوحدات النمطية الموجودة في المثال بواحدة تقوم بالمهمة Public vYears As Integer, vMonths As Integer, vWeeks As Integer, vDays As Integer Function CalcAge(vDate1 As Date, vdate2 As Date) As String vMonths = DateDiff("m", vDate1, vdate2) vDays = DateDiff("d", DateAdd("m", vMonths, vDate1), vdate2) If Day(vDate1) = 31 Then vDays = DateDiff("d", DateAdd("m", vMonths, vDate1), vdate2) - 1 If vDays < 0 Then vMonths = vMonths - 1 vDays = DateDiff("d", DateAdd("m", vMonths, vDate1), vdate2) End If vYears = vMonths \ 12 vMonths = vMonths Mod 12 vWeeks = vDays \ 7 vDays = vDays Mod 7 End Function حساب التاريخ باليوم والاسبوع والشهر والسنة.mdb
×