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

عيدكم مبارك وكل عام وانتم بخير

يامرحبا باخي واستاذي الفاضل @مسفر كل عام وانتم بخير الاستفهام له انواع متعددة اشهرها سبعة انواع وهناك من يرى انها اكثر من ذلك فعدها عشرا وبعضهم اكثر ندخل في لب الموضوع وايضا يقاس عليها السؤال وهنا نتعجب من استخدام الاكواد برغم معرفتنا بامكانية عمل ذلك بالنماذج العادية وايضا لو صرحت و قلت اتعجب ان نلجأ الى الاكواد والسكوال لاضافة بيانات الى الجدول طالما ان اكسس وفرت علينا ذلك المجهود بالحقول المنظمة لما تغير المعنى ولو استخدمنا كلمة استغرب ان نلجأ للاكواد الخ ايضا لم يتغير المعنى واستغرب مرادفة لاتعجب او قلنا كيف نلجأ الى الاكواد و .... الخ لن يتغيير المعنى الخلاصة ان نوع الاستفهام يعرف بفهم المعنى وسياق الكلام ودلائل اخرى كالنهي والتهكم والوعيد والحض والاستبطاء والتحقير .... الخ ولا يشترط في استفهام التعجب وجود فعل في سياق الحديث فيمكن ترك الامر على ايهامه للتحقير والتعجب و من ذلك قوله تعالى " وَأَصْحَابُ الشِّمَالِ مَا أَصْحَابُ الشِّمَالِ " وقوله تعالى " وأصحاب المشأمة ما أصحاب المشأمة " او ان يترك على ايهامه للتفخيم والتعجب من حسن المآل كقوله تعالى " وَأَصْحَابُ الْيَمِينِ مَا أَصْحَابُ الْيَمِينِ " واما الاستفهام الانكاري له اغراضه ومن اشهرها التكذيب او التوبيخ على امر مضى او مستمر وهناك من يشترط لهذا النوع من الاستفهام ان يبدأ بهمزة الاستفهام فائدة التعجب في العربية له صيغتان سماعي ليس له وزن او قاعدة محددة ويفهم من سياق المعنى ويندرج تحت هذا النوع الاستفهام التعجبي قياسي وله صيغتان ما افعله وافعل به ويصاغ من اي فعل ثلاثي تام مثبت قابل للتفاوت منصرف مبني للمعلوم لايأتي وصف مؤنثه على وزن فعلاء فان توفر فيه شرطي التفاوت والتصرف ولم يتوفر فيه احد الشروط الاخرى يتعجب منه بغيره اما اذا لم يتوفر فيه احد الشرطين التفاوت او التصرف فلا يتعحب منه مطلقا هذا ما اعلمه فإِن أحسنت فمن الله، وإِن أسأت أو أخطأت فمن نفسي والشيطان والله تعالى اعلم في ردي السابق القصد منه ان رأيك وفقا لفهم السؤال وليس الهدف التجاوز على اخ عزيز و معلم قدير له كل الاحترام والتقدير وان اختلفنا في الرأي اخيرا اعتذر من صاحب الموضوع والقائمين على الموقع عن الاطالة و الخروج عن الموضوع الاساسي للمشاركة

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

نعم كان عبارة عن سؤال باستخدام اسلوب الاستفهام التعجبي وهو من الاساليب السبعة للاستفهام و من ذلك قوله تعالى " ما لهذا الرسول يأكل الطعام ويمشي في الأسواق " وقوله تعالى " كَيْفَ تَكْفُرُونَ بِاللَّهِ وَكُنتُمْ أَمْوَاتاً فَأَحْيَاكُمْ " وفي هذا النوع من الاستفهام لا يتطلب وضع العلامة " ؟ "

صحيح استاذ @jjafferr هو نفس الكود الذي وضعته في مشاركتك السابقة فقط اشرت لرقم الفاتورة في النموذج الرئيسي اعتقد ان وضع زر امر الطباعة في النموذج الفرعي لم يكن الخيار الافضل كما اشار الاستاذ جعفر الكود يعمل ولم اضع الرد الا بعد التجربة تحياتي

جرب الامر Dim stDocName As String stDocName = "re3" DoCmd.OpenReport stDocName, acNormal, , "[invo]=" & Me.Parent!id الملف مرفق برنامجي.mdb

آرائهم ياهلا بمهندسنا الفاضل دائما هناك عدة طرق للوصول للنتيجة وهناك حل وهناك حل افضل وفي النهاية صاحب القرار يختار مايناسبه مشاركة مجموعة من الاشخاص بطرح افكارهم وآرائهم يسهم في ايجاد الحلول ويفتح المجال لافكار جديدة فكرتك ربما تلقى القبول من صاحب الموضوع "وهي فكرة جديرة بالاحترام" ونكون وصلنا للحل المناسب له اما انا لا افضل زيادة عدد النماذج طالما نستطيع تجنب ذلك وهو رأيي شخصي ولا يعني انني على صواب تحياتي وتقديري لك اخي وكل عام وانتم بخير 🌹