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

jamal2080

03 عضو مميز
  • Posts

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

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

كل منشورات العضو jamal2080

  1. السلام عليكم ورحمة الله وبركاته انشاء علاقات بين الجدول ولكن فراغ الجدول من البيانات كثيرة عندم اريد استرجاع البيانات لا يقبل استرجاعها - هل توجد طريقة استرجاع البيانات دفعة وحدة فرزها من المكرر ارفاق لكم مثل طريقة الربط الجدول اسف نسيت مثل Database13.rar
  2. السلام عليكيم ورحمة الله وبركاته عندى برنامج طلبات استلام مواد اريد انا اعمل اعتماد او حفظ نهاية لطلب لايقبل التعديل او حذف انا ليس عندى فكره معين لكم الامر 1080.rar
  3. هذا المرفق تفضل اقبل اى تعديل علية من الاخوة الكرام 1080.rar
  4. السلام عليكيم ورحمة الله وبركاته عندى برنامج طلبات استلام مواد اريد انا اعمل اعتماد نهاية لطلب لايقبل التعديل او حذف انا ليس عندى فكره معين لكم الامر
  5. تفضل اخى... هذا مثال الذى طلبته 1080.rar
  6. اخى خليل بعد السلام وتحية طيبة.. عند رمز 57 و 58 و 70 خاص بالعهدة زارر اسمة car_2 غير ممكن عندى فتح النمودج اما 81 و69 قطع غيار سيارات عندى زارر اسمة car_1 غير ممكن عندى فتح النمودج
  7. بعد التحية والسلام .. عندى مربع سرد وتحرير مربوط مع جدول وصف الطلبية قطع غيار السيارات واليات ثقيلة يرمز برقم 81 الاطارات الخارجية والنضائد يرمز برقم 69 اجهزة الحاسب الآلي محمول و ملحقاتها يرمز برقم 57 اجهزة الحاسب الآلي مكتبية و ملحقاتها يرمز برقم 58 الات تصوير مستندات يرمز برقم 70 عندما اختر 81 او 69 تفعيل زار امر Car_1 وغير ذلك يلغى تفعيل زار امر Car_1 عندما اختر 57 او 58 او 70 تفعيل زار امر Car_2 وغير ذلك يلغى تفعيل زار امر Car_2 هل هذا الكود Private Sub Leb_1_AfterUpdate() If Leb_1 = 81 Then Me.Car_1.Enabled = True Else Me.Car_1.Enabled = False End If If Leb_1 = 69 Then Me.Car_1.Enabled = True Else Me.Car_1.Enabled = False End If If Leb_1 = 57 Then Me.Car_2.Enabled = True Else Me.Car_2.Enabled = False End If If Leb_1 = 58 Then Me.Car_2.Enabled = True Else Me.Car_2.Enabled = False End If If Leb_1 = 70 Then Me.Car_2.Enabled = True Else Me.Car_2.Enabled = False End If End Sub
  8. شكرا اخى المهندس قاسم لك منى كل احترام وتقدير
  9. انا اسف تعديل الاخ الفاضل المهندس قاسم ليس الاخ المذكور اسمة
  10. السلام عليكم ورحمه الله وبركاتة تم تعديل ملف من الاخ محمد احمد لطفى مشكور .... التعديل رقم الفاتورة على مربع نص غير منضم وانا اريد عمل رقم الفاتورة على مربع نص منضم لكم منى كل احترام وتقدير 1080.rar
  11. شكرا لحسن تعاونكم معنا اخى Eng.Qassim اطلب طريقة بحث فى نمودج عن طريقة نمودج مثل البحث افترضى اكسيس لو سماحة. تمنياتي لك بالتوفيق والنجاح ومزيد من التقدام
  12. كيف اجعل حجم النماذج مناسب لجميع الشاشات لجميع اجهزة الكمبيوتر
  13. اخى برانامج يشتغل عادى
  14. اسف جدا لا اعرف كيف ادخال كود هذا مثال 1080.rar
  15. السلام عليكم ورحمة الله وبركاتة نهارك طيب انشاء الله.. عندى مشكلة فى اعداد رقم فاتورة تكون من حروف ورقم وجزائين من التاريخ على سبيل المثل تاريخ اليوم RD131990223 1 - رمز RD i هو تقرير استلام مواد مباشرة 2 - اما الرقم 13199 هو رقم تقرير الاستلام 3 - الرقم 02 يعنى شهر الحالى 4 - الرقم 23 يعنى السنة ايضا فى ترقيم
  16. بعد السلام اريد طريقة بحث مثل ملف المرافق بحث كثر لا اسنطيع معرفة الطريقة ... ارجوا الاهتمام حتى فكره يستفيد بها الاخرين ولكم منا فائق الاحترام والتقدير 1080.rar
  17. شكرا جزيل اخى محمد احمد لطفى لكي مني كل التقدير والاحترام
  18. السلام عليكم ورحمة الله وبركاتة اريد التعديل على نمودج التاريخ اذا اختار الشهر الحالى يعطنى شهر فبراير فى مربع السرد والتحرير 1080.rar
  19. مبارك ان شاء الله ـ اختيار موفق من فريق الموقع
  20. السلام عليكم ورحمة الله وبركاتة - اريد من اعضاء منتدى الاكسس فى مساعدة طريقة بحث متقدم من فورم اخر نفس البحث افترضى الاكسيس 1 - رقم الفاتورة 2 - رقم طلب الشراء
  21. شكرا لك أستاذنا الفضل القدير أبو أحمد
  22. السلام عليكم ورحمة الله وبركاتة عندى كود vba خاص بالتاريخ عندما اختر الشهر الحالى مثل شهر فبراير يخرج من 1/2/2023 الى 31/2/2023 هذا هو كود :- If [m] = "اليوم" Then n1 = Date n2 = Date Else End If If [m] = "اسبوعي" Then n1 = Date - 7 n2 = Date Else End If If [m] = "الشهر الحالى" Then [n1] = "1/" & month(Date) & "/" & year(Date) [n2] = "31/" & month(Date) & "/" & year(Date) Else End If If [m] = "الربع الأول" Then [n1] = "1/1" & "/" & year(Date) [n2] = "31/3" & "/" & year(Date) Else End If If [m] = "نصف سنوى" Then [n1] = "1/1" & "/" & year(Date) [n2] = "30/6" & "/" & year(Date) Else End If If [m] = "الربع الثالث" Then [n1] = "1/1" & "/" & year(Date) [n2] = "30/9" & "/" & year(Date) Else End If If [m] = "سنوى" Then [n1] = "1/1" & "/" & year(Date) [n2] = "31/12" & "/" & year(Date) Else End If frm_0.Requery frm_1.Requery
  23. ارجوا مساعده اعداد تفرير استلام مواد مربع سرد وتحرير الادارة الطالبة تظهر فى التقرير رقم انا اريد انا تظهر اسم الادارة . مربع سرد وتحرير وصف الطالبية تظهر فى التقرير رقم انا اريد انا تظهر اسم الوصف. 1080.rar
  24. لك منى كل التقدير والاحترام
  25. السلام ورحمة الله وبركاته أخي Moosak تفضل ملف 1080.rar
×
×
  • اضف...

Important Information