كل الانشطه

بارك الله فيكم استاذى

تمام انا احاول انتهج طريقة انسيابية جديدة .. واترك الطريقة التقليدية المتعارف عليها وهي عرض الحالات من جدول الحضور (الحضور والغياب ) فقط سيتم عرض الأيام المستهدفة .. كل معرف وايام عمله الفعلية مع استبعاد عطلة نهاية الاسبوع ( لكل معرف عطلته الخاصة) السجلات الفارغة = غياب .. وسيظهر ( العدد )في الخلاصة وبجانبها عدد ايام الاجازة (ان كان يتمتع باجازته) الخلاصة النهائية عبارة عن ارقام فقط + المعرف .. والفترة من/الى تكون في رأس الخلاصة من اراد تفاصيل الاجازات وتفاصيل التأخر يمكنه ذلك باستعلامات اخرى يتم عرضها من المكان نفسه ( نموذج التقارير)

تجربة تم حذف المسافات والبحث بدالة VLOOKUP تجربة للرفع (2).xlsx

اسم المطلوب / سميحه محمدالسيد سيد اسم الحائز / سميحه محمد السيد

حتى الاسماء المتطابقة لا تعمل المعادلة

هل يوجد حل لها

الاسم المطلوب / محمد متولى سليمان سالم أسم الحائز / محمد متولى سالم سليمان الأفضل البحث بالرفم القومى أو رقم الحيازة مع طلب تعديل البيانات والتأكد من صحتها

اسف نسيت المرفق للرفع.xlsx

السلام عليكم فى الملف المرفق احتاج الى معادلة VLOOKUP ولكنها لا تعمل ارجوا المساعدة وتوضيح سبب عدم عمل المعادلة

بدايةً الخطأ ان اسم مربع النص ID وليس الكود !! ثانياً لازم تمرر مسار واسم النموذج الفرعي اللي موجود فيه الشرط ID . وفي الدالة :- Public Function f11(الكود As Integer) DoCmd.OpenForm "Customer Details", , , "[الكود] = " & الكود End Function لا يتم تمرير الشرط أو المعيار للفلترة . لذا توجهت الى فكرة غريبة نوعاً ما بحيث من خلال الكود يتم البحث عن أول نموذج فرعي يحتوي مربع النص ID كشرط ومعيار للفلترة وتمريره الى جملة فتح النموذج على السجل المحدد . لتصبح الدالة مع مساعد بسيط :- '---------- ( ID تم التعديل هنا بحيث يتم البحث عن أول نموذج فرعي يحتوي مربع النص ) ---------- Public Function f11() On Error GoTo ErrHandler Dim frmMain As Form Dim ctrl As Control Dim frmSub As Form Dim val As Variant Set frmMain = Screen.ActiveForm For Each ctrl In frmMain.Controls If ctrl.ControlType = acSubform Then Set frmSub = ctrl.Form If HasControl(frmSub, "ID") Then val = frmSub.Controls("ID").Value DoCmd.OpenForm "Customer Details", , , "[الكود] = " & val Exit Function End If End If Next ctrl MsgBox ". 'ID' لم يتم العثور على نموذج فرعي يحتوي على الشرط", vbExclamation + vbMsgBoxRight, "" Exit Function ErrHandler: MsgBox "حدث خطأ: " & Err.Description, vbCritical + vbMsgBoxRight, "" End Function Private Function HasControl(frm As Form, ctrlName As String) As Boolean On Error Resume Next HasControl = Not frm.Controls(ctrlName) Is Nothing End Function '---------- ( نهاية التعديل ) ---------- ملفك بعد التعديل :- date-2025 - Copy (4).zip

date-2025 - Copy (4).rar كل اللي محتاجه انا اختار من open هيفتح القائمة المختصرة اختار منها تعديل يفتحلي الفورم اللي فيه داتا العميل المختار للتعديل عليها

فكرة ابو جودي هي الافضل، وللعلم ، فجدول 2 لا يمكن يكون اكثر من ايام السنة 365 سجل ، وقد جربت هذه الطريقة بدل 365 ، جربت 3,000,000 وكانت سريعة ، وكانت السرعة ممتازة: . .

فيديو تعريفي رابط يوتيوب

الحمد لله أخي الكريم ..

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

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

فكرة جميلة يا ابو جودي انا كان في بالي نعمل استعلام1 لأول تاريخ، ثم استعلام2 للتاريخ الثاني، ثم استعلام3 union نجمع نتائج الاستعلامين.

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

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

يعطيك عافية فعلا محاذاة الأبيات الشعرية مسألة مهمة

جميل جدا. poem

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

خلاااااص !! دلوقتي ارتحت ، وأقدر أنسحب بهوووووووووء وانام مرتاح البال والضمير

انت تقصد لاقيت نفسك فاضى قلت فى عقل بالك تعمل ايه تعمل ايه يا واد فؤش اه الواد او جودى هنا وعمال يخبط دماغه فى الحيط .. اسيبــه ؟! .... لا ... اروح اعمل له Error فى دماغه بزياده قبل ما يروح على شغله وبعدين ادخل انام عاش عليك يا فؤش خلاااااااااااااااااااص مباقاش فاضل تكـــــــــه بح خلاص على ايدك يا فؤش أفندى خلصت التكـه

انا عارف والله ان فكرتك أسرع من فكرتي لما يكون الفرق بين التاريخين كبير .. وعارف ان استخدامك للمصفوفة أفضل لأنه ببنيها مرة وحدة وبعدين يجمعها كلها مرة وحدة برضو ، على عكس فكرتي لأن السلسة التراكمية اللي استعملتها يتم بناءها كل مرة ,,, ، انا لقيت نفسي فاضي ، قلت أحاول أتعب دماغي شوية واحاول انام 😴