ابوخليل

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

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

السلام عليكم طرق احتساب التأخر مختلفة وذلك تبعا لما يرغب فيه ويقررره صاحب العمل في المرفق : جدول الحضور .. وقد تم رصد حضور وانصراف الموظفين ليوم محدد جدول الفترة ومبين فيه : وقت الدخول/ 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 أكسس لا يدعمه ما رأيك ابو البشر لو تم عمل دالة للألوان تشمل جميع مقاطع النموذج وعناصره .. وتكون العناصر حسب المقطع فمثلا لو اردت ان لون خلفية الرأس والذيل تختلف عن التفاصيل .. فمؤكد ان خلفية العناصر او اللون الأمامي سيختلف من مقطع لآخر احب دوما البرنامج عندما اتصفحه ان تكون النماذج صورة طبق الأصل من بعض .. من اجل راحة النفس والعين على فكرة : حاجتي انقضت بفضل الله ثم فضلك فجزاك الله خيرا

جربت كلها تعمل ويبدو ان الثاني افضل كونه يعمل بالخفاء ................................. ولكن الاخير شامل كامل .. فقط من رؤيته وقبل ان اجرب بارك الله فيك وزادك علما .. الف شكر

اهلا ابو البشر سوف اجرب مشكورا ولكني اجريت تعديلا بسيطا على السؤال .. كرما وفضلا ارجع اليه

السلام عليكم استخدم دالة لتغيير خصائص النماذج دفعة واحدة مثل هذه : Public Function funforms() Dim frm As Object For Each frm In CurrentProject.AllForms DoCmd.OpenForm frm.name, acDesign Forms(frm.name).PopUp = True DoCmd.Close acForm, frm.name, acSaveYes Next End Function واريد تغيير لون خلفية مقطع التفاصيل وخلفية العناصر التي داخل التفصيل في النماذج ما التعديل الذي يحقق ذلك ؟

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

تم الضبط وحسب رأي صاحب العمل .. طلب عدم تسديد حقل الانصراف اذا لم يوقع خروج لأنه حسب انظمتهم من وقع حضور ولم يوقع انصراف يعتبر غائبا Private Sub cmd_ComeIN_GoOut() EmpUserid = ii Me.Requery Dim thisTime As Boolean Dim startTime As Date, endTime As Date Dim waitTimeIn As Date, waitTimeOut As Date Dim myFatrah As Integer Dim empName As String Dim waitTime As Integer waitTime = Nz(DLookup("waitBtween", "tbl_Ctrl"), 0) empName = DLookup("s_name", "Qnames", "UserId='" & Me.ii & "'") myFatrah = Nz(DLookup("fatrah", "Qnames", "UserId='" & ii & "'"), 0) startTime = DLookup("start_signin", "tbl_Ftrat", "id=" & myFatrah) endTime = DLookup("end_signOut", "tbl_Ftrat", "id=" & myFatrah) thisTime = Time() >= startTime And Time() <= endTime If thisTime = False Then Me.id.SetFocus Call CommNo Beep Me.alert.Caption = "خطأ !! توقيع خارج الوقت ..." Me.TimerInterval = 5000 id = "" id.SetFocus Exit Sub End If If thisTime = True Then Dim rs As Recordset Dim strSql As String strSql = "SELECT TOP 1 tblcomIn.id, tblcomIn.UserId, tblcomIn.chekIn, tblcomIn.chekOut, Format([chekin],""Short Date"") AS tdat " & vbCrLf & _ "FROM tblcomIn " & vbCrLf & _ "WHERE (((tblcomIn.UserId)=funEmpUserid()) AND ((Format([chekin],""Short Date""))=Date())) " & vbCrLf & _ "ORDER BY tblcomIn.id DESC;" Set rs = CurrentDb.OpenRecordset(strSql) On Error Resume Next waitTimeIn = DateAdd("n", waitTime, rs!chekIn) waitTimeOut = DateAdd("n", waitTime, rs!chekOut) If rs.RecordCount = 0 Then rs.AddNew rs!chekIn = Now() rs!UserId = ii rs.Update Call CommOk Me.TimerInterval = 5000 Me.txtnm = empName LabelH.Caption = "حضور" Me.Requery Me.id = "" Me.id.SetFocus Exit Sub End If If rs.RecordCount > 0 Then If Not IsNull(rs!chekIn) And Not IsNull(rs!chekOut) And Now() > waitTimeOut Then rs.AddNew rs!chekIn = Now() rs!UserId = ii rs.Update Call CommOk LabelH.Caption = "حضور" Me.TimerInterval = 5000 Me.txtnm = empName Me.Requery Me.id = "" Me.id.SetFocus ' ElseIf Not IsNull(rs!chekIn) And IsNull(rs!chekOut) And Now() > waitTimeIn Then rs.Edit rs!chekOut = Now() rs.Update Call CommOk Me.TimerInterval = 5000 Me.txtnm = empName LabelH.Caption = "انصراف" Me.Requery Me.id = "" Me.id.SetFocus Else Me.id.SetFocus Call CommNo Beep Me.alert.Caption = "توقيع مكرر !! انتظر قليلا ..." Me.TimerInterval = 5000 id = "" id.SetFocus Exit Sub End If End If End If End Sub www.rar

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

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

تسلم .. بل صقر .. عندي برنامج صغير جدا يحذف حماية ميكروسوف نفسها من جذورها مع مجلداتها اقصد ببرنامج حماية اوفيس اللي هو microsoft Defender بترجع تقول اعمل حماية ما تقدر تدخل فلاشة ونستمر هكذا انا ارفع وانت تشوت ...

بعد اذن اخي فادي تفضل من عمل اخونا صالح حمادي جربته وأستخدمه دوما في الشاشات التي تفتح على كامل الشاشة .. يعمل 100% ملائمة النموذج حسب حجم الشاشة صالح حمادي.rar

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

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

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

تمام استاذنا قمت باعداد وضبط جدول الفترات ووضعت start_signin و end_signout حقول حقيقية في الجدول يمكنك الاطلاع على النموذج الآن نريد (دالة مربوطة بمعرف الموظف) في الوحدة النمطية .. تعالج جميع احتمالات الفترات الموجودة لا اعلم هل يكفي ربط معرف الموظف بالدالة ام نربط معه رقم الفترة ايضا على اعتبار ان رقم الفترة موجود في سجل الموظف comOutDb3.rar

تمام .. زادك الله علما .. وبارك فيك نعم هذا افضل كثيرا .. وإلا لماذا جعلنا وقت متاح قبل وبعد الوقت الرسمي للتوقيع ملاحظة : جرب الموظف سالم .. فترته خاص من التاسعة الى الحادية عشر ونصف صباحا لاحظت : الساعة عندي الآن 4:20 مساء 1- سمح له بالتوقيع 1- الرسالة تبين انه في الصباح رغم ان التوقيع الآن ...................................................................................................................................... دعنا الآن من الأكواد وضبطها لتحقيق الشروط المهم الآن هل الجداول وحقولها مكتملة ... وهل طريقة التصميم صحيحة اكتشفت الآن ان حقول الوقت المتاح قبل وبعد التوقيع يجب ان تكون ضمن جدول الفترات وفائدة ذلك : حصر الفترة الزمنية في مكان واحد .. لأن وقت التوقيع سيحصر الوقت : من/الى .. وغير جيد اضافة هذه الفترة داخل الجملة البرمجية صحيح سيوجد تكرار لأننا سنرصد هذه القيم امام كل فترة ، ولكن ايضا مفيد فيما لو اردنا تخصيص فترة ما بوقت متاح اكبر او اصغر اذا جدول الفترات يجب اعادة النظر فيه .. وسوف اقوم باعداده ورفعه ان شاء الله على النحو التالي : المعرف / الدخول الرسمي / الخروج الرسمي / فترة سماح دخول / فترة سماح خروج / وقت متاح قبل / وقت متاح بعد / بداية توقيع حضور/ نهاية توقيع خروج / ساعات(وقت العمل الفعلي) ما خط بالاحمر هو الذي تحصره الدالة .. ومن خلاله يتم قبول او رفض التوقيع .. بداية توقيع حضور = الدخول الرسمي - وقت متاح قبل نهاية توقيع خروج = الخروج الرسمي + وقت متاح بعد ساعات وقت العمل الفعلي = نستخرج الفرق بين الوقتين : ( الدخول الرسمي و الخروج الرسمي ) - فترات السماح المرونة هنا تتحقق .. فيمكن اجبار الموظفين على التوقيع في الوقت المحدد بدون وقت سماح .. واعتبار ساعات العمل كاملة من الدخول الرسمي وحتى الخروج الرسمي

اضفت جدولا للتحكم فقط comOutDb2.rar