ابوخليل

السلام عليكم في المرفق شهادة شكر .. تظهر عندي في برنامجي الاساسي بشكل رائع مع البيانات اللازمة هذه الشهادة هي عبارة عن صورة مكتوب عليها عبارة الشكر المعتادة .. ويتخللها حقول مصدرها الجدول مثل اسم الطالب والسنة والفصل الدراسي واسم المعلمة والمديرة وايضا صور لشعارات خاصة . الى هنا وكل شيء تمام 100% افكر فيما لو تم نشر البرنامج .. فالناس مختلفون في الذوق ووجهات النظر .. فيمكن بعضهم يريد تغيير الخلفية والآخر يريد تغيير النص الثابت في الصورة . لذا طرحت موضوعي هذا اريد ان اجعل الشهادة مرنة .. امكن المستخدم من تغيير عبارة الشكر .. وتغيير الخلفية الخلفية مقدور عليها فقد وضعت بجانب قاعدة البيانات الصورة نفسها مفرغة . ويمكنه تغييرها بما يشاء عنوان الشهادة .. والعبارات اللاحقة : اريد المستخدم ان يكتبها من خلال فورم خاص بشرط امكانية التحكم بنوع الخط ومقاسه ولونه . هل يمكن ذلك على فرضية تحويل الملف الى accde dbs1.rar

قبل الشروع في العمل يجب ان نتفق على طريقة ونظام احتساب ساعات العمل : اولا : الطريقة التقليدية : يتم احتساب الوقت من : توقيت الحضور الرسمي وحتى توقيت الخروج الرسمي بمعنى اذا ساعات العمل المعتبرة 8 ساعات وجاء متأخرا عن توقيت الحضور بــ 20 دقيقة وخرج بتوقيت الخروج تماما او بعد التوقيت بــ 20 او 30 دقيقة فلن تنفعه هذه الزيادة بتعويض التأخر في الحضور .. وسيحسب البرنامج له حضور اليوم = 7:40 اي بنقص 20 دقيقة علما انه يوجد مرونة في تأخر الحضور أو الخروج قبل الوقت النظامي في معظم الانظمة .. بحيث يتم التجاوز عن دقائق يحددها المستخدم للبرنامج ثانيا : الطريقة المرنة الحديثة المفتوحة : وهي مطالبة العامل او الموظف بساعات معلومة ومحددة يكون متواجدا فيها في مكان العمل .. وهي ليست مفتوحة تماما كما يتصور .. ولكن المرونة في وقت الدخول ووقت الخروج فالمرونة في اتساع وقت التواجد من 8 ساعات الى 9 او 10 ساعات مثلا ( التحديد برمجي يتحكم فيه المستخدم ) فيمكنه الحضور بعد الموعد بربع ساعة ويعوضها في الخروج بأن يبقى ربع ساعة ، وما زاد يمكن اعتباره وقتا اضافيا

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

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

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

نعم .. تمام .. جزاك الله خيرا وبيني وبينك 🙃 ولا تخبر احد .. الله المستعان ..اصلا الجهاز الثاني لا يوجد عليه طابعة اسهبت وأجدت في الشرح والتفصيل .. جزاك الله خيرا

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

السلام عليكم عندي كمبيوترين على احد الاجهزة صممت تقرير (شهادة شكر ) وجعلت خلفيته صورة وفي التفاصيل بعض الحقول التقرير ممتاز حتى اني جعلت جميع الهوامش = صفر .. من اجل تمدد الصورة على كامل ورقة الـــ A4 عندما نقلت البرنامج الى الجهاز الآخر تغير تصميم التقرير واختلف تمركز الصورة واختلت اماكن الحقول وظهرت الهوامش كبيرة رغم انها صفر الجهاز الاول win10 والاخر win7 ان كان احد من الاخوة مر بهذه التجربة يفيدني فيها .. جزيتم خيرا

عجبا .. مشاركات تقارب الألف ولا تكلف نفسك اختيار عنوان مناسب لموضوعك !!!

عجيب .. عجيب يبدو انك عدلت على شيء ما اعدت التجربة .. والنتيجة كانت مذهلة التعديلات التي اجراها : تنظيم الكود .. بحيث جعل جميع الاعلانات عن المتغيرات في الأعلى بدل شرط الحقل النصي في الدوال بالمتغير وكذلك في جملة sql استبدل الدالة بالمتغير .. عفريت برمجي اضاف لي متغير اسم الموظف غفلت عن نقله من العمل السابق ... هذه الاضافة لا تخطر على بال المحترفين الا بعد عناء اغلاق السجلات عند نهاية كل شرط .. الحقيقة هذه الحركة تحفة هذه صورة من الخيارات التي استخدمتها : وهذا الكود الاصلي : Private Sub id_AfterUpdate() EmpUserid = id Dim mylevl As Boolean mylevl = Nz(DLookup("Emp_user", "tblEmpNames", "Emp_user='" & Me.id & "'"), 0) EmpFatrah = Nz(DLookup("fatrah", "tblEmpNames", "Emp_user='" & Me.id & "'"), 0) If mylevl = False Then Beep Me.LabelH.Caption = "خطأ!! .. الادخال غير صحيح" Me.TimerInterval = 3000 id = "" id.SetFocus Exit Sub End If Dim rs As Recordset Dim strSql As String strSql = "SELECT TOP 1 tblCheckINOut.id, tblCheckINOut.EmpUser, tblCheckINOut.chekInOut, tblCheckINOut.chkio, tblCheckINOut.ftra_id " & vbCrLf & _ "FROM tblCheckINOut " & vbCrLf & _ "WHERE (((tblCheckINOut.EmpUser)=funEmpUserid())) " & vbCrLf & _ "ORDER BY tblCheckINOut.id DESC;" Set rs = CurrentDb.OpenRecordset(strSql) If rs.RecordCount = 0 Then rs.AddNew rs!EmpUser = id rs!chekInOut = Now() rs!chkio = "I" rs!ftra_id = EmpFatrah Me.txtnm = empName LabelH.Caption = "حضور" Me.Requery Me.TimerInterval = 3000 Me.id = "" Me.id.SetFocus rs.Update Exit Sub End If Dim waitTime As Integer Dim AdTim As Date waitTime = Nz(DLookup("waitBtween", "tblTimeCtrl"), 0) AdTim = DateAdd("n", waitTime, rs!chekInOut) If Now() < AdTim Then Me.id.SetFocus Beep Me.LabelH.Caption = "توقيع مكرر !! انتظر قليلا ..." id = "" Me.TimerInterval = 3000 id.SetFocus Exit Sub Else If rs!chkio = "I" Then rs.AddNew rs!EmpUser = EmpUserid rs!chekInOut = Now() rs!chkio = "O" rs!ftra_id = EmpFatrah Me.txtnm = empName LabelH.Caption = "انصراف" Me.Requery Me.id = "" Me.TimerInterval = 3000 Me.id.SetFocus rs.Update Exit Sub ElseIf rs!chkio = "O" Then rs.AddNew rs!EmpUser = EmpUserid rs!chekInOut = Now() rs!chkio = "I" rs!ftra_id = EmpFatrah Me.txtnm = empName LabelH.Caption = "حضور" Me.Requery Me.TimerInterval = 3000 Me.id = "" Me.id.SetFocus rs.Update Exit Sub End If End If End Sub وهذه هي النتيجة الرائعة : Private Sub id_AfterUpdate() Dim EmpUserid As Variant Dim mylevl As Boolean Dim EmpFatrah As Variant Dim rs As DAO.Recordset Dim strSql As String Dim waitTime As Integer Dim AdTim As Date Dim empName As String ' Declare empName EmpUserid = Me.id ' Corrected logic for mylevl to check for user existence mylevl = Not IsNull(DLookup("Emp_user", "tblEmpNames", "Emp_user='" & EmpUserid & "'")) EmpFatrah = Nz(DLookup("fatrah", "tblEmpNames", "Emp_user='" & EmpUserid & "'"), 0) If mylevl = False Then Beep Me.LabelH.Caption = "خطأ!! .. الادخال غير صحيح" Me.TimerInterval = 3000 Me.id = "" Me.id.SetFocus Exit Sub End If ' Lookup empName once after confirming user existence empName = Nz(DLookup("Emp_Name", "tblEmpNames", "Emp_user='" & EmpUserid & "'"), "") strSql = "SELECT TOP 1 tblCheckINOut.id, tblCheckINOut.EmpUser, tblCheckINOut.chekInOut, tblCheckINOut.chkio, tblCheckINOut.ftra_id " & vbCrLf & _ "FROM tblCheckINOut " & vbCrLf & _ "WHERE (((tblCheckINOut.EmpUser)='" & EmpUserid & "')) " & vbCrLf & _ "ORDER BY tblCheckINOut.id DESC;" Set rs = CurrentDb.OpenRecordset(strSql) If rs.RecordCount = 0 Then rs.AddNew rs!EmpUser = EmpUserid rs!chekInOut = Now() rs!chkio = "I" rs!ftra_id = EmpFatrah Me.txtnm = empName Me.LabelH.Caption = "حضور" Me.Requery Me.TimerInterval = 3000 Me.id = "" Me.id.SetFocus rs.Update rs.Close Set rs = Nothing Exit Sub End If waitTime = Nz(DLookup("waitBtween", "tblTimeCtrl"), 0) AdTim = DateAdd("n", waitTime, rs!chekInOut) If Now() < AdTim Then Me.id.SetFocus Beep Me.LabelH.Caption = "توقيع مكرر !! انتظر قليلا ..." Me.id = "" Me.TimerInterval = 3000 Me.id.SetFocus rs.Close Set rs = Nothing Exit Sub Else If rs!chkio = "I" Then rs.AddNew rs!EmpUser = EmpUserid rs!chekInOut = Now() rs!chkio = "O" rs!ftra_id = EmpFatrah Me.txtnm = empName Me.LabelH.Caption = "انصراف" Me.Requery Me.id = "" Me.TimerInterval = 3000 Me.id.SetFocus rs.Update rs.Close Set rs = Nothing Exit Sub ElseIf rs!chkio = "O" Then rs.AddNew rs!EmpUser = EmpUserid rs!chekInOut = Now() rs!chkio = "I" rs!ftra_id = EmpFatrah Me.txtnm = empName Me.LabelH.Caption = "حضور" Me.Requery Me.TimerInterval = 3000 Me.id = "" Me.id.SetFocus rs.Update rs.Close Set rs = Nothing Exit Sub End If End If End Sub صحيح هو اضاف لي هذا المتغير : Dim EmpUserid As Variant ولكن هذا المتغير تم الاعلان عنه في الوحدة النمطية كمتغير عام وانا لا الومه لانه لا يعلم وليس له الا الظاهر ☺️

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

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

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

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

كما في الجدول لديك الحضور الساعة 5:47 يوم السبت 29/11 اذا عدد ساعات العمل 8 ساعات فإن الخروج متاح حتى الساعة 2 صباحا يوم الاحد 30/11 وليس 29/11 لذا يجب الانتباه لتاريخ ووقت الكمبيوتر

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

اخي الكريم محمد حسن جرب الآن ووافني بنتيجة التجربة ChkInOut_NetUp5.rar

للعلم تم تعديل جميع الملاحظات المطروحة سابقا وللعلم ايضا : الحضور والانصراف محصور بين وقتين معلومين ففي الصباح اذا كان وقت الحضور الساعة 8 والانصراف الساعة 2 ظهرا فوقت التوقيح المتاح محصور ما بين الساعة 7 صباحا والــ 3 ظهرا وينطبق ذلك على الفترة الأخرة ... وغير ذلك لا يمكن التوقيع اجراء التجارب بسيط كل الذي عليك فعله هو تغييير ساعة الكمبيوتر انتظرني اوافيك بالنسخة المعدلة

جزيت خيرا .. ما على كريم تشرط .. أعانك الله ووفقك

ارى لا مشكلة في جعل التايمر 10 ثواني حتى اني افكر بازالة الثواني والابقاء على الساعة والدقائق وجعل التايمر 30 ثانية او 60 نحن نتعامل مع بشر وليس آلات المشكلة الحقيقية هي وجود وقت فعلي حقيقي يستغرقه عند جلب البيانات ، حتى لو ان هذا الوقت = ربع ثانية اما على الحاسبة فان الوقت معدوم فيمكن اجراء آلاف العمليات في اقل من ثانية

للأسف يرجع وقتا خاطئا حاولت ولم انجح الساعة عندي الآن 2:16 صباحا والمتغير = 3 ولكنه يجلبها 4:40 غيرت المتغير الى منطقة مصر فنقصت ساعة يعني الثالثة صباحا والصحيح في مصر الساعة الواحدة

يبدوا اننا نكتب معا نعم مشكلتنا في التايمر سوف اجرب ما تفضلت به واخبرك بالنتيجة ولكن تبقى الدالة varGeneralDate يتم جلبها عند كل عملية توقيع .. واحيانا تشعر بشيء من تأخر عند كتابة الرقم قبل التحديث

دالة الانترنت في مثالي .. مستقرة عندي ، والبطء الموجود أحيانا مقبول نوعا ما المهم هو منع الجمود

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

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