Foksh

ممكن توضحلي آلية عمل برنامجك ، فين بدايته وكيفية تتالي ادخال البيانات الأساسية .... الخ

عمل جميل أستاذ @Barna

أبداً مفيش مشكلة خالص ، بس لو تتحملني لبعد الإفطار لإني لسه حالاً خرجت من الشغل وراجع بعد الإفطار إن شاء الله 😊

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

أخي الكريم ، ينفع حتى لو ماكنش بين الجداول علاقة ، في آكسيس عندك طرق كتيرة تجيب فيها البيانات حسب مفتاح أساسي مثلاً وبدون ما يكون في علاقة بين الجداول .

يبدو أنك يا صديقي فاهم الموضوع غلط , هنا المساعدة علنية وليست بالسر

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

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

تم التعديل على طريقة تنفيذ الكود ليكون الكود كاملاً في زر الحفظ .. مع الذهاب الى سجل جديد عند فتح النموذج Arciving222.zip

اعتقد إنه من السليم بناء العلاقات عند تصميمها وقبل انشاء النماذج ، وليس بعدها على العموم من وجهة نظري ، رأيت أن رقم الأقدمية هو الأنسب ليكون مفتاح الربط بين الجداول . الجمعية التعاونية.zip

للتوضيح:- لعرض ملفات من نوع PDF داخل النموذج ، سيلزمك برنامج ( Adobe Acrobat Reade ) . وهذا رابط للمساهمة

تفضل أخي الكريم ، استبدل الكود في حدث بعد التحديث بالتالي :- Private Sub مربع_تحرير_وسرد137_AfterUpdate() On Error Resume Next Dim strFilter As String Dim strName As String strName = Replace(Replace(Replace(Replace(Me.مربع_تحرير_وسرد137, "أ", "ا"), "إ", "ا"), "ة", "ه"), "ه", "ه") If Len(strName) > 0 Then strFilter = "Replace(Replace(Replace(Replace([jname], 'أ', 'ا'), 'إ', 'ا'), 'ة', 'ه'), 'ه', 'ه') LIKE '*" & strName & "*'" End If With Me.sub_ورقة1.Form If Len(strFilter) > 0 Then .Filter = strFilter .FilterOn = True Else .Filter = "" .FilterOn = False End If .Requery End With End Sub جربه وأخبرني بالنتيجة Waheidi2005_2.zip

أعتذر عن التأخير أخي سامر ، بالنسبة للطلب الأول ( عدد المكررات في الرسالة ) تفضل :- استبدل الحدث في النموذج قبل التحديث من الماكرو إلى هذا الكود Private Sub Form_BeforeUpdate(Cancel As Integer) Dim count As Integer count = DCount("[ID_Number]", "[Ekhla_Details]", "[ID_Number]='" & Forms("Ekhla_Details").Controls("IDNumber").Value & "'") If count >= 1 Then Dim response As VbMsgBoxResult response = MsgBox("أن هذا الموظف له إخلاء سابق عدد " & count & " ، هل تريد الاستمرار ؟ ", vbYesNo) If response = vbYes Then Else Me.Undo MsgBox "تم إلغاء السجل", , "" End If Else MsgBox "تم إلغاء السجل", , "" Me.Undo End If End Sub Arciving222.zip

هذا الكود في حدث بعد التحديث Private Sub ProjectNo_AfterUpdate() Dim strSQL As String Dim rs As DAO.Recordset strSQL = "SELECT LEFT(ReferenceNo, Len(ReferenceNo) - 5) AS ReferenceWithoutDDDD FROM Incoming WHERE ProjectNo = '" & Me.ProjectNo & "'" Set rs = CurrentDb.OpenRecordset(strSQL) If Not rs.EOF Then ReferenceNo.Value = rs!ReferenceWithoutDDDD Else MsgBox "لا توجد بيانات متطابقة" End If rs.Close Set rs = Nothing End Sub وهذا الملف بعد فحصه ومتأكد انه يعمل خلاف ما اظهرت في الصورة. New Microsoft Access Database (3).accdb

🧐🤔😵

افتح سجل جديد اخي الكريم واخبرني بالنتيجة 😅

جرب هذا التعديل أخي الكريم @waheidi2005 . Waheidi2005.zip