ابوخليل

شكرا على هذا الاطراء واعتذر لعدم تمكني من تحقيق طلبك فلو عرضت سؤالك في قسم الإكسل علك تجد اجابة شافية فهو اشمل واوسع في مثل هذه الدوال

سؤالك بحاجة الى زيادة في الايضاح وحسب ما فهمت منه انظر الى التعديل ان كان يوافق طلبك Database2.rar

ملف / حفظ ونشر ستجد عمليات تحويل عدة اما اجابة السؤال الثاني فهو لا بد من وجود اكسس او RunTim الخاص باوفس لكي تعمل البرامج المعمولة عليه

احذف هذا السطر rs!id = [Forms]![table3]![id]

انظر في هذا الرابط لعل فيه حل لمشكلتك http://msdn.microsoft.com/en-us/library/bt3szac5(v=vs.90).aspx

شكرا لمرورك وجزاك الله خيرا

لا اعلم ان كانت هناك حلول حسب طريقتك ولكني وحسب رأيي ارى تحويل الفرق الى دقائق فقط والتعامل معها كأرقام لارجاعها مرة اخرى منفصلة وللتحويل تستخدم هذه الصيغة داخل الاستعلام حتى يصبح حقل عدد ساعات التأخر منضما Expr2: IIf(DateDiff("n";[timestart];[التأخر])<=0;0;DateDiff("n";[timestart];[التأخر])) واستخدام iif الشرطية حتى يتم تخطي الحضور المبكر ثم تحول مجموع الارقام الى ايام وساعات ودقائق مع ملاحظة وجوب استبعاد الدالات المستخدمة

التقرير لا يمكن ان يتمدد افقيا كالاستعلام لذا لزم اخراج الاحصائية بطريقة رأسية انظر الاستعلام بعد التعديل ، يمكنك الآن بناء تقريرك عليه db6.rar

انت جئت بغالب الاجابة بالضبط كما ذكرت فعند حدث الطباعة للتقرير تنقل هذا الحدث الى حقل في جدول متمثلا في اسم التقرير وتاريخ وساعة طباعته واسم المستخدم ان لم تتمكن من التطبيق ارفق مثالا وافيا لمساعدتك

يا هلا باخوي ابو عيسى للعلم يمكن تطبيقها على الشهر الهجري وطريقة عمل هذه الدالة او الدوال انها تستخرج اليوم الذي يسبق اول يوم من الشهر القادم بمعنى انها تستخرج آخر يوم من هذا الشهر

aa: IIf([hh]-[jj]<=0;"خالص";[hh]-[jj]) اريد كلمه خالص.rar

وان اردت اثبات الرقم داخل الجدول فيمكنك وضع السطر اعلاه في حدث مناسب في محرر الفيجوال

ويمكن الاكتفاء عن الوحدة النمطية بهذا السطر نضعه في مصدر عنصر الحقل المحدد =Day(DateSerial(Year(Date());Month(Date())+1;1)-1)

آمين وإياك تمت الاجابة

بتوفيق الله وفضله هذه وحدة نمطية صغيرة تقوم بالطلب Public Function MonthDays() Dim myMonth As Long myMonth = Month(Date) MonthDays = Day(DateSerial(Year(Date), myMonth + 1, 1) - 1) End Function عدد ايام الشهر الحالي.rar

الاستعلام الجدولي خير وسيلة لتحقيق ذلك اتنظر مثالك بعد التعديل db5.rar

مثالك يشتمل على مطلوبك حيث يتم البحث بين تاريخين فأين المشكلة في ذلك ؟

عدد ايام الشهور الميلادية ثابت يمكن ان تضع الشهور وعددها في جدول ليتم جلبها عند الحاجة

combo4 هذا الاسم لا وجود له والصحيح combo6 راجع مثالك الاول If Combo4.Value = "" or Text2.Value = "" Then هذه صحيحة ويمكن ان تكون هكذا if IsNull([Combo]) Or IsNull >>> ولكنها لن تعمل معك هنا والسبب ان الحقول غير منضمة الى جدول لذا فهي لا تحمل قيمة ولضبط هذه العملية يجب ان تضع في القيمة الافتراضية قيمة معينة كــ "" أو صفر .... وهكذا

الحمد لله ،،، ثم الشكر موصول لمبدع العمل استاذنا القدير عبدالله باقشير

نلتمس لاخونا الشمال العذر فعسى المانع يكون خيرا وبالنسبة لمثالك فاعتقد ان طريقة التطبيق لا يمكن تحققها فأنت طلبت منع تكرار المعرف وايضا منع تكرر ارقام متشابهه للمعرف نفسه فقط وعند التطبيق على الواقع حسب مثالك فإنه ضمنا لا يمكن تكرار ارقام للمعرف بل لا يمكن منحه سوى رقم واحد لانه لن يملك الا سجلا واحدا في هذا الجدول ومع هذا وضعت لك الاكواد الخاصة بمثل هذه المسألة في مثالك المرفق the form.rar

غير السطر الموجود في النموذج frm1 DoCmd.OpenForm "frmErr1" بهذا السطر : DoCmd.OpenForm "frmErr1", , , , , acHidden

Dim i As Integer i = DCount("number2", "tabl2", "number2=" & number1) If i > 0 Then Beep MsgBox "هذا العدد ضمن الاعداد الموجودة" Undo End If مثال.rar

العنوان مخالف وطبعا سيتم غلق الموضوع يمكنك فتح مشاركة جديدة وطرح مشكلة واحدة معينة ويتم ايضاح هذه المشكلة في العنوان فإذا حصلت على اجابة شافية يمكنك فتح مشاركة بمسألة اخرى وهكذا ... هذه الطريقة اسرع في تلبية الطلب وانفع في تخصيص المسائل وفقك الله لكل خير ،،،

If Combo4.Text = "" And Text2.Text = "" Then اولا وجود اللاحقة Text تستلزم وجود التركيز على الحقل عند تنفيذ الامر فإما ان تحذف وإما ان تستبدل بالقيمة Value الثاني انك استخدت And وهنا لن يعمل الكود حتى يكون الحقلان كلاهما فارغان والاولى استخدام Or لاننا لن نسمح لاي واحد منهما ان يكون فارغا