abo3aesha_2014

للرفع

معذرة أخي فأنا مازلت مبتدءا كيف أفعل هذه الخطوة برمجيا ؟؟

عفوا يا أستاذنا عندما نقلت الملف علي جهاز كمبيوتر آخر تم السماح بفتح النموذج حتي بعد تغيير الساعة !!!! هل أحتاج لتحديث الوقت الموجود بجدول SaveFirstTimeTbl يدويا عند كل عملية نسخ للبرنامج علي جهاز آخر ؟؟

جزاك الله خيرا شغل محترفين

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

هو شغال تمام لكن هل من طريقة تجعله يترك السجل المحذوف فارغا ولا يقوم بنقل السجل التالي ليحل محل المحذوف ؟؟ يعني مثلا عندي 10 موظفين قمت بحذف الموظف رقم 4 فأريد أن يكون الملف رقم 4 فارغا فعندما أقوم بإضافة موظف جديد فيكون رقمه 4

ليتك أخي شيفان ترفع لنا قاعدة بيانات بها كود لحل هذه المشكلة ولك جزيل الشكر

أردت الاستفادة من هذا الموضوع واستخدمت كود استعادة الترقيم التلقائي لكن عند التنفيذ تظهر لي رسالة خطأ ؟؟

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

والله يا أخي أنا أثقلت عليكم جدا فعلت ما أرشدتني إليه لكن لاحظت أنه يوجد توقيعات قام البرنامج باحتسابها تأخير رغم أنها موقعه في فترة السماح التي هي 10 دقائق

أخي شيفان جزاك الله خيرا ولو أنني لم أفهم موضع الخطأ فيما فعلته لي سؤال أخير وأرجو ألا أكون قد أثقلت عليكم ما الذي أضيفه حتي أحصل السطر الأخير الذي يحدد لي الأيام التي بها تأخير والتي ليس بها تأخير كما صنعته أنت في مرفقك الأول ؟؟

جزاكم الله خيرا جميعا أتعبتكم معي أنا متأكد أن المشكلة عندي أنا نفذت ما أرشدتموني إليه بالحرف لكن لم تأت النتائج كما صنعتموها أنتم !!! هل عدلتم شيئا في بنية الجدول مثلا ؟؟ 22.rar المحاولة الأخيرة لك أخي أبا جودي ضبطت معي لكن بقيت مشكلة احتساب التأخير بعد 10 دقائق من المسجل بالحضور الدفتري

جزاك الله خيرا أبا جودي أسأل الله العظيم أن يفرج همك وأن يزيح كربك للأسف النتيجة واحدة خطرت لي فكرة هل من طريقة نقوم بها بتحويل دقائق التأخير إلي رقم عادي ؟؟

جربت الطريقتين وما ضبطت معي والنتيجة كانت ما تري

السلام عليكم ورحمة الله وبركاته المرفق قاعدة بيانات لبرنامج حضور وانصراف المطلوب عمل استعلام بتأخير الموظف عن الموعد المحدد له في جدول بيانات الموظفين مع العلم أن لكل موظف 10 دقائق تأخير مسموح بهم حاولت كثيرا لكن لم أفلح فأرجو المساعده استعلام بتأخير موظف.rar

جزاك الله خيرا أخي Shivan لكن عملية هامة كهذه أعتقد أن عملية كهذه يلزمها رسالة تأكيد ورسالة أخري تفيد بأن العملية تمت بنجاح فما رأيك في كودك بعد التعديل ؟؟ If MsgBox("هل تريد حذف البيانات ؟", vbYesNo, "تنبيه") = vbYes Then DoCmd.SetWarnings False DoCmd.RunSQL " delete * from TABLE1" MsgBox "لقد تم حذف البيانات بنجاح!!!!", vbOKOnly, "تنبيه" Else DoCmd.CancelEvent End If End Sub

هل يوجد كود يوضع في زر أمر تكون وظيفته تفريغ جميع البيانات من الجدول ؟؟ أو من عدة جداول ؟؟

وعليكم السلام ورحمة الله وبركاته وإياكم أخي أبو جاسم وفقك الله

شاهد هذا المرفق ستجد فيه ما تريد إن شاء الله الاستعلام بين تاريخين.rar

UP

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

المطلوب منع التكرار لنفس التاريخ

شكرا أخي أمير علي اهتمامك أخذت كود زر الحفظ الذي أرشدتني إليه Private Sub sv_Click() If IsNull(DLookup("[رقم الموظف]", "حضور", "[رقم الموظف] = " & Me.ID2 & " AND Format([التاريخ], ""mmddyyyy"") = " & Format(Me.A_date, "mmddyyyy"))) Then Dim strQuery As String Dim currDateTime As Date currDateTime = Now() DoCmd.SetWarnings False DoCmd.RunSQL "INSERT INTO [حضور] ([رقم الموظف],[التاريخ], [حضور]) VALUES (" _ & Me.ID2 & " , #" & Format(A_date, "yyyy/mm/dd") & " #, #" & Format(A_time, "h:m:s") & " #);" DoCmd.SetWarnings True DoCmd.GoToRecord , , acNewRec Me.ID2 = Null Me.name2.Requery Me.Refresh Else MsgBox ("سبق التسجيل") End If End Sub ووضعته كما هو في برنامجي وحدث للأسف أن تم تكرار التسجيل لكل موظف قام بتسجيل حضوره مع العم أن مصدر السجلات في نموذج الحضور عندي هو جدول الحضور وليس جدول بيانات الموظفين كما صممته أنت

جزاكم الله خيرا أخي جعفر

UP