اذهب الي المحتوي
أوفيسنا

ابوخليل

أوفيسنا
  • Posts

    12838
  • تاريخ الانضمام

  • Days Won

    239

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

  1. تفضل وجدت لك مثالا كما تحب استيراد بيانات.rar
  2. السلام عليكم المشكلة هذه معروفة وقديمة وقد عولجت من سنين مع بدايات منتدانا المبارك على يد الاستاذ القدير ابي هادي ابحث في المنتدى عن التقويم الهجري وخاصة تقويم ام القرى
  3. اخي الكريم يجب اختيار عنوان مناسب يصف الموضوع ابشر تم تعديل العنوان
  4. اخي الكريم/اختي الكريمة يجب اختيار عنوان مناسب يصف الموضوع تم تعديل العنوان
  5. ما عملته جميل كاخذ الاحتياط خلال خمسة ايام فيما لو لم يستخدم البرنامج في اليوم المحدد وملاحظتي تدور حول خانة الاختيار(كضابط وشرط لتنفيذ الأمر ) ضع في اعتبارك لو حدث خلل ما لخانة الاختيار وارى ان الامور المالية لا بد من توثيقها ما المانع ان يوجد جدول يتم فيه رصد العلاوة وتاريخ منحها وبناء على هذا التاريخ يتم منح العلاوة القادمة اما الاجازات فقد بينت وجهة نظري في المشاركة رقم 2
  6. لو وضع الاخ السائل مثاله المرفق على صيغة mdb لرجوت له تفاعلا من اخوانه اكثر
  7. تفضل بناء حدث على الوحدات النمطية ادراج العلاوة السنوية والاجازة الشهرية.rar
  8. اجعل خصائص الربط كما في الصورة
  9. استبدل الكود بهذا On Error GoTo Errr Dim strFldr As String strFldr = CurrentProject.Path & "\photo\" & Me.id & ".jpg" Kill strFldr Me.Requery Errr: MsgBox "تم حذف الصورة"
  10. المرفق يعمل فقط غير التاريخ 15/02/2015 الى تاريخ اليوم وستظهر لك النتيجة
  11. اولا اجعل خصائص الحقلين في التنسيق مرئي=لا ثانيا الصق هذا الكود في حدث بعد التحديث لحقل المنسدلة if comb =1 then m1.Visible=true m2.Visible=false elseif comb =2 then m2.Visible=true m1.Visible=false elseif comb =3 then m2.Visible=true m1.Visible=true end if باعتبار comb هو اسم المنسدلة
  12. يمكنك استبدالها بأي شيء واذا اردت ان تنزعها من جذورها الصق هذا الكود في حدث زر Dim strFldr As String strFldr = CurrentProject.Path & "\photo\" & Me.id & ".jpg" Kill strFldr Me.Picture1 = "" Me.Requery
  13. تفضل عرض الصورة حسب المعرف وصورة رمزية لمن لا يملك صورة Downloads.rar
  14. تم التعديل في المرفق حسب رغبتك معذرة هذه الجزئية غير واضحة عندي برنامج3.rar
  15. تفضل آمل ان يلبي حاجتك برنامج2.rar
  16. الطريقة اننا نستخرج بداية السنة القادمة او بداية الشهر القادم وذلك باستخدام متغير او باستخدام حقل داخل النموذج في المثال المرفق اظهرنا ذلك داخل حقلين في النموذج يمكنك اخفاؤهما و بناء الشرط عليهما في حدث فتح او تحميل النموذج آمل ان تكون المسألة اتضحت لك y_m_start.rar
  17. شكرا لك على الشرح والايضاح وعلى ما بذلته من جهد اذا الخاصية متوفرة في الاصدار 2013 زادك الله علما ووفقك
  18. فتحت المرفق على الاصدار 2010 والنتيجة واحدة : لا يمكن عرض التقرير من خلال النموذج اخي محمد : اذا كانت النتيجة غير ما ذكرت ارجو ان ترفق صورة يظهر فيها التقرير من خلال النموذج
  19. تفضل وحدتين نمطيتين واحدة لاول كل شهر والاخرى لبداية سنة جديدة Public Function YearStart(i As Date) As Date YearStart = DateSerial(Year(i), 1, 1) - 1 End Function Public Function MonthStart(i As Date) As Date MonthStart = DateSerial(Year(i), Month(i) + 1, 1) - 1 End Function
  20. اخي محمد اغبطك على ذوقك الرفيع في التصميم وسوف استعرض المرفق لاحقا على اصدار اوفيس أحدث في الاصدار 2003 يمتنع عرض التقرير من خلال النموذج اقصد بـ من خلال اي : عرض التقرير داخل النموذج مثل النموذج الفرعي
  21. لايمكننا استعراض التقارير من خلال النموذج بينما يمكننا عرض النماذج الفرعية من خلال التقرير
×
×
  • اضف...

Important Information