اذهب الي المحتوي
أوفيسنا

Foksh

أوفيسنا
  • Posts

    3868
  • تاريخ الانضمام

  • Days Won

    159

كل منشورات العضو Foksh

  1. صديقي العزيز ,, مربعي السرد مصدرهم واحد وهو ( ملاك ) ، فكيف ذلك !!!!
  2. اخي الفاضل ، بعد البحث والتقصي لم أجد ما يخفي شريط التمرير في مستعرض الـ PDF ، وذلك من وجهة نظري يعود إلى أنه لو افترضنا أن المرفق أكثر من صفحة !! فكيف سيتم التنقل بين الصفحات في الـ Pdf المعروض ؟؟؟؟؟ كذلك الأمر قمت بتجربة الكود التالي ولم يقم بالإخفاء ، هذا من وجهة نظري و إن كان للأساتذة معلومة أخرى فمنهم نستفيد . Me.WebBrowserControlName.ScrollBars = 0
  3. أختي الكريمة ـ إيصال المعلومة بشكل واضح ومفصل يسهل على الأشخاص الذين يحاولون المساعدة تقديم الحلول .
  4. لا أعلم إن كان اللي فهمته صحيح ولا لأ بالنسبة لمشكلة الإستعلام فالمرفق الذي ارسلتيه لم يفتح عندي ولم يعمل . هذه تجربتي بالاعتماد على الخطوط في المشاركة الأخ @عبد الله قدور . طباعة باركود-1.accdb
  5. هذا مثال بسيط Year_2023.accdb
  6. أعلم ذلك أختي الكريمة ، ولكن هي كملاحظة كانت ليس إلا
  7. تظهر هذه المشكلة عند فتح التقرير عن طريق زر طباعة
  8. المرفق الذي ارسلته لك لم يعمل ؟ أم أنك قمت بنقل الكود الى مشروعك ؟؟؟؟
  9. جرب هذا التعديل بدون مديول foksh.accdb
  10. انت في الكود اللي طرحت حل مشكلته كنت محدد تقرير محدد ، ولكن هناك طريقة طبعاً ,, انتظرني للتعديل
  11. @سامر محمود هل هذا طلبك ؟ foksh.accdb
  12. الحل الأول وهو استخدام الجملة الشرطية في الإخفاء والإظهار للأزرار ، والحل التاني انك تضيفي الأوبشنز للمجموعة التي تحتاجيها بشكل منفصل ، ونفس الحركة اللي عملناها في المرفق الثاني مني نعملها للأوبشنز التانيين حسب رغبتك ومتطلباتك . ولو لقيت حل تالت حبعتهولك هنا
  13. للمتابعة معك حال وجودي في العمل ،،
  14. بدايةً تأكد من مصدر الحقل اللي في التقرير يحتوي قيمة وليس فارغاً ، فعادة في التقارير هذا السبب الأول. أو هذا الكود iif(iserror(Sum([total])),0,(Sum([total])))
  15. مشكور مهندسنا على المتابعة ، وبعتذر لعدم المتابعة بسبب انتهاء دوامي 😊 وجهازي في المنزل يعاني وعكة صحية
  16. اختي الكريمه ، محتاجه كود إيه بالزبط !!!!!
  17. تفضل أخي @حامل المسك هذه التجربة البسيطة .. بدون أيام الإجازة.accdb
  18. من وجهة نظري ، جرب هذا الكود بعد هذا التعديل البسيط Dim reportname As String Dim filenamepath As String reportname = "jop_r" filenamepath = CreateObject("wscript.shell").specialfolders("desktop") & "\" & reportname & "_" & Format(Date, "dd-mm-yyyy") & ".xlsx" DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel12Xml, reportname, filenamepath, True MsgBox "exported successfully",,""
  19. أخي الكريم استخدم خاصية البحث في المنتدى مثلاُ ( واتس اب ) وستظهر لك نتائج قد تفيدك ، بدلاً من خوض التجربة في تعديل أكواد برمجة أخرى تتوافق مع الآكسيس .
  20. أولاً أخي الكريم هناك طرق كثيرة لفكرة القوائم الفرعية ، و واحدة منها ذكرها الأخ @murady ، ثانياً ارفق ملف ليسهل على الإخوة المساعدة.
×
×
  • اضف...

Important Information