ابوخليل

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

حتى يساعدك اخوانك اكتب كلمات المرور والاسماء السرية

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

خانة الرقم القومي اجعل نوع الحقل في الجدول نص اما مربعات التحرير فقد تم التعديل وكانت المشكلة لديك في : 1- المعيار داخل الاستعلام كتب بطريقة خاطئة 2- عدم تنشيط مربع التحرير الفرعي بعد تحديث الاساسي مدرستى2.rar

يمكن ذلك عند استخدام تكرار السجل نستخدم التراجع انظر مثالك بعد التعديل وبالجملة طريقتك هذه ارى انها غير مناسبة للمستخدم لما تحدثة من الارتباك واحتمال الوقوع في الاخطاء وأرى ان الافضل هو اختيار الصنف من القائمة ليندرج معه المعلومات الثابتة وللايضاح انظر المثال المرفق في هذه المشاركة http://www.officena.net/ib/index.php?showtopic=49381 Database1.rar

هذا الشيء منطقي فكلما نقرت على الزر تكرر السجل ولا يمكنك منع التكرار ! لماذا ؟ لان منع التكرار يحتاج الى شرط معين اما بمعلومية التاريخ او رقم الصنف او كليهما معا وعلى ارض الواقع يحتمل التكرار اكثر من مرة ولعميل واحد ايضا والحل : ان تضع زر لحذف السجل عند الادخال الخاطىء

من يجد القدرة او لديه برنامجا سبق اعداده مع جزيل الشكر والتقدير

Private Sub Item_AfterUpdate() [made in] = Item.Column(2) [Price] = Item.Column(3) End Sub db4.rar

انظر البيانات تتحدث في النموذج الفرعي2 بمجرد التغيير بمربع التحرير في الفرعي الاول try2.rar

لا بد من ادراج اسم النموذج الرئيسي : Forms![form]![subform].Rquery

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

سؤالك بحاجة الى زيادة في الايضاح وحسب ما فهمت منه انظر الى التعديل ان كان يوافق طلبك 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