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 " د.حسنين " بتعديله ليشمل تعديل تنسيق الارقام اضافة الى امور اخرى 👇 في جميع الاحوال طريقة الدكتور حسنين اكثر امان وبالذات لمن ليس لديه خبرة كافية بالتعامل بالباتشات ومشاكل تعديلات الريجستري ـــــــــــــــــــــــــــــــــــــــــــــــــ * لا انصح باجراء التعديلات لمن ليس لديه الخبرة واخلي مسئوليتي عن اي خطأ ** احتفظ بنسخة من الريجستري قبل اي تعديل يجنبك عناء اعادة تنصيب نظام التشغيل