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

نجوم المشاركات

  1. ابوخليل

    ابوخليل

    أوفيسنا


    • نقاط

      32

    • Posts

      13320


  2. عبدالله بشير عبدالله
  3. Foksh

    Foksh

    أوفيسنا


    • نقاط

      9

    • Posts

      4141


  4. منتصر الانسي

    منتصر الانسي

    المشرفين السابقين


    • نقاط

      6

    • Posts

      1136


Popular Content

Showing content with the highest reputation since 10/20/25 in all areas

  1. السلام عليكم بريمج صغير في حجمه وادواته .. ولكنه محكم ويفي بمتطلبات عملية الحضور والانصراف واحتساب ساعات ودقائق العمل . ومع ذلك هو قابل للتطوير واضافة خدمات اخرى مثل الغيابات والاجازات والعطل والاستئذان ونحوها ومثل جعل شاشة الحضور منفصلة عن البرنامج الاساسي واشياء اخرى كثيرة لا يمكن حصرها المهم ان العمل هذا يفي بالحاجات الأساسية والضرورية ....................... عملية التحضير تتم اما بادخال المعرف يدويا ثم النقر على انتر وإما استخدام قارىء الباركود كل ذلك تم تهيئته في البرنامج .. بطاقات وكشوف الباركود المطلوب قبل العمل على البرنامج هو نسخ ملف اداة الباركود barcodex.ocx الى نظام وندوز وتسجيلها تم العمل على وندوز 64 وأوفيس 32 بت الملف موجود ضمن المرفق ChkInOut.rar
    5 points
  2. السلام عليكم استبدل هذا Private Sub UserForm_Initialize() Call showinlistbox End Sub بهذا Private Sub UserForm_Initialize() TextBox25 = Val(Sheets("table").Cells(Rows.Count, 1).End(xlUp).Value) Call showinlistbox End Sub TextBox25 = Val(Sheets("table").Cells(Rows.Count, 1).End(xlUp).Value)
    4 points
  3. و عليكم السلام ورحمة الله و بركاته انشيء ملف جديد و وأضبطه كما تريد من حيث الحجم و الهوامش و كل شيء بعدين احفظ الملف باسم مثلا A4 وبصيغة Excel Template (*.xltx) الحفظ يكون في المسار التالي C:\Users\[اسم المستخدم]\Documents\Custom Office Templates لما تنشئ ملف جديد اختار القالب اللي أنت عملته اللي هو A4
    4 points
  4. وعليكم السلام ورحمة الله وبركاته جرب التعديل التالي الشرقية1.xlsm
    3 points
  5. وعليكم السلام ورحمة الله وبركاته اذا اردت الاسنغناء عن الكمبوبكس ويتم الاختيار المتعدد بواسطة لستبوكس 2فلتر.xlsm
    3 points
  6. 🧹 أداة تنظيف الصور – الحل الذكي لمشكلة تضخم قواعد بيانات Access بسبب تراكم الصور في عالم تطبيقات Microsoft Access، تعتبر إضافة الصور إلى النماذج والتقارير أمرًا شائعًا جدًا، خصوصًا عندما يرغب المطور في تصميم واجهة جذّابة ومنظمة بصريًا. تُستخدم الصور عادةً في الأزرار، الشعارات، الرموز التوضيحية، الخلفيات، وحتى في عناصر التحكم الخاصة بالعروض البصرية. لكن مع مرور الوقت وتعدد عمليات التطوير والتحديث، تبدأ مشكلة خفية وخطيرة في الظهور… وهي تراكم الصور غير المستخدمة داخل قاعدة البيانات. 📸 كيف تبدأ المشكلة؟ خلال عملية تصميم وتعديل النماذج أو التقارير، يقوم المطور أحيانًا بتجربة أكثر من صورة أو شعار، أو ربما يستبدل صورة بأخرى جديدة لتحسين المظهر. لكن Access – بحكم طريقة تخزينه للموارد – لا يحذف الصور القديمة تلقائيًا من قاعدة البيانات. وبالتالي تظل تلك الصور غير المستخدمة محفوظة داخل جداول النظام، وتحديدًا في جدول MSysResources، حتى بعد حذف العنصر الذي كان يستخدمها. ومع مرور الوقت، تتراكم هذه الصور بشكل كبير جدًا، خصوصًا في المشاريع التي تشهد تحديثات مستمرة أو تتضمن عددًا كبيرًا من النماذج والتقارير. قد لا يلاحظ المستخدم أو المطور ذلك في البداية، لكن النتيجة تظهر لاحقًا بشكل واضح من خلال تضخم غير مبرر في حجم ملف القاعدة. ⚠️ ما هي آثار تراكم الصور على قاعدة البيانات؟ زيادة حجم الملف بشكل كبير: قد تتضاعف أحجام قواعد البيانات إلى أضعاف حجمها الطبيعي بسبب وجود صور غير مستخدمة. في بعض الحالات، يمكن أن يتجاوز حجم القاعدة الحد الأقصى المسموح به أو يؤدي إلى بطء في الأداء العام. بطء في الأداء عند الفتح أو الحفظ: كلما زاد حجم ملف القاعدة، أصبح فتحها أو حفظها أبطأ. العمليات التي كانت تستغرق ثوانٍ قد تبدأ في استهلاك وقت أطول بكثير. احتمال تلف القاعدة أو ظهور أخطاء: قواعد Access الكبيرة والمعقدة أكثر عرضة للأخطاء الداخلية، خصوصًا عند العمل في بيئة متعددة المستخدمين أو عبر الشبكة. الصور الزائدة تمثل عبئًا إضافيًا على الذاكرة الداخلية للملف (MDB أو ACCDB). صعوبة النسخ الاحتياطي أو النقل: القواعد الكبيرة تحتاج وقتًا أطول للنسخ والتحميل، وقد تواجه مشاكل أثناء النقل بين الأجهزة أو عبر البريد الإلكتروني. تأثير سلبي على تجربة المستخدم: في النظم التي تعتمد على سرعة الاستجابة وسلاسة التشغيل، أي تأخير أو ثقل في القاعدة يمكن أن يسبب انزعاجًا للمستخدمين أو العملاء النهائيين. 🔍 لماذا يصعب تنظيف هذه الصور يدويًا؟ رغم أن الصور المخزنة في MSysResources يمكن رؤيتها بطريقة غير مباشرة، إلا أن التعرف على الصور المستخدمة فعليًا في النماذج والتقارير عملية معقدة جدًا. فهي تتطلب المرور على عشرات وربما مئات العناصر داخل القاعدة، وفحص خصائص كل عنصر لمعرفة ما إذا كان يستخدم صورة معينة أم لا. وهذا العمل اليدوي غير عملي، ويحتاج وقتًا طويلًا وخبرة تقنية متقدمة جدًا في Access. كذلك، حذف الصور من جدول النظام يدويًا دون دراسة دقيقة قد يؤدي إلى كسر الروابط الداخلية، مما يتسبب في فقدان بعض الصور المستخدمة فعلاً داخل الواجهة أو التقارير. وبالتالي، لا توجد طريقة آمنة وسهلة لتنظيف هذه الملفات يدويًا. 💡 الحل: أداة تنظيف الصور هنا يأتي دور أداة تنظيف الصور التي تم تطويرها خصيصًا لحل هذه المشكلة بطريقة ذكية وآمنة. بدلاً من محاولة التعامل مع المشكلة يدويًا أو الاكتفاء بضغط القاعدة بشكل سطحي، تعمل الأداة على تحليل قاعدة البيانات المستهدفة بالكامل وتحديد الصور غير المستخدمة بدقة متناهية. تقوم الأداة بعملية فحص داخلية دقيقة لجميع النماذج، التقارير والعناصر، لاستخراج جميع الصور التي يتم استخدامها فعلاً داخل الواجهة. بعد ذلك، تجري مقارنة ذكية مع الصور المخزنة فعليًا داخل الجدول النظامي المسؤول عن الموارد، لتحديد الصور التي لم تعد مستخدمة. وبمجرد تحديد الصور الزائدة، تقوم الأداة بحذفها بطريقة فنية تضمن الحفاظ على سلامة باقي المرفقات والعناصر. بهذا الشكل، يتم تنظيف قاعدة البيانات من الملفات الزائدة دون أي تأثير على التصميم أو المحتوى. ⚙️ سهولة الاستخدام رغم أن العملية معقدة في الخلفية، إلا أن تجربة المستخدم في الأداة بسيطة للغاية. كل ما يحتاجه المستخدم هو اختيار القاعدة المستهدفة، ثم تترك الأداة لتقوم بعملها تلقائيًا. خلال دقائق معدودة، يتم فحص وتنظيف القاعدة بالكامل، لتخرج في النهاية بملف أخف وأسرع وأكثر استقرارًا. 🚀 النتائج والفوائد تقليل حجم القاعدة بشكل كبير: في أغلب الحالات، يتم خفض الحجم بنسبة تتراوح بين 20% إلى 60%. تحسين سرعة الفتح والحفظ: يصبح التعامل مع القاعدة أسرع وأكثر سلاسة. زيادة استقرار النظام: يقل احتمال ظهور أخطاء أو تلف في القاعدة بسبب البيانات الزائدة. تحسين أداء النسخ الاحتياطي والنقل: القاعدة الأصغر أسهل في التخزين والمشاركة. تنظيف احترافي بدون تدخل يدوي: كل شيء يتم بطريقة آلية وآمنة. 🔒 الأمان قبل كل شيء تم تصميم الأداة لتتعامل بحذر شديد مع موارد النظام، فهي لا تقوم بأي حذف عشوائي أو تجريبي. كل عملية حذف تتم بعد التأكد من أن الصورة غير مستخدمة فعليًا في أي عنصر داخل القاعدة. كما يمكن تشغيل الأداة على نسخة احتياطية من القاعدة لضمان أمان إضافي في بيئة الإنتاج. 🧠 خلاصة مع مرور الوقت، يمكن أن تتحول قواعد بيانات Access إلى بيئة مزدحمة بالصور غير الضرورية التي تبطئ الأداء وتزيد الحجم وتعرض النظام للخطر. لكن باستخدام أداة تنظيف الصور، يمكن التخلص من هذه المشكلة نهائيًا بطريقة احترافية وآمنة، دون الحاجة لأي تدخل يدوي أو مهارات تقنية متقدمة. إنها الأداة المثالية لكل مطور أو مستخدم يريد الحفاظ على قاعدة بياناته نظيفة، خفيفة وسريعة — تمامًا كما كانت في يومها الأول. CleanPhotoGallery.zip
    2 points
  7. السلام عليكم نهنىء انفسنا و حبيبنا محب العقيدة @محب العقيدة اهلا وسهلا بك ضمن مجموعة الخبراء زادك الله علما ورفعة ونفع بك
    2 points
  8. وعليكم السلام ورحمة الله وبركاته المشكلة الرئيسية هي في منطق البحث البحث عن الأعمدة يتم من الصف 3 (G3:U3) ولكن البيانات تبدأ من الصف 4 الإزاحة (offset) غير صحيحة عند استخراج القيم اليك التعديل تنسيق ترتيب الجداول الكمية مع اسم الصنف مع التاريخ التابع له - Copy - Copy.xlsm
    2 points
  9. السلام عليكم ورخمة الله وبركانه " 🌟 نأمل في المرات القادمة إرفاق الملف بدون كلمة مرور للصفخات ومحرر الاكواد لتتمكن مشاركته بشكل أوسع من قبل الزملاء. شكراً لتفهمك! 🤝" المشكلة في ملفك في استدعاء رقم التسجيل صفحة قوائم التلاميذ - تم عملها بكود تلقائي وان اردت معادلة استخذم المعادلة التالية وهي نفس المعادلة تطبق على كل الشيتات والتغيير الوحيد فيها يتم في خلية اختيار القسم او الفوج =IFERROR(INDEX(Data!B:B;AGGREGATE(15;6;ROW(Data!$Z$4:$Z$1000)/(Data!$Z$4:$Z$1000=$C$6);ROW(A1)));"") الملف التقرير اليومي لمستشار التربية - ثانوي - 12.5.0.xlsm
    2 points
  10. أخي طاهر ، هل هذا ما تريده ؟؟ إذا كان هو فعلاً ، فانظر ماذا سنفعل . أولاً انشاء مربع نص ولنفترض اسمه = txtRowNumber ، وسنجعل قيمته أو مصدر بياناته = "=1" ليقوم بعد السجلات الحالية في التقرير . ( الإضافات حتى لا نقوم بتعديل أي تركيبة في تقريرك وللتوضيح طبعاً ) ثانياً إنشاء مربع نص أيضاً للتاريخ ولنفترض اسمه = txtAutoDateDisplay . وسنجعل له قيمة مصدر بيانات بناءً على الاستعلام مصدر التقرير = =IIf([txtRowNumber]=Int(DCount("*","tbl_Loans","EmployeeID=" & [EmployeeID] & " AND Auto_Date=#" & [Auto_Date] & "#")/2)+1,[Auto_Date],"") حيث الهدف من فكرتي هو عدّ السجلات بناءً على مربع النص txtRowNumber وقسمتها على 2 للتوسيط وبالتقريب طبعاً حتى لة كان عدد السجلات 10 مثلاً فسيكون العرض في السجل 6 مثلاً . ثالثاً إنشاء مربع نص أيضاً للرقم وسأفترض اسمه = txtEmployeeIDDisplay . وسيكون له قيمة مصدر بيانات = =IIf([txtRowNumber]=Int(DCount("*","tbl_Loans","EmployeeID=" & [EmployeeID] & " AND Auto_Date=#" & [Auto_Date] & "#")/2)+1,[EmployeeID],"") وطبعاً قمت بإخفاء الحقول الأصلية . ولكن عليك تجربة الفكرة على سجلات كثيرة للتأكد من الفكرة . المرفق لتجربته :- Z1.zip
    2 points
  11. السلام عليكم و رحمة الله و بركاتة الزملاء الكرام وأعضاء المنتدى الموقرين، تحية طيبة وبعد، نتشرف بإبلاغكم، بفضل الله وتوفيقه، اكتمال المرحلة التطويرية النهائية لتطبيقنا المبارك: [القرآن الكريم]. نأمل أن يكون هذا العمل وقفاً رقمياً مستداماً، وأن يكتب أجره لمن ساهم في إنجازه مادياً وتقنياً. دعوة للمراجعة الفنية وضمان الجودة (Quality Assurance): قبل الإطلاق الرسمي والتعميم، ندعوكم، خاصةً من ذوي الخبرة التقنية والمستخدمين المتمرسين، لتحميل النسخة التجريبية والمشاركة في مراجعتها بدقة وعمق. إن الهدف الجوهري من هذه المرحلة هو: ضمان جودة الأداء: والتأكد من توافق التطبيق مع المعايير التقنية واحتياجات شرائح المستخدمين المتنوعة. تحديد نقاط التحسين: واكتشاف أي مواطن خلل أو قصور فني ووظيفي يتطلب تعديلاً. تحقيق التكاملية: للوصول إلى أفضل تجربة مستخدم ممكنة. نؤكد استعداد فريق العمل لدمج وتطبيق الملاحظات البنّاءة التي تصب في مصلحة الهدف العام للتطبيق، مع الالتزام التام بإعادة نشر النسخة المحسّنة والموثقة لجميع المساهمين والجمهور، تحقيقاً لمبدأ "الصدقة الجارية والمنفعة العامة". ختاماً، ندعو المولى عز وجل أن يتقبل هذا الجهد المشترك وأن يجعله في ميزان حسنات كل من شارك في بناء هذا العمل وفي تحسينه ونشره. مع خالص التقدير والامتنان، حسين الحمادي ابو يوسف القران الكريم.xlsm
    2 points
  12. لدي مشروع تكاليف سأقوم بنشره مفتوح المصدر واضعه في موضوع جديد حتى يتسنى للباحثين عن هكذا مواضيع لكن دعني ارتب اوراقي اولا ثم انشره كان هناك رابط لليوتيوب يبين طريقة عمله قمت بحذفها هههه
    2 points
  13. وعليكم السلام ورحمة الله وبركاته دالة COUNTA (لا تعمل مع التصفية) دالة SUBTOTAL وهي في حالتين =SUBTOTAL(3, A1:A10) تقوم بعدّ كل القيم غير الفارغة في A1:A10 حتى المخفية. اي لا تعمل مع التصفية =SUBTOTAL(103, A1:A10) تقوم بعدّ القيم غير الفارغة فقط في الصفوف الظاهرة بعد التصفية أو الإخفاء اي تعمل مع التصفية الرقم 103: يمثل (عدّ القيم غير الفارغة) مع تجاهل الصفوف المخفية يدويًا أو بواسطة التصفية. اليك طلبك 05- محرك بحث يعمل على تصفية البيانات حسب كل خلية على حدى 23-10-2025.xlsm
    2 points
  14. سبب هذه الأخطاء هو أن برنامج Excel 2007 لم يتمكن من العثور على عنصر تحكم ListViewData (أو ListViewControl) لأنه لم يتم تثبيته أو تفعيله بشكل صحيح على جهازك. ساعطيك خطوات ربما تحل المشكلة من محرر الاكواد -TOOLS)ادوات) -References... (المراجع...). القائمة التي تظهر، ابحث عن المكتبة المسؤولة عن ListView، والتي عادةً ما تكون إحدى هذه الخيارات: Microsoft Windows Common Controls 6.0 (SP6) Microsoft ListView Control, Version 6.0 (SP6) Microsoft Common Controls ضع علامة صح بجوار المكتبة التي تحمل اسم Microsoft ListView Control أو Microsoft Windows Common Controls. اضغط OK (موافق). إذا لم تجد المكتبة، فهذا يعني أنها غير مسجلة على جهازك قم بتحميل اصدار 2016 او 2019 للخروج من هذه الاشكاليات او يمكنك العمل على اول ملف باللستبوكس ووجود البيانات يمين او يسار لا يعنى شيئا ما دام طلبك الرئيسى وهو الفلترة يعمل بكفاءة او ربما الزملاء الافاضل لديهم ما يقدمونه لملفك
    2 points
  15. وعليكم السلام ورحمة الله وبركاتة تقصد يحول اسم الشيت الى رقم اعتقد ان عدد حروف اسم الشيت يجب ان لا تتجاوز 31 حرف من ضمنها الفراغات الواضخة والمخفية بين الكلمات وهذا من ثوابت الاكسل يوجد حلان الحل الأول، والذي ربما لا تفضله كما ذكرت، هو الاختصار الرقمي. على سبيل المثال، استبدال 'أربعة وعشرون' بالرقم '24' ليصبح الوصف: 'مكيف سبليت جنرال 24 وحدة'. "الحل الثاني: على الرغم من أن أسماء بعض الأصناف تفي بمتطلبات الحد الأقصى لعدد الأحرف، إلا أن رفض النظام لها يحدث غالبًا بسبب وجود مسافات زائدة (ظاهرة أو مخفية). لاحظنا في ملفك وجود مسافات متكررة، مثل الفراغين بين 'سبليت جنرال'. لذلك، من الضروري تضمين دالة في الكود لمعالجة النص وإزالة جميع الفراغات الزائدة قبل حفظ البيانات." تفضل الملف، آمل أن يلبي هذا متطلباتك الاصناف1.xlsm لك وافر التقدير والاحترام
    2 points
  16. السلام عليكم قم بانشاء مجلد في اي مكان بالجهاز لحفظ الملفات اليك التعديل الشرقية1 (1).xlsm
    2 points
  17. او جرب هذا الملف ربما يتوافق مع 2007 ليس لدي الاصدار لاجرب 3فلتر.xlsm3فلتر.xlsm
    2 points
  18. هذه من ضمن قوائم استاذنا جعفر يمكنك الاطلاع والاستفاده من موضوعه هنا ويمكنك ايضا نقل هذه القائمة من ملف الى آخر بكل يسر وسهوله .. وهذا الذي افعله دوما ... كالتالي : افتح اي ملف اكسس من اعمالك .. على التصميم قم بعملية جلب ادوات وكائنات من ملف اكسس آخر اختر برنامجي هذا اختر اي كائن وليكن جدولا ... ( يمكنك حذفه لا حقا ) انظر الصورة .. يجب تحديد الخيار الذي تم احاطته بالمربع الاحمر وافق على العملية اذهب الى اي تقرير او نموذج ستجد انه تم اضافة القائمتين اليها في الخصائص/ حقل القائمة المختصرة
    2 points
  19. هدية مقبولة وجميلة أستاذنا العزيز 🙂🌷 صدقت القائل عندما يقول الجمال في البساطة .. والبساطة هي الجمال 😊🌹
    2 points
  20. أن شاء الله ولكن لابد أن ترفق ملف اكسل توضيحي ثم تشرح المطلوب
    2 points
  21. وعليكم السلام ورحمة الله وبركاته قمت ياستبدال اللستبوكس بالورقة باخر في يوزرفورم فكرة العمل انقر على الخلية المراد وضع الوظيفة بها في العمود B يظهر الفورم قم بالاختيار ويختفى الفورم عند النقر في اي خلية اخرى لك وافر الاحترام والتقدير LISTBOX1.xlsm
    2 points
  22. السلام عليكم ورحمة الله وبركاته وبها نبدأ يمكنك استخدام خاصية "البحث والاستبدال" (Ctrl + H) مع تنسيق خاص لتحقيق ذلك. 1. اضغط Ctrl + H لفتح نافذة "استبدال". 2. أدخل القيمة التي تبحث عنها في حقل "البحث عن". 3. اترك حقل "استبدال بـ" فارغًا. 4. اضغط على زر "تنسيق" (Format) في قسم "استبدال بـ". 5. اختر لون التعبئة (Fill color) الذي تريده. 6. اضغط "موافق" (OK). 7. اضغط "استبدال الكل" (Replace All). سيتم تلوين جميع الخلايا التي تحتوي على القيمة التي تبحث عنها باللون الذي اخترته.
    2 points
  23. يتم ذلك من خلال دمج المراسلات بين الاكسيل و الوورد راجع الرابط التالي https://www.officena.net/ib/topic/53571-ملف-pdf-لشرح-دمج-المراسلات-بين-الاكسل-والوورد-مفيد-جدا
    1 point
  24. تفضل استاذ @علاء فوزي الحجازي عل عجالة انشاء الله يفيدك . ووافني بالرد . Alaa_Fozi.rar
    1 point
  25. واذا تاخذ بنصيحتي .. الافضل نفكك النموذج الفرعي الى ثلاث .. حسب كل نوع الضوابط التي ترغب فيها على الحقول صعب تحقيقها ضمن الآلية الحالية صحيح انا من قام بعمل هذا النموذج .. ولكن آلية انضمام الحقول اختلفت في التعديلات الاخيرة سابقا العملية تتم عبر مجموعة السجلات .. وحاليا تتم عبر الانضمام المباشر للجدول
    1 point
  26. وعليكم السلام ورحمة الله وبركاته .. بدايةً أهلاً وسهلاً بك أخي الكريم في المنتدى ، ونتمنى أن تجد ما تبحث عنه دائماً . وطبعاً ذلك يتحقق أولاً باتباع قواعد وسياسة المنتدى للحصول على نتيجة لطلبك ؛ بحيث يكون العنوان ذو شرح مختصر يدل على المشكلة . ومن ثم التوضيح في الطلب داخل المشاركة دون البخل ( ) في الكلمات على أصدقائك وأخوتك هنا . وكي تدعم شرحك وجوب وضرورة ارفاق ملف بسيط ليتم التعديل عليه بعد رؤية المشكلة على أرض الواقع .
    1 point
  27. عملت الطريقة و وضعت ما قاله و لكن لم تنجح العملية هل هناك من عملية في vba لاستخراج RichTextBox
    1 point
  28. عمل رائع بارك الله فيك اخي وجعلها في ميزان حسناتك وصدقة جارية لك ان شاء الله
    1 point
  29. وعليكم السلام ورحمة الله تعالى وبركاته.. الملف بصيغة Accde ولا يمكن تعديله وحفظه لما طلبت.
    1 point
  30. السلام عليكم ورحمة الله وبركاته جزاكم الله خيرا واحسن الله اليكم جميعا على هذا العمل الرائع وسرعة الاستجابة وهذا المطلوب وشكراً لكم من أعماق قلبي على عطائكم الدّائم. إ
    1 point
  31. قمت بالتعديل على ملف الاخ @ابوخليل هنـــــا والذي تمت الإشارة إليه أنه الإجابة الصحيحة للموضوع الذي ذكرته اتمنى أن تلبي التعديلات متطلباتك طبعا بالإضافة للتعديلات الخاصة بالجداول المذكورة في ردي السابق ستجد التعديلات في النموذجين frmInvoice و SubformInvoiceDetail (قمت بوضع تعليقات في الأماكن التي قمت بالتعديل فيها لتوضيح ماتم تعديله) ولكن لدي ملاحظة هامة فجدول tblInvoiceDetail يخالف نموذج التطبيع الاول في قواعد البيانات حيث يتم تكرار عمود الكمية ثلاث مرات وكان بالإمكان جعله عمود واحد وستجد أني قد أضفت الجدول tblInvoiceDetailV2 ويحتوي على عمود واحد للكمية والاستعلام qryInvoiceDetailV2 الذي عند فتحه ستجد وكأنه الجدول tblInvoiceDetail الخاص بك (يمكنك حذف الجدول tblInvoiceDetailV2 والاستعلام qryInvoiceDetailV2 فلم أضعهما إلا للتوضيح فقط) تحياتي stock6 .rar
    1 point
  32. محاولة بسيطة في انتظار الاخوة Private Sub cmd_rpt_Details_Click() Call Make_QR_Barcode DoCmd.OpenReport "rpt_QR_Item", acViewPreview, , "[N_T]='" & Me.N_T & "' OR [Type_Item]='" & Me.Type_Item & "'" End Sub
    1 point
  33. وعليكم السلام ورحمة الله وبركاته أخي الكريم 🌹 يبدو إننا تجاوزنا أحد قوانين المنتدى، وهي القاعدة رقم (11) اللي تنص على: يُمنع طرح أكثر من سؤال في موضوع واحد لتسهيل البحث والمتابعة لاحقًا. لذلك لو تم الرد على سؤالك الأول، فضلاً اختر "تمت الإجابة" وابدأ موضوع جديد لسؤالك الآخر، وإذا كان بين السؤالين ارتباط، ممكن تشير للموضوع السابق في سؤالك الجديد. تحياتي وتقديري لك 🌷
    1 point
  34. اخي الكريم سيكون الحقلان Date_expiration و Prix_achat مرتبطان بعمليات الشراء لأن تاريخ الانتهاء وسعر الشراء سيتغيران بيتغير وقت الشراء لذا يتم إضافتهما إلى جدول tblInvoiceDetail اما الحقل Impot سيكون مرتبط بالصنف لأنه نادراً ما يتغير لذا نضيفه الى جدول tblAsnaf (أما إذا كانت الضريبة مرتبطة بنوع المنتج فيتم إضافته إلى جدول tblClassTypes) الحقل Prix_achat_final كونه عملية إحتساب فلا نحتاج لإضافته في جدول بل سيكون حقل محتسب في الإستعلامات مرفق لك ملفك بعد إجراء التعديلات عليه ستجد الإستعلام Query1 يحتوي على الأربعة الحقول المطلوبة يمكنك من خلاله معرفة مصدر كل حقل تحياتي stock7 .rar
    1 point
  35. اي عمل جديد لا بد من ملاحظات وسقطات جرب هذا stock6 .rar
    1 point
  36. شكرا استاذي الفاضل على المساعدة وعلى مجهوداتك الف شكر
    1 point
  37. هناك طرق كثيرة لتسجيل الشاشة بصيغة gif سواء عن طريق البرامج المخصصة أو المواقع التي تقوم بهذا العمل Online انا إستخدم برنامج ScreenToGif وهو برنامج مفتوح المصدر يمكنك تحميله من رابط البرنامج على Github https://github.com/NickeManarin/ScreenToGif/releases/tag/2.42.1 ويمكنك تحميل نسخة التنصيب او النسخة المحمولة واستخدامها سهل للغاية اما عن طريقة الرفع للمنتدى فهي نفس طريقة رفع الصور العادية مثل الصورة الموجودة في اول مشاركة لك في هذا الموضوع تحياتي
    1 point
  38. ما دمت مصر على تطبيق الفكرة .. فيجب تغيير طريقة العمل كليا سوف انظر ما يجب عمله .. والاقرب اننا نكمل جزء من العمل في موضوعك الآخر هناك
    1 point
  39. السلام عليكم ورحمة الله وبركاته بارك الله فيك على هذه الهدية الجميلة بشمهندس ابوخليل ووجدت في التقارير قائمة مختصرة جميلة اعجبتني للطباعة وتحويله الى صيغة ورود وغيره وعند خصائص التقرير في تبويب شرائط القوائم المختصرة وجدت cmb_Copy_Sort_Filter حاولت تطبيقه في احد تقارير بقاعدة بيانات اخرى ولم افلح
    1 point
  40. بارك الله فيك وجزاك الله خير استاذنا الغالي ابا خليل عمل جدا رائع وفكرة جميله جدا
    1 point
  41. تم اظهار المكفولين في النموذج وأيضا في التقرير حسب رغبتك Database32.rar
    1 point
  42. السلام عليكم احسنت استاذي الفاضل ابداع يستحق الشكر
    1 point
  43. اخي الفاضل يوجد اكواد في ورقة العمل عددها 3 Private Sub Worksheet_SelectionChange(ByVal Target As Range) Private Sub ShowListBoxForm(TargetCell As Range) Private Sub HideListBoxForm() ويوجد في الفورم 4 اكواد Private Sub UserForm_Initialize() Private Sub ListBox1_Click() Private Sub UserForm_Deactivate() Private Sub UserForm_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer) ارجو تحديد الكود المطلوب شرحة او النقاط الغامضة بالاكواد
    1 point
  44. وعليكم السلام ورحمة الله وبركانه بعد اذن استاذنا الفاضل عبدللرحيم الاستاذ مستر أيسم ان اردت الحل بالمعادلات فالاستاذ عبدالرحيم حله وافي وكافي اذا اردت الامر بالكود بحيت يجلب المواد والفصول تلقائيا زادات ام تقصت فاليك الملف جمع بشرطين.xlsb
    1 point
  45. 📺 قريباً.. انتظرونا في النسخة الأولى من Foksh TV - فوكش تي ڤي 2025 . الفيديو مقتطف ، لمحاولة تصغير حجم الملف نسخة تجريبية بإصدار 64 تحتوي 3 قنوات حالياً ، وهي قيد التطوير 😉 FokshTV - 64.zip
    1 point
  46. السلام عليكم ورحمه الله وبركاته هدية لأعضاء المنتدى الكرام برنامج أرشفة الخطابات و الوثائق .. الأرشفة الالكترونية مفتوح للعمل عليه غير محدد المدة ومش تجريبي مغلق المصدر (الاكواد) وتعديل النماذج تحياتي user 1234 1118021174_Archivesopen18-1-2021.rar
    1 point
  47. أخي الكريم الأستاذ// أبوحمزة السلام عليكم ورحمة الله وبعد اذن استاذنا الحبيب / سعيد بيرم ولاثراء الموضوع تم ضبط ملفك وضبط المعادلات ما عليك الا ان تدخل رقم السيارة عند الدخول وسوف يكمل لك كل البيانات بصورة تلقائية بالاضافة لرقم المسلسل وادخال التاريخ مقسم الي يوم - شهر - سنة والوقت الي ثواني - دقيقة - ساعة والكود موجود في حدث Private Sub Worksheet_Change(ByVal Target As Range) لورقة دخول السيارات 2014 تقبل تحياتي 1- دخول و خروج السيارات.rar
    1 point
  48. بسم الله الرحمن الرجيم وبه نستعين اخى العزيزالاستاذ // ابوحمزه حياكم الله فضلا شاهد هذا الرابط http://www.officena.net/ib/index.php?showtopic=49733&hl= برنامج متابعة حركة السيارات للأستاذ الفاضل أخى // ضاحى " ابوعمرو" جزاه الله تعالى عنا خيرالجزاء............وجزاكم الله خيرا
    1 point
×
×
  • اضف...

Important Information