kha9009lid

ومن اين نجد اسم الموظف في الجدول اخي انت استخدمت مربع تحرير وسرد في الجدول لاختيار اسم الموظف والحقل الذي يحتوي القيمة حقل رقمي لذا يظهر لديك عند العرض الاسم ولكن القيمة الفعليه المخزن في الجدول رقم الموظف لذا الكثير من الخبراء لا ينصحون باستخدام مربعات التحرير في الجدول وانما في النموذج هذا الموضوع يحتوي على نصائح مفيدة لتجنب بعض المشكلات 👇 ايضا استخدام dsum في التقرير بشكل كبير يسبب بطئ اكثر من 17 دالة !! كما انني اشرت في ردي السابق 👇 وهذا ليس انتقاص لعملك اخي ولكن دائما هناك اطرق افضل للوصول للنتيجة اخيرا الفكرة التي اشار اليها الاستاذ الفاضل هاوي جديرة بالاهتمام انا لم احمل ملفة ولكن استخدام الاستعلام اسرع وافضل واكثر مرونه من صف عدد كبير من الدوالة وتعقيدات المعايير وفقا لانواع الحقول المختلفة ملاحظة في حقل اجمالي النقدية الخارجة انت استخدمت الدالة في جدول "Pa_yme2" لم اجده ضمن الجداول ربما لم ابحث جيدا او خانني النظر الملف مرفق اليوميه2.accdb

الحقول النصية لها طريقة تختلف عن الحقول الرقمية عن التواريخ استبدل المكتوب لديك بالتالي على الترتيب للاول =DSum("[am_Cash]";"ca_sh";"[Nu_ca1]=1" & "and [na_cash]='خارج'" & "and [Da_Cash]=" & Format([tx2];"\#mm\/dd\/yyyy\#")) للثاني =DSum("[am_Cash]";"ca_sh";"[Nu_ca1]=2" & "and [na_cash]='خارج'" & "and [Da_Cash]=" & Format([tx2];"\#mm\/dd\/yyyy\#")) الملف مرفق مع عدم الاقتناع تحياتي وتقديري اليوميه.accdb

معيار الحقل الرقمي يختلف المعيار النصي ورفم السجل لديك حقل نصي لذا استبدل الكود 👇 DoCmd.OpenForm "qq11", acNormal, where, "[s]=" & [s] بالكود التالي 👇 DoCmd.OpenForm "qq11", acNormal, where, "[s]='" & [s] & "'" qqw1.accdb

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

من حسن ذاتك استاذ @kanory وجودكم في الموقع انتم والاساتذة الافاضل يدفعنا للمزيد من العمل والاستمرار بالمشاركة تحياتي وتقديري 🌹

هذا بس من ذوقك دكتور ولا العين ما تعلى على الحاجب 🌹 جرب المرفق test_bar.accdb

ممكن وباكثر من طريقة ولكن الاسهل استخدام in If IsNull(tx3) Then MsgBox "فضلا اكتب رقم الموظف", , "تنبية": Exit Sub Dim k, w As String k = Me.tx3 & "," w = "table.id IN (" & Left$(k, Len(k)) & ")" DoCmd.OpenReport "r_1", acViewPreview, , w الملف مرفق test_bar.accdb

😎

ولك بالمثل اخي محمد اللهم آمين

جرب المرفق New.accdb

استكمال للرد السابق من المعروف ان التعديل ممكن ان يعمل بشكل يدوي مثل الصورة اول مشاركة لي في الموضوع وبعد التعديل نفتح الريجستري ثم نضع المؤشر على International ثم تصدير ولكن هذه الطريقة تقوم بتصدير كافة الاعداد الاقليمية وهذا مالا نريده فاذا اردنا ان نعمل ملف ريجيستري يقتصر عمله على تعديل تنسيق الارقام نستخدم الكود التالي Windows Registry Editor Version 5.00 [HKEY_CURRENT_USER\Control Panel\International] "sNativeDigits"="0123456789" "NumShape"="1" ويمكن ان يقاس الامر على اي تعديل واذا اردنا التعديل عن طريق ملف دفعي يكتب الكود بالشكل التالي reg add "HKCU\Control Panel\International" /f /v sNativeDigits /t REG_SZ /d "0123456789" >nul reg add "HKCU\Control Panel\International" /f /v NumShape /t REG_SZ /d "1" >nul لكتابة ملفات الريجستري والملفات الدفعية نستخدم مفكرة الويندوز او اي برنامج نصي مثل ++ Notepad وهو الافضل لسهولة التعديل تحياتي

الشكر لله اخي ابو اشرف طيب بالنسبة للعميل هل ستطلب منه اجراء التعديل الافضل ان نعمل احد الامرين اذا كان لديك خبرة في التعامل مع ملفات الرجيستري ممكن نعمل ملف reg يتم تشغيله على جهاز العميل يقوم باجراء كافة التعديلات الخاصة باللغة والمنطقة والارقام وصيغة التاريخ جميعها او اي منها ** وللوصول للنتيجة الصحيحة عندما نرغب بعمل ملف ريجستري لتعديل تنسيق الارقام نحتاج الى تغيير قيمتين ضمن تبويب International في الرجيستري NumShape = 1 sNativeDigits = 0123456789 وهذة هي طريقتي اعمل ملف دفعي bat يعمل عن طريق نقطة الاوامر بنظام التشغيل dos يقوم بالاتي تغيير الاعداد المشار اليها اعلاه يقوم بعمل اختصار للبرنامج على سطح المكتب تخفيض امان الماكرو الطريقة الثانية عن طريق كود قام الاستاذ الفاضل @SEMO.Pa3x " د.حسنين " بتعديله ليشمل تعديل تنسيق الارقام اضافة الى امور اخرى 👇 في جميع الاحوال طريقة الدكتور حسنين اكثر امان وبالذات لمن ليس لديه خبرة كافية بالتعامل بالباتشات ومشاكل تعديلات الريجستري ـــــــــــــــــــــــــــــــــــــــــــــــــ * لا انصح باجراء التعديلات لمن ليس لديه الخبرة واخلي مسئوليتي عن اي خطأ ** احتفظ بنسخة من الريجستري قبل اي تعديل يجنبك عناء اعادة تنصيب نظام التشغيل

شوف الصورة

حسب فهمي انك تريد عد ايام الغياب التي تم التاشير عليها واضافة لما اشار اليه الاستاذ @محمد أبوعبدالله استخدام معيار حقل نصي يختلف عن الحقل الرقمي حقل s في اكثر من جدول في نفس الاستعلام فاما تستخدم اسم الجدول في المعيار كما فعل استاذنا محمد او نستخدم اسم مستعار كما عملت انا ايضا وحسب فهمي فنحن نحتاج الى اضافة معيار اخر يتضمن حقل غائب يساوي نعم DCount("*";"22";"[s]='" & [a].[s] & "'" & "and[geab]=true") الملف مرفق ASD1231.accdb بصفة عامة توجد طرق تعطي نتيجة اسرع من استخدام الدالة مباشرة في الاستعلام ولكن لا اجد الوقت للتعديل

جرب الان 503756721_-.accdb