اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

kha9009lid

الخبراء
  • Posts

    1,347
  • تاريخ الانضمام

  • تاريخ اخر زياره

  • Days Won

    29

kha9009lid last won the day on يونيو 24

kha9009lid had the most liked content!

السمعه بالموقع

1,839 Excellent

عن العضو kha9009lid

البيانات الشخصية

  • Gender (Ar)
    ذكر
  • Job Title
    مبرمج متقاعد

اخر الزوار

4,734 زياره للملف الشخصي
  1. نعم من حقك الاستغراب ولكن لدي اسبابي التي اشرت اليها اما بشأن التطنيش فهذا غير صحيح ولا يوجد سبب ذلك وخصوصا مع اخ كريم ومعلم فاضلا احرص على متابعة ردودكم واستفيد منها نعم وطلباتك انت وكافة الاخوة اوامر ولكن كان الوقت متأخر واليوم جمعة وزميلي لا يذهب لمتجره يوم الاجازة وكنت سأذهب اليه يوم السبت اخير عبارة تعديلك فهذا مافهمته من مشاركتك 👇 تحياتي وتقديري
  2. الحقيقة انا لم اتعمد تهميش ردكم عندما قمت بالتجربة ولكن كنت في زيارة لاحد الزملاء ولديه الجهاز في متجره وجربنا بشكل سريع ثم حضر بعض العملاء فتوقفت عن التجربه هذا سبب عدم تجربة تعديلك وايضا الكود الاصلي للاستاذ ابو هادي تحياتي وتقديري
  3. ومن اين نجد اسم الموظف في الجدول اخي انت استخدمت مربع تحرير وسرد في الجدول لاختيار اسم الموظف والحقل الذي يحتوي القيمة حقل رقمي لذا يظهر لديك عند العرض الاسم ولكن القيمة الفعليه المخزن في الجدول رقم الموظف لذا الكثير من الخبراء لا ينصحون باستخدام مربعات التحرير في الجدول وانما في النموذج هذا الموضوع يحتوي على نصائح مفيدة لتجنب بعض المشكلات 👇 ايضا استخدام dsum في التقرير بشكل كبير يسبب بطئ اكثر من 17 دالة !! كما انني اشرت في ردي السابق 👇 وهذا ليس انتقاص لعملك اخي ولكن دائما هناك اطرق افضل للوصول للنتيجة اخيرا الفكرة التي اشار اليها الاستاذ الفاضل هاوي جديرة بالاهتمام انا لم احمل ملفة ولكن استخدام الاستعلام اسرع وافضل واكثر مرونه من صف عدد كبير من الدوالة وتعقيدات المعايير وفقا لانواع الحقول المختلفة ملاحظة في حقل اجمالي النقدية الخارجة انت استخدمت الدالة في جدول "Pa_yme2" لم اجده ضمن الجداول ربما لم ابحث جيدا او خانني النظر الملف مرفق اليوميه2.accdb
  4. الحقول النصية لها طريقة تختلف عن الحقول الرقمية عن التواريخ استبدل المكتوب لديك بالتالي على الترتيب للاول =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
  5. معيار الحقل الرقمي يختلف المعيار النصي ورفم السجل لديك حقل نصي لذا استبدل الكود 👇 DoCmd.OpenForm "qq11", acNormal, where, "[s]=" & [s] بالكود التالي 👇 DoCmd.OpenForm "qq11", acNormal, where, "[s]='" & [s] & "'" qqw1.accdb
  6. بعد التجربة للاكواد التي اشار اليها الدكتور.كاف اتفق مع رد الاستاذ هاوي حيث قمت بالتجربة بجهاز الباركود ولوحة المفاتيح وكانت النتيجة قبول رقم واحد من لوحة المفاتيح رقم واحد ايضا من قارئ الباركود يمكن تجاوزة والادخال بلوحة المفاتيح عند استخدام لوحة الارقام الجانبية يمكن تجاوزة من خلال كتابة اي ارقام او حروف في المفكرة ثم لصقها في الحقل ------------------------------ كود الاستاذ kanory يقبل ادخال رقم واحد فقط من لوحة المفاتيح ثم يقوم بحذفه يعمل بشكل ممتاز مع الباركود يتعامل مع الارقام الجانبية كتعامله مع اي حرف بلوحة المفاتيح عند اللصق لايقبل الادخال وحيث ان ارقام الموظفين اكثر من حرف فاعتقد ممكن يؤدي الغرض ----------------------------- كود الاستاذ ابو هادي لم اجربه ومن قراءة سريعة اعتقد انه مقارب لفكرة kanory هذه تجربتي البسيطة وليس الهدف تفضيل عمل على اخر وفي جميع الاحوال حتى لو منعنا الادخال عن طريق الكيبورد يمكن التلاعب بطرق اخرى اذا لم نحمي القاعدة بشكل صحيح واعتذر عن اي اضافة اخرى في الموضوع تحياتي
  7. من حسن ذاتك استاذ @kanory وجودكم في الموقع انتم والاساتذة الافاضل يدفعنا للمزيد من العمل والاستمرار بالمشاركة تحياتي وتقديري 🌹
  8. هذا بس من ذوقك دكتور ولا العين ما تعلى على الحاجب 🌹 جرب المرفق test_bar.accdb
  9. ممكن وباكثر من طريقة ولكن الاسهل استخدام 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
  10. استكمال للرد السابق من المعروف ان التعديل ممكن ان يعمل بشكل يدوي مثل الصورة اول مشاركة لي في الموضوع وبعد التعديل نفتح الريجستري ثم نضع المؤشر على 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 وهو الافضل لسهولة التعديل تحياتي
  11. الشكر لله اخي ابو اشرف طيب بالنسبة للعميل هل ستطلب منه اجراء التعديل الافضل ان نعمل احد الامرين اذا كان لديك خبرة في التعامل مع ملفات الرجيستري ممكن نعمل ملف reg يتم تشغيله على جهاز العميل يقوم باجراء كافة التعديلات الخاصة باللغة والمنطقة والارقام وصيغة التاريخ جميعها او اي منها ** وللوصول للنتيجة الصحيحة عندما نرغب بعمل ملف ريجستري لتعديل تنسيق الارقام نحتاج الى تغيير قيمتين ضمن تبويب International في الرجيستري NumShape = 1 sNativeDigits = 0123456789 وهذة هي طريقتي اعمل ملف دفعي bat يعمل عن طريق نقطة الاوامر بنظام التشغيل dos يقوم بالاتي تغيير الاعداد المشار اليها اعلاه يقوم بعمل اختصار للبرنامج على سطح المكتب تخفيض امان الماكرو الطريقة الثانية عن طريق كود قام الاستاذ الفاضل @SEMO.Pa3x " د.حسنين " بتعديله ليشمل تعديل تنسيق الارقام اضافة الى امور اخرى 👇 في جميع الاحوال طريقة الدكتور حسنين اكثر امان وبالذات لمن ليس لديه خبرة كافية بالتعامل بالباتشات ومشاكل تعديلات الريجستري ـــــــــــــــــــــــــــــــــــــــــــــــــ * لا انصح باجراء التعديلات لمن ليس لديه الخبرة واخلي مسئوليتي عن اي خطأ ** احتفظ بنسخة من الريجستري قبل اي تعديل يجنبك عناء اعادة تنصيب نظام التشغيل
×
×
  • اضف...

Important Information