ابوخليل

اضف هذا الاجراء ايضا في حدث : الحالي للنموذج حينها عند التحرك بالاسهم ستظهر القيم

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

آمين وإياك ،،،

ليس اسم الدولة اللتي توجد فيها الآن بل تغير الى لغة تصميم البرنامج ، اذا اكسس عربي تغير لعربي واذا فرنسي تغير لفرنسي ... وهكذا

Shell ("calc")

وعليكم السلام Private Sub id_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = 27 Then DoCmd.CancelEvent 'DoCmd.Close End If End Sub على اعتبار الحقل اسمه id

مثالك المرفق بعد تعديل اللغة يختلف عن الاصل لو رجعت الى الاستعلام لوجد ان المعيار غير موجود في المثال الجديد الآن انا قمت باعادة المعيار الى الاستعلام وهو يبحث الآن راجع تصميم الاستعلام يوجد معيار الايرادات غير موجود معدل3.rar

ما فيه نتيجة بتنسيق مثل 27:00 ولكن ستكون النتيجة 27 واذا اردت النتيجة بالساعات والدقائق فيجب ان نستخرجها بالدقائق كرقم عام ثم نقوم بتحويلها الى وقت على كل حال ارفق لي مثالك مشتمل على فورم الدخول والخروج مع الجدول فقط وياليت تحفظه على صيغة mdb

المعادلة الموجودة هي جمع الساعات والدقائق وتنسيق الحقل هو وقت قصير ولما تصل الى 24.59 تنقلب الساعات الى صفر . وسبق قلت لا بد يكون الحقل رقمي وتنسيقه= رقم عام في الفورم لما يسجل الموظف دخول يكون الحدث = Now() ولما يسجل انصراف يكون الحدث ايضا = Now() وايضا داخل الحدث نفسه يتم تنفيذ الكود التالي : alfrg=DateDiff("H",[comTime],Now()) وغير ما يلزم باعتبار comTime وقت الدخول ، و alfrg هو حقل الفرق ، وحرف H يعني ان الفرق بالساعات

اخوي ابو زاهر لاني علقت على مشاركتك نقلت مثالك على جهاز اخر لاني اعمل على 2003 جرب المثال المرفق : ازل العلامة من النموذج الفرعي ثم انقر تحديث ستلاحظ ان السجل اختفى الطريقة : انظر الى مصدر النموذج الفرعي ( الاستعلام الفرعي الداخلي ) وانظر المعيار في حقل مستأجرة لاحظ انه لايمكنك عرض السجل مرة اخرى داخل هذا النموذج الفرعي حتى يتم تحديد الخانة . ولكن يمكنك رؤيته والتعديل عليه من نموذج آخر غيره معدل2.rar

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

بالعكس سيصعب عليك التعلم .. اكتبها بالعربي ولكن بحروف اجنبية ,, المهم في المسألة انها تسير من اليسار لليمين

ملاحظات : 1- الحقل المحسوب في الجدول لا يدعم دالة DateDiff لذا تم التطبيق في الاستعلام 2- لاحظ اول سجل في الاستعلام كان الحضور في الصباح والخروج في صباح الغد 3- يشترط في حقل الفرق ان يكون رقمي ويمكن حساب الفرق حسب الطلب اما بالايام او الساعات او الدقائق .. اليك المرفق Database11.rar

نعم وتكتفي بحقلي تاريخ الدخول وتاريخ الخروج

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

وعليكم السلام نعم يوجد حل ولكن بشرط تغيير تصميم جدولك هذا بحيث يكون حقل تسجيل الحضور = Now اي General Date وتستغني عن حقلي in و out حينها يمكنك حساب اكثر من 24 ساعة

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

السلام عليكم ورحمة الله وبركاته هذا الموضوع مما تكثر الحاجة اليه الاصل عند تسجيل الحضور هو ادخال الوقت والتاريخ الكامل General Date ثم التعامل معه من خلال الاستعلامات والوحدات النمطية وهذا التاريخ هو المعمول به في اجهزة الحضور عامة كقارىء البصمات وغيرها ، والملاحظ ان بعض الاخوة المبرمجين يقومون بجلب بيانات الحضور من الجدول المصدر والتعامل معها اثناء الجلب وتفكيك البيانات في جدول جديد خاص . وفي الصورة ادناه نموذج من الجدول المعدل وهو الذي سوف اعتمده في شرحي ومثالي المرفق علما اني افضل العمل مباشرة على مصدر البيانات الاصل ثم نستخدم الاستعلام لضم هذا الجدول مع جدول الاسماء وعمل تجميع دقائق الـتأخر خلال شهر ونستعين بوحدة نمطية صنعناها لحساب التأخر بالايام وحساب المتبقي من الدقائق ثم ترحيلها الى الشهر التالي كرصيد سابق وحساب الايام بناء على ساعات التأخر (يكون حسب النظام المتبع ) فيختلف من مؤسسة الى اخرى فمنها من يحسب اليوم بــ 5 ساعات تأخر أو 7 ساعات ... وهكذا وفي مثالي هذا جعلت اليوم ساعتي تأخر (120 دقيقة ) ويظهر جليا في الوحدة النمطية المستخدمة Public Function trhelSn(mnthID, uid As Integer) ' uid يمثل رقم الموظف في الاستعلام On Error Resume Next Dim i, ii, a1, a2, a3, a4 As Integer ii = mnthID ' يمثل رقم الشهر في الاستعلام a2 = 0 For i = 1 To ii a2 = a4 ' ترجع بالرصيد السابق للشهر التالي a1 = Nz(DLookup("secnd", "qryscnd", "monthx=" & i & "And nID =" & uid), 0) ' ترجع بحقل الدقائق الذي تم جمعه في الاستعلام a3 = (Nz(a1) + Nz(a2)) \ 120 ' ترجع بعدد الايام بناء على عدد الدقائق المعتمد وهي هنا 120 دقيقة a4 = (Nz(a1) + Nz(a2)) Mod 120 ' ترجع بالمتبقي من الدقائق في الشهر الحالي Next End Function ' مصطلح الشهر الحالي والشهر التالي باعتبار الابتداء من اول شهر فأول شهر في الاستعلام يعتبر الحالي ثم التالي .. التالي ... وهكذا وهذه هي النتيجة النهائية : وهنا تكملة للموضوع احتساب التأخر بالدقائق وترحيل .rar

هذا غير صحيح ؛ لم تكتبه هنا حرجا منه بل مجبر اعدت كتابته هنا بعد ان اغلقنا موضوعك هناك فلم الحلف بالله !

اخواني الكرام نرجو مراعاة قواعد المشاركة وافراد كل موضوع بسؤال مستقل نأمل استشعار المصلحة العامة

يكفي نسخة من الجدول ضمن المثال يجب وجود نسخة من جدول الحضور والانصراف .. وهذا ما يعنيه استاذنا

السلام عليكم من خبرتي هنا ومن اطلاعي على كثير من الاعمال مشكلة تواجهنا نحن المبرمجين حين نريد تطبيق فكرة انه تقدح في رؤوسنا رسمة للطريق (طريقة تنفيذ الفكرة) وهذا القدح لابد وان له اصل وخلفية ثقافية وهو الاطلااع على امثلة مشابهة وغالبا هذه الامثلة لا ترقى الى مرتبة الاتقان والاحتراف ، ومن هنا حين يسلك المبرمج هذه الطرق لا بد يتوه في النهاية وقد يصل الى طريق مسدود . وكان الاولى بنا ولو كنا على درجة جيدة من الاحتراف ان نطرح المسألة قبل البدء من اجل النقاش ومشاركة العقول خبرتها وتجاربها . اختنا الكريمة : توظيف جداول عديدة واستعلامات الحاق ليست طريقة صحيحة تنفيذ فكرتك يجب الا يتعدى جدول الحضور واستعلام واحد فقط فان زاد عن ذلك فهو نقطة ضعف في التصميم

السلام عليكم شكرا للاستاذ شيفان على سطر الكود الجميل نعم يوجد حل لتعديل حقل الترقيم التلقائي Dim DB As Database, RS As Recordset Set DB = CurrentDb Dim i As Integer i = Me.id_start Set RS = DB.OpenRecordset("tbl1") RS.AddNew RS!id = i RS.Update Me.Requery txtName.SetFocus بداية ترقيم تلقائي.rar

السلام عليكم أعان الله استاذنا جعفر ووفقه وعافاه في نفسه وبدنه وأثابه ثواب الاخيار اختنا الكريمة جربي التعديل على المرفق لاتدخلي ارقام في المربع بل انقري على زر البدء مباشرة من اجل التجربة على الثواني يجب الانتظار حتى ينتهي العداد ظهور الرسائل في العداد ممكن والكود موجود (وقد تم تجاهله) ويمكنك استخدامه فالرسائل تتطلب من المستخدم ان يغلقها ، لذا الافضل ان يظهر التنبيه على الفورم كتابة وهو الذي يعمل الآن عداد تنازلي2.rar

هنا موضوع يتحدث عن مطلوبك