ابوخليل

آه في حقلين منفصلين ؟ اذا هو هو حمود اعجبني جدا : Fix(inOutTime) .. انظر : هذه تأتي بمجموع تأخر الحضور وتأخر الانصراف في حقل واحد وابستخدام fix سأختصر اسطر كثيرة منه Public Function funLoss_In_out(ftr As Integer, comIn As Date, comOut As Date) As Integer Dim i As Integer Dim come_In As Date, come_Out As Date Dim RS As Recordset Dim strSql As String come_In = Format(comIn, "Long Time") come_Out = Format(comOut, "Long Time") strSql = "SELECT tbl_Ftrat.* FROM tbl_Ftrat WHERE (((tbl_Ftrat.id)=" & ftr & "))" Set RS = CurrentDb.OpenRecordset(strSql) If come_In > DateAdd("n", RS!start_free, RS!start_work) Then i = DateDiff("n", RS!start_work, come_In) Else i = 0 End If If come_Out < DateAdd("n", -(RS!end_free), RS!end_work) Then x = DateDiff("n", come_Out, RS!end_work) Else x = 0 End If funLoss_In_out = i + x End Function ................................................... جزاك الله خير .. حتى لو سبقوك .. فكل خبير وله بصمته المميزة ايضا كثرة الافكار والحلول مطلب تم فصل موضوع الغياب بعنوان يخصه هنا .. لتفرده

المسألة كالتالي : هذه صورة جدول الحضور من يوم 1/6 وحتى 11/6 الموظف مجاز ايام : 3 ، 4 ، 5 من الشهر بناء على ما تم رصده في جدول الاجازات وغائب يوم : 8 اريد في استعلام اظهار جميع الأيام .. وامام كل سجل حالته : حاضر او مجاز او غائب .. أو تكون ارقام 1 أو 2 أو 3 تعبر عن الحالة

اهلا ابو احمد سرني مرورك ومشاركتك هو انا عملتها بالاول دالة واحدة .. بحيث الدالة تساوي i+x ولكني احتاج للتمييز بين وقت الحضور ووقت الانصراف في التقرير وتلوينها .. لذا اضطررت لجعلها دالتين الدالة واضحة وجميلة : inOutTime تمثل حقل الحضور او حقل الانصراف بناء على قيمة المتغير inOutType ولكني لم اعرف اين القيمة المقابلة لــــ inOutType في الاستعلام على فكرة : كنت اعد مسألة اخرى مرتبطة بهذا .. وقفت امامها .

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

شكرا اخي @Foksh المعرف 4444 المفترض تأخر الحضور 61 دقيقة بدلا من 31 لأنه حضر 5:1 ووقت الحضور 4:00 ما علينا منها اتركها .. حلولك جميلة ومرجع لمن اراد العمليات من خلال الاستعلامات نعم هي الافضل للأسباب التالية : بعد تفكير ومراجعة .. رأيت ان التفاصيل وساعات العمل ليست ذات اهمية داخل الاستعلام الرئيسي .. المهم هو ساعات ودقائق التأخر بالنسبة لساعات العمل فهي ثابتة فلماذا نقحمها في الاستعلام .. اما ساعات العمل الناقصة فستخرج في المجاميع في التقرير الزبدة من شرحي اعلاه : نريد دالة نمرر لها وقت الحضور ووقت الانصراف فقط ....... تعيد لنا ساعات ودقائق التأخر فقط ( الدخول + الخروج) .. اما غير المتأخر فتعيد Null وهذا المرفق تم تعديل الاستعلام ملحوظة : رايتك استخدمت اسم الفترة كمعيار .. الى ترى أن id الجدول افضل ؟ data2.rar

شكرا استاذنا مرجع مهم ومكتبة لمن يريد التوسع في تخصيص وتمييز الرسائل

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

السلام عليكم طرق احتساب التأخر مختلفة وذلك تبعا لما يرغب فيه ويقررره صاحب العمل في المرفق : جدول الحضور .. وقد تم رصد حضور وانصراف الموظفين ليوم محدد جدول الفترة ومبين فيه : وقت الدخول/ start_work ووقت الخروج/nd_work وقت السماح في الدخول/ 30 / start_free وقت السماح في الخروج/30 / end_free وعدد ساعات العمل المقررة / countWorkHours / 7:30 استعلام : يوجد في الاستعلام ثلاث حقول لاظهار النتيجة : عدد دقائق تأخر الحضور _ رقم : In_Loss عدد دقائق الخروج المبكر _ رقم : out_Loss وقت العمل المحتسب _ وقت / work_Hours_count المطلوب : أيسر طريقة سواء داخل الاستعلام او صنع دالة عامة لهذا الشأن .. انا افضل الدالة العامة .. لاحتمال استخدامها داخل التقارير .. او تطويرها لخدمة المجاميع 1- احتساب (دقائق) التأخر ( كرقم ) عند التاخر في الحضور أو الخروج المبكر بناء على الوقت المسموح على النحو التالي : اذا تأخر في الحضور اكبر من المقرر بدقيقة يتم رصد عدد دقائق تأخر الحضور كاملة ( يحرم فترة السماح ) .. ومثلها الانصراف اذا خرج قبل وقت السماح المقرر 2- يرصد في حقل work_Hours_count ساعات العمل الفعلية المحتسبة ( حسب ما هو موجود في جدول الفترات) اما 7:30 للحضور المنضبط واما ( 7:30 - وقت التأخر ) للحضور المتأخر ملحوظة : تم ضبط سجلات الحضور والانصراف بحيث تغطي جميع الاحتمالاات ملحوظة أخرى : اذا رأيتم ان تكون العمليات والحقول كلها تاريخ ووقت بدلا من قيمة التأخر (رقم) فلكم مطلق الاختيار data.rar

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

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

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

لسنا في عجلة من امرنا شوف آخر كود لأخ ابي البشر فيه تفصيل للعناصر

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

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

بعد التجربة هذا السطر لا ولن يعمل Forms(frm.Name).Detail.BackColor أكسس لا يدعمه ما رأيك ابو البشر لو تم عمل دالة للألوان تشمل جميع مقاطع النموذج وعناصره .. وتكون العناصر حسب المقطع فمثلا لو اردت ان لون خلفية الرأس والذيل تختلف عن التفاصيل .. فمؤكد ان خلفية العناصر او اللون الأمامي سيختلف من مقطع لآخر احب دوما البرنامج عندما اتصفحه ان تكون النماذج صورة طبق الأصل من بعض .. من اجل راحة النفس والعين على فكرة : حاجتي انقضت بفضل الله ثم فضلك فجزاك الله خيرا