ابوخليل

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

بعد التجربة هذا السطر لا ولن يعمل 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

اهلا وسهلا وصباح جميل باطلالة الفوكش قرأت شرحك اعلاه واطلعت على المرفق عمل ولا اجمل .. فشكرا لك توضيح : حقول السماح ليس لها دور في عمليات واجراءت الحضور والانصراف ، وانما ينحصر عملها عند حصر ساعات العمل في الاستعلامات .. مثلا الفترة الصباحية 4 ساعات ومجموع فترات السماح ( الحضور والانصراف )=30 دقيقة هنا يكون ساعات العمل النظامية المطالب بها الموظف ولا يعتبر متأخر هي 3:30 دقيقة من هنا يجب ضبط وقت التوقيع والانصراف فلا يسمح له بالتوقيع قبل الوقت المحدد باكثر من 5 الى 10 دقائق وكذلك الانصراف يجب ضبط وقت ما بعد التوقيع الرسمي ملاحظاتي : 1- اضافة حقل يبين الفترة في جدول الحضور جميل جدا .. سيساعد مستقبلا على سهولة ويسر التصفية حسب الفترات 2- حقل نوع الحضور : ارى ان حضور وانصراف ( 1 ، 2 ) كافيا ولا حاجة لنوع دخول متأخر .. ( سوف ابين ذلك) بالنسبة للدخول المتأخر فلسنا بحاجة الى اظهاره عند الاجراء .. وسوف يظهر في الاستعلام بناء على المعطيات لأن كل توقيع مستقل بذاته .. ايضا وجوده في الجدول يسبب اضطراب .. لأن المطلوب هو هل هذا التوقيع دخول ام خروج ؟ اذا ترى ان بيان حالة الحضور مهمة فالافضل يخصص لها حقل مستقل .. ويضاف ايضا حالة خروج مبكر ( لاحظ هناك يوجد خروج الاستئذان) .. لذا ارى انه بلاش منها كلها 3- يسمح بالتوقيع المتكرر التوقيع الأول حضور والثاني انصراف خلال الجلسة الواحدة لاحتمال تفعيل نظام الاستئذان .. وكما هو معلوم يتم لاحقا حصر التوقيعات حسب اليوم والفترة 4- يلزم عمل ضابط وقت بين كل توقيعين دقيقة واحدة على الأقل ( بحيث لا يسمح بالتوقيع الثاني الا بعد انقضاء الوقت المحدد ... وذلك تلافيا للخطأ غير المقصود) ................................ بناء على الملاحظات اعلاه نحن بحاجة الى جدول كنترول يرصد فيه : 1- الوقت المتاح قبل موعد الحضور الرسمي 2- الوقت المتاح بعد موعد الانصراف الرسمي 3- ضابط وقت بين كل توقيعين وغيرها من ادوات التحكم التي قد نحتاجها وتظهر لنا اثناء التصميم اكرر شكري وامتناني ..

هذا مثال لعرض ما تم نقاشه نريد اجراء العمليات عليه والضبط حسب جدول الفترات الحقلان : startWithFree و endWithFree ستختفي من الفورم مستقبلا ولكني وضعتها للاستئناس والتأكد من النتيجة comOutDb.rar

استدراك : الدوام الخاص الافضل ان يكون متاح له اكثر من تبويب مثل : خاص1 ، خاص2 ، خاص3 وهكذا ... وبرمجيا فعلا هو متاح الى مالا نهاية والسبب انه قد يوجد اكثر من موظف خاص اوقاته تختلف عن الآخر وهنا يتبين اننا بحاجة الى جدول فرعي واحد فقط .. يتم تسجيل الفترات وأسماءها من قبل المستخدم حسب تصوري الآن اصبح المشروع اكثر مرونة من حيث تحديد الفترات هل هذا التصور سليم ؟

تمام بارك الله فيك بالنسبة لجدول الورديات ( من تاريخ الى تاريخ ) لسنا بحاجته .. والسب ان العمل مدني مستمر اذا سيكون الجدول الفرعي : صباحية / مسائية / دوام كامل/ دوام خاص وامام كل وردية بياناتها : وقت الحضور ووقت الانصراف .. والسماح وفي جدول الأسماء حقل (x) لاختيار الوردية المناسبة للموظف عند التوقيع حقل(x) سيحمل البيانات والمواصفات الخاصة به الموجودة في جدول الورديات ويتم تعامل الاجراءات الخاصة في فورم التوقيع بناء على ذلك صح؟ ما رأيك

سنأخذ الجداول واحد واحد : الأول : جدول رصد الحضور والانصراف : ( الحقل الواحد) المعرف / حقل رصد وقت الحضور والانصراف Now / حقل النوع : ( O/I) ما رأيكم ؟؟

السلام عليكم ورحمة الله احبتي واخوتي الخبراء وكافة اعضاء هذا المنتدى المبارك اريد ان اشارككم عقولكم .. ونضيف الى المنتدى دروسا جديدة مفيدة وحيث ازعم اني معلم في هذا المنتدى .. فأنا اعطي درسا للمبتدئين .. ولمن يريدون انشاء مشاريعهم .. ان الاستشارة ودراسة المشروع من جميع جوانبه اهم شيء في العمل .. لا بد من استشارة اهل الخبرة قبل البدء في اول خطوة . وعن نفسي لا اجد غضاضة في الاستشارة في امور تبدو بديهية للمبتدىء وأول خطوة هي اعداد الجداول .. ومازلت عند رأيي ان ضبط الجداول بالشكل الصحيح عبارة عن تنفيذ 80% من المشروع .. ندخل لصلب الموضوع : صاحب العمل طلب ان تكون الاجراءات كخطوط عريضة على النحو التالي : ١- امكانية تحديد وقت دوام الموظف لفترة صباحية. ( 4 ساعات) ٢- امكانية تحديد وقت دوام الموظف لفترة مسائية. ( 4 ساعات) ٣- امكانية تحديد وقت دوام الموظف فترتين صباحية ومسائية. ٤- امكانية تحديد وقت دوام الموظف فترة دوام كامل ٨ او ٩ ساعات. 5- امكانية تعديل وقت دوام موظف فترة مختلفة مؤقته مثل المحاسب يكون البرنامج مرن بحيث يخدم في برمضان ( عند تغير وقت العمل ) هذه الطلبات اخذتها نسخ لصق المطلوب .. ما الجداول التي احتاجها لهذه الجزئية .. التي هي التحكم بهذه المتطلبات علما ان العملية مطلوب ان تكون آلية من غير تدخل المستخدم المستخدم فقط يقوم باعداد هذه الضوابط من خلال جدول التحكم

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

عمل رائع وجميل وحدات نمطية وأكواد متعوب عليها في اعمالي اقتصر غالبا قدر استطاعتي على الادوات التي يملكها اكسس .. فالساعة مثلا لا اخرج عن هذا السطر: Private Sub Form_Timer() Me.Label2.Caption = Format(Now, "hh:nn:ss AM/PM") End Sub ولكني وظفت العداد في عملية مهمة لضبط الإدخال في عملية الحضور وقد جعلت الفورم يملأ الشاشة .. فكانت فكرة اظهار الساعة مستحسن ومناسب الفكرة التي راودتني حين طرحت الموضوع هي .. هل يمكنني جلب ساعة وندز الى الفورم بسطر واحد ؟ مثل سطر جلب مستخدم وندوز : CreateObject("WScript.Network").UserName او رقم المعالج : Environ("NUMBER_OF_PROCESSORS") واشياء اخرى يمكن جلبها او تشغيلها ومناداتها بسطر