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

ابوخليل

أوفيسنا
  • Content count

    7,798
  • تاريخ الانضمام

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

  • Days Won

    73

ابوخليل last won the day on November 16

ابوخليل had the most liked content!

السمعه بالموقع

2,371 Excellent

عن العضو ابوخليل

  • الرتبه
    فريق الموقع

Profile Information

  • Gender (Ar)
    ذكر
  • Job Title
    طالب علم

اخر الزوار

5,750 زياره للملف الشخصي
  1. مساعدة في جمع التكرار

    السلام عليكم لست بحاجة الى ضم جداول ولا الى استعلامات تجميع فقط اجعل مصدر النموذج هو جدول الاسماء واستخدم مثل هذا السطر لجلب القيمة : =DCount("ID";"TTaweedh";"EmbNo='" & [EmbNo] & "'") مثال.rar
  2. مشكلة مع جدول مرتبظ

    عليكم السلام اضبط خصائص العلاقة كما هو ظاهر في الصورة
  3. وعليكم السلام تم عمل مثال حسب الطلب احتساب التأخر بين فترتين .rar
  4. تم عمل المطلوب في الاستعلام علما ان الدرجات غير مكتملة حيث لا يوجد درجات في اعمدة النتائج التبديل بين حقلين4.rar
  5. الحقول التي ذكرتها في الــ sheet لا يوجد فيها درجات ؟
  6. شكرا للاستاذ شيفان على ما يقدمه من جهد ووقت وفائدة وشكرا لاخونا السالم على حسن خلقه وعلى وصبره تم تنقيح الموضوع وحذف المشاركات الزائدة تفضل اخونا هذه محاولة جعلت عملياتك وحسب فهمي في وحدة نمطية عامة Public Function wrWagt(time1 As Date, time2 As Date, rateb As Double, fram1 As Byte) Dim wrHour1, wrHour2, wrHour3, wrHour4 As Integer Dim tawed1, tawed2, tawed3, tawed4 As Double If time2 <= "21:00" Then wrHour1 = DateDiff("h", time1, time2) tawed1 = 0.01 ElseIf time2 > "21:00" And time2 <= "23:00" Then wrHour1 = DateDiff("h", time1, "21:00") tawed1 = 0.01 wrHour2 = DateDiff("h", "21:01", time2) tawed1 = 0.02 ElseIf time2 > "23:00" And time2 <= "23:59" Then wrHour1 = DateDiff("h", time1, "21:00") tawed1 = 0.01 wrHour2 = DateDiff("h", "21:01", "23:00") tawed2 = 0.02 wrHour3 = DateDiff("h", "23:01", time2) tawed3 = 0.01 ElseIf time2 > "00:01" And time2 <= "12:00" Then wrHour1 = DateDiff("h", time1, "21:00") tawed1 = 0.01 wrHour2 = DateDiff("h", "21:01", "23:00") tawed2 = 0.02 wrHour3 = DateDiff("h", "23:01", "23:59") tawed3 = 0.01 wrHour4 = DateDiff("h", "00:01", time2) tawed3 = 0.01 End If If fram1 = 1 Then wrWagt = rateb * tawed1 * wrHour1 + rateb * tawed2 * wrHour2 + rateb * tawed3 * wrHour3 + rateb * tawed4 * wrHour4 Else wrWagt = rateb * 0.05 * wrHour1 + rateb * 0.05 * wrHour2 + rateb * 0.05 * wrHour3 + rateb * tawed4 * 0.05 End If End Function التعويض عن العمل الإضافي2.rar
  7. ناتج طرح تاريخين

    تفضل Public adat1_, bdat2, cdat3 As Integer Public Function kmDate(d1 As Date, d2 As Date) adat1 = DateDiff("yyyy", d1, d2) If adat1 >= 4 Then bdat2 = 4 cdat3 = adat1 - bdat2 Else MsgBox "لا يوجد مدة كافية او البيانات غير صحيحة" End If End Function db1.rar
  8. اخوي انا صححت كودك الموجود في التقرير لاحظ الخانات الموجودة في رأس الصفحة يتم تعبأتها بناء على الصف قم بالتبديل بين الصفحات لترى النتيجة ايضا في المرفق ادناه عدلت على العنوان في رأس التقرير بحيث يتناسق مع كل صفحة حسب الصف اذا المطلوب غير هذا عليك زيادة الايضاح التبديل بين حقلين3.rar
  9. تفضل تم التعديل التبديل بين حقلين2.rar
  10. السلام عليكم حبيبنا الاستاذ السيد جمال هذه البرامج من زمان ونحن نراها . ويمكنك الشراء منهم وتفيدنا بالحقيقة بما لا يدع مجالا للشك بالنسبة لي لن اغامر لاسباب منها : 1- ان هذا موقع رسمي ولن يعلن صريحا عن اعتداء واختراق لحقوق الغير وهو يعلم انه سيلاحق قانونا 2- من ملاحظتي عند التجربة انه يعرض المتغيرات العامة والأحداث وهذه اتوقع يمكن اصطيادها بمجرد فتح الملف حيث يوجد متغيرات عامة وأحداث عند فتح قاعدة البيانات ومتغيرات واحداث عند فتح الكائنات ومما يؤكد ذلك تغيير نوع غالب المتغيرات الموجودة في مثالي الى Variant رغم انها نصية ايضا ينقل بعضها الى داخل الاجراء وهي غير موجودة في الاصل يعني انه لا يفتح محرر الفيجول الحقيقي بل يرسم صورة مقاربة له
  11. جعل صورة داخل القاعدة وليس خارجها

    اخي الكريم .. كنت اتمنى اصل الى حل قبل ان اكتب لك هذا فقد حاولت جهدي بان اربط الصورة المرفقة سواء في النموذج او الجدول ولكني لم اصل الى المطلوب
  12. ناتج طرح تاريخين

    وعليكم السلام وكأنك تريد حسبة خاصة لاول اربع سنوات وحسبة اخرى لما زاد عن ذلك ارى الافضل لك تعلن عن ثلاث متغيرات 1- الاول ياخذ الفرق الكلي بين التاريخين 2- الثاني ياخذ قيمة 4 اذا الاول اكبر من او يساوي 4 3- الثالث ياخذ الباقي من طرح الاول من الثاني اذا قيمة الاول اكبر من 4
  13. مشتريات ومبيعات مختصر

    والشكر لكم على المتابعة لاحظوا ان العمل هذا هو فكرة لتبسيط لهذا النوع من المشاريع خذوا نظرة على الاستعلامات وكيف ظهرت الارصدة فيها ، وقارنوا هذا العمل بمشاريع المبيعات التقليدية
  14. مشتريات ومبيعات مختصر

    اخي سلوم يبدوا ان الخطأ يظهر حين تغادر التفاصيل بدون ادراج بيانات او بعد الحذف والخروج ، وهذه امور فنية وهي لا شك بحاجة الى وضع لتجاوز مثل هذه الرسائل والاخطاء اخي محمود هذا السطر هو المسؤول عن جلب الرصيد ويمكنك توظيفه في اي مكان : textRseed = Nz(DLookup("Rseed", "QryArsedh", "ID_fGnt=" & Me.ID_fGnt), 0) بشرط وجود رقم العميل في الفورم او التقرير وعلى فكرة .. يجب قبل اختبار المشروع ادراج بيانات وافية وكافية وصحيحة مثلا في المثال السابق اضطررت لتصحيح البيانات ، فانتم رفعتوا المثال وهو يحتوي على بيانات غير منطقية ، فكيف يتم بيع اجهزة لم يتم شراءها بعد ؟ طبعا مثل هذه الامور بحاجة الى ضبط مسبق لا يكون للمستخدم تدخل فيه بحيث لا يمكنه بيع سلعة غير موجودة على كل حال انتظر محاولاتكم في الاستفادة والتعديل والتطوير فانتم مبرمجين وكل من يمر من هنا معكم وما زلنا نتعلم
  15. نعم وغالبا هي microsoft Office opject library
×