ابوخليل

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

السلام عليكم اخونا عمرو .. المشاركات تجاوزت 300 اكيد لا يخفى عليك قوانين وقواعد المشاركة فضلا افرد كل سؤال بموضوع مستقل ايضا العنوان مبهم لا يفصح عن مشكلة معينة

الذي اعرفه : انه من اجل تكون قاعدة البيانات الحالية مصدرا لصفحة ويب لابد من عمل هذه الصفحة ( يقوم اكسس بعمل ذلك ) بحيث يمكن التحكم بتصميمها من داخل قاعدة البيانات وذلك بانشاء اختصار لها ضمن قائمة الصفحات داخل القاعدة وبحيث يكون هذا الاختصار بديلا عن النموذج يمكن التحكم بتصميمه والتعامل معه كنموذج 2003عبارة.rar

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

اهلا وسهلا بك اخونا عبدالرحمن ونشرف بمشاركتك معنا

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

تفضل ارفقت لك التعديل عملت لك كود يستخرج الفرق داخل الجدول بالدقائق وعن طريق الحقل المحسوب يمكنك التحويل وانصحك بتغيير طريقة التنفيذ عمليات المجاميع داخل الجدول غير احترافية فكثير من الدالات لا تعمل 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

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

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