kanory

كما ذكرت لك هي استعلامات مخفية في هذا الاستعلام ....

هل تريد ان افككها الى استعلامات يصبح معك 12 استعلام 😩 الان هي مدمجة في التقرير على شكل sql

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

تفضل المرفق بعد التعديلات <><><><><><><<><><><><><> Gyab%.accdb

اولا حياك الله اخي الكريم ثانيا هل البرنامج لك ... اذا كان لك ... ارسل ملفك عند طريق رفعه في مواقع الرفع

لم افهم عليك ... اذا كان الموضوع مختلف .. افتح موضوع جديد واشرح ما تريده بالتفصيل واشر الى هذا الموضوع

تقصد نسبة الحضور وليس الغياب

مثل هذا ......

شوف كده ......

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

عند الاستيراد ومن شاشات الاستيراد غير خصائص الحقل الى نص بدلا من تاريخ ووقت

تفضل <><><><><><><><><> If DCount("[ID]", "[tb_tashkeel]", "[lgna_1] =" & [Forms]![tashkeel]![lgna_1] & " And [gender] =" & [Forms]![tashkeel]![gender] & " And [gender] =2 ") = 1 Then MsgBox "هناك تكرار في الجنس" Me.lgna_1 = "" ElseIf DCount("[ID]", "[tb_tashkeel]", "[lgna_1] =" & [Forms]![tashkeel]![lgna_1] & " And [religion] =" & [Forms]![tashkeel]![religion] & " ") = 1 Then MsgBox "هناك تكرار في الديانة" Me.lgna_1 = "" End If

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

المرفق شغال بدون اخطاء ... جرب ظهور خطاء بعد تغير مسمى حقلين.accdb

وعليكم السلام ورحمة الله ...... تفضل <><><><><><<><> If DCount("[ID]", "[tb_tashkeel]", "[lgna_1] =" & [Forms]![tashkeel]![lgna_1] & " And [gender] =" & [Forms]![tashkeel]![gender] & " ") = 1 Or DCount("[ID]", "[tb_tashkeel]", "[lgna_1] =" & [Forms]![tashkeel]![lgna_1] & " And [religion] =" & [Forms]![tashkeel]![religion] & " ") = 1 Then MsgBox "هناك تكرار في الجنس او الديانة" Me.lgna_1 = "" End If

اتبع هذه الخطوات مع مراعات كتابة مسار وجود الصورة بالشكل الصحيح ...

طيب هل اسم الصورة هي نفس رقم التعريف للموظف ؟؟؟؟؟؟ اذا امكن مرفق مبسط لدراسته والتعديل عليه ......

واياك...

وهذه طريفة اخرى اقل اكواد <><><><><><><> Dim db As DAO.Database Set db = CurrentDb() db.Execute "DELETE template.UsrID, * FROM template WHERE (((template.UsrID) In (SELECT No_Common FROM QRFingerDelete)))", dbFailOnError Set db = Nothing

وعليكم السلام تفضل <><><><><><><><> Dim rs As DAO.Recordset Dim R As Integer Set rs = CurrentDb.OpenRecordset(" SELECT TB_1.No_Common " & _ " FROM TB_1 INNER JOIN TB_2 ON TB_1.No_Common = TB_2.No_Common " & _ " WHERE (((TB_2.End_Date)<=Date()-1) AND ((TB_2.Case_Com)=102) AND ((TB_2.jadd)=False));", dbOpenDynaset) rs.MoveLast rs.MoveFirst R = rs.RecordCount For i = 1 To R DoCmd.SetWarnings False DoCmd.RunSQL "DELETE template.id, template.FingerTmplate, template.UsrID " & _ " FROM template " & _ " WHERE (((template.UsrID)=" & rs!No_Common & "));" DoCmd.SetWarnings True rs.MoveNext Next i rs.Close Set rs = Nothing

طيب ، سأشرح لك الدالة `GenerateSequence` هذه الدالة تقوم بإنشاء تسلسل رقمي للاسماء المتشابهة في استعلام : 1. `Function GenerateSequence( FullName As String) As Integer`: هذا تعريف الدالة `GenerateSequence` التي تأخذ مُدخل واحد يُسمى ` FullName` من نوع `String` وتُرجع قيمة من نوع `Integer`. 2. `Static dict As Object`: هنا نُعرف متغير `dict` ككائن `Object`. الكلمة `Static` تعني أن الكائن `dict` سيحتفظ بقيمته حتى بعد انتهاء تنفيذ الدالة، وهذا مهم لأننا نريد أن يحتفظ القاموس بالاسماءوالأرقام المتسلسلة التي تم إضافتها سابقًا. 3. `If dict Is Nothing Then Set dict = CreateObject("Scripting.Dictionary")`: هذا الشرط يتحقق إذا كان الكائن `dict` لم يتم إنشاؤه بعد، وفي هذه الحالة يتم إنشاء كائن جديد من نوع "Dictionary" (قاموس). 4. `If Not dict.exists( FullName) Then`: هذا الشرط يتحقق إذا كان الاسم` FullName` غير موجود في القاموس `dict`. 5. `dict.Add FullName, dict.Count + 1`: إذا كان الاسم` FullName` غير موجود، يتم إضافته إلى القاموس مع قيمة تسلسل رقمي جديدة تُحسب بإضافة واحد إلى عدد الاسماء الموجودة في القاموس. 6. `GenerateSequence = dict( FullName)`: في النهاية، تُرجع الدالة القيمة المتسلسلة للاسم` FullName` الموجود في القاموس. باستخدام هذه الدالة في استعلام، يمكنك إنشاء حقل محسوب يعرض رقمًا متسلسلًا لكل اسم متشابه بناءً على ترتيب ظهوره في الاستعلام. هذا مفيد لتتبع الاسماء وترتيبها بشكل فريد داخل الاستعلام.

طيب تفضل <<<<<<<<>>>>>>>> تقرير اجازات.accdb

هل تريدها بهذا الشكل ؟؟؟

اقرأ هذا الموضوع وسوف يساعدك في ذلك ...................................