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

السلام عليكم استبدل هذا 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)

🧹 أداة تنظيف الصور – الحل الذكي لمشكلة تضخم قواعد بيانات Access بسبب تراكم الصور في عالم تطبيقات Microsoft Access، تعتبر إضافة الصور إلى النماذج والتقارير أمرًا شائعًا جدًا، خصوصًا عندما يرغب المطور في تصميم واجهة جذّابة ومنظمة بصريًا. تُستخدم الصور عادةً في الأزرار، الشعارات، الرموز التوضيحية، الخلفيات، وحتى في عناصر التحكم الخاصة بالعروض البصرية. لكن مع مرور الوقت وتعدد عمليات التطوير والتحديث، تبدأ مشكلة خفية وخطيرة في الظهور… وهي تراكم الصور غير المستخدمة داخل قاعدة البيانات. 📸 كيف تبدأ المشكلة؟ خلال عملية تصميم وتعديل النماذج أو التقارير، يقوم المطور أحيانًا بتجربة أكثر من صورة أو شعار، أو ربما يستبدل صورة بأخرى جديدة لتحسين المظهر. لكن Access – بحكم طريقة تخزينه للموارد – لا يحذف الصور القديمة تلقائيًا من قاعدة البيانات. وبالتالي تظل تلك الصور غير المستخدمة محفوظة داخل جداول النظام، وتحديدًا في جدول MSysResources، حتى بعد حذف العنصر الذي كان يستخدمها. ومع مرور الوقت، تتراكم هذه الصور بشكل كبير جدًا، خصوصًا في المشاريع التي تشهد تحديثات مستمرة أو تتضمن عددًا كبيرًا من النماذج والتقارير. قد لا يلاحظ المستخدم أو المطور ذلك في البداية، لكن النتيجة تظهر لاحقًا بشكل واضح من خلال تضخم غير مبرر في حجم ملف القاعدة. ⚠️ ما هي آثار تراكم الصور على قاعدة البيانات؟ زيادة حجم الملف بشكل كبير: قد تتضاعف أحجام قواعد البيانات إلى أضعاف حجمها الطبيعي بسبب وجود صور غير مستخدمة. في بعض الحالات، يمكن أن يتجاوز حجم القاعدة الحد الأقصى المسموح به أو يؤدي إلى بطء في الأداء العام. بطء في الأداء عند الفتح أو الحفظ: كلما زاد حجم ملف القاعدة، أصبح فتحها أو حفظها أبطأ. العمليات التي كانت تستغرق ثوانٍ قد تبدأ في استهلاك وقت أطول بكثير. احتمال تلف القاعدة أو ظهور أخطاء: قواعد Access الكبيرة والمعقدة أكثر عرضة للأخطاء الداخلية، خصوصًا عند العمل في بيئة متعددة المستخدمين أو عبر الشبكة. الصور الزائدة تمثل عبئًا إضافيًا على الذاكرة الداخلية للملف (MDB أو ACCDB). صعوبة النسخ الاحتياطي أو النقل: القواعد الكبيرة تحتاج وقتًا أطول للنسخ والتحميل، وقد تواجه مشاكل أثناء النقل بين الأجهزة أو عبر البريد الإلكتروني. تأثير سلبي على تجربة المستخدم: في النظم التي تعتمد على سرعة الاستجابة وسلاسة التشغيل، أي تأخير أو ثقل في القاعدة يمكن أن يسبب انزعاجًا للمستخدمين أو العملاء النهائيين. 🔍 لماذا يصعب تنظيف هذه الصور يدويًا؟ رغم أن الصور المخزنة في MSysResources يمكن رؤيتها بطريقة غير مباشرة، إلا أن التعرف على الصور المستخدمة فعليًا في النماذج والتقارير عملية معقدة جدًا. فهي تتطلب المرور على عشرات وربما مئات العناصر داخل القاعدة، وفحص خصائص كل عنصر لمعرفة ما إذا كان يستخدم صورة معينة أم لا. وهذا العمل اليدوي غير عملي، ويحتاج وقتًا طويلًا وخبرة تقنية متقدمة جدًا في Access. كذلك، حذف الصور من جدول النظام يدويًا دون دراسة دقيقة قد يؤدي إلى كسر الروابط الداخلية، مما يتسبب في فقدان بعض الصور المستخدمة فعلاً داخل الواجهة أو التقارير. وبالتالي، لا توجد طريقة آمنة وسهلة لتنظيف هذه الملفات يدويًا. 💡 الحل: أداة تنظيف الصور هنا يأتي دور أداة تنظيف الصور التي تم تطويرها خصيصًا لحل هذه المشكلة بطريقة ذكية وآمنة. بدلاً من محاولة التعامل مع المشكلة يدويًا أو الاكتفاء بضغط القاعدة بشكل سطحي، تعمل الأداة على تحليل قاعدة البيانات المستهدفة بالكامل وتحديد الصور غير المستخدمة بدقة متناهية. تقوم الأداة بعملية فحص داخلية دقيقة لجميع النماذج، التقارير والعناصر، لاستخراج جميع الصور التي يتم استخدامها فعلاً داخل الواجهة. بعد ذلك، تجري مقارنة ذكية مع الصور المخزنة فعليًا داخل الجدول النظامي المسؤول عن الموارد، لتحديد الصور التي لم تعد مستخدمة. وبمجرد تحديد الصور الزائدة، تقوم الأداة بحذفها بطريقة فنية تضمن الحفاظ على سلامة باقي المرفقات والعناصر. بهذا الشكل، يتم تنظيف قاعدة البيانات من الملفات الزائدة دون أي تأثير على التصميم أو المحتوى. ⚙️ سهولة الاستخدام رغم أن العملية معقدة في الخلفية، إلا أن تجربة المستخدم في الأداة بسيطة للغاية. كل ما يحتاجه المستخدم هو اختيار القاعدة المستهدفة، ثم تترك الأداة لتقوم بعملها تلقائيًا. خلال دقائق معدودة، يتم فحص وتنظيف القاعدة بالكامل، لتخرج في النهاية بملف أخف وأسرع وأكثر استقرارًا. 🚀 النتائج والفوائد تقليل حجم القاعدة بشكل كبير: في أغلب الحالات، يتم خفض الحجم بنسبة تتراوح بين 20% إلى 60%. تحسين سرعة الفتح والحفظ: يصبح التعامل مع القاعدة أسرع وأكثر سلاسة. زيادة استقرار النظام: يقل احتمال ظهور أخطاء أو تلف في القاعدة بسبب البيانات الزائدة. تحسين أداء النسخ الاحتياطي والنقل: القاعدة الأصغر أسهل في التخزين والمشاركة. تنظيف احترافي بدون تدخل يدوي: كل شيء يتم بطريقة آلية وآمنة. 🔒 الأمان قبل كل شيء تم تصميم الأداة لتتعامل بحذر شديد مع موارد النظام، فهي لا تقوم بأي حذف عشوائي أو تجريبي. كل عملية حذف تتم بعد التأكد من أن الصورة غير مستخدمة فعليًا في أي عنصر داخل القاعدة. كما يمكن تشغيل الأداة على نسخة احتياطية من القاعدة لضمان أمان إضافي في بيئة الإنتاج. 🧠 خلاصة مع مرور الوقت، يمكن أن تتحول قواعد بيانات Access إلى بيئة مزدحمة بالصور غير الضرورية التي تبطئ الأداء وتزيد الحجم وتعرض النظام للخطر. لكن باستخدام أداة تنظيف الصور، يمكن التخلص من هذه المشكلة نهائيًا بطريقة احترافية وآمنة، دون الحاجة لأي تدخل يدوي أو مهارات تقنية متقدمة. إنها الأداة المثالية لكل مطور أو مستخدم يريد الحفاظ على قاعدة بياناته نظيفة، خفيفة وسريعة — تمامًا كما كانت في يومها الأول. الإصدار 64 :- CleanPhotoGallery.zip الإصدار 32 :- CleanPhotoGallery_32Bit.zip

السلام عليكم بريمج صغير في حجمه وادواته .. ولكنه محكم ويفي بمتطلبات عملية الحضور والانصراف واحتساب ساعات ودقائق العمل . ومع ذلك هو قابل للتطوير واضافة خدمات اخرى مثل الغيابات والاجازات والعطل والاستئذان ونحوها ومثل جعل شاشة الحضور منفصلة عن البرنامج الاساسي واشياء اخرى كثيرة لا يمكن حصرها المهم ان العمل هذا يفي بالحاجات الأساسية والضرورية ....................... عملية التحضير تتم اما بادخال المعرف يدويا ثم النقر على انتر وإما استخدام قارىء الباركود كل ذلك تم تهيئته في البرنامج .. بطاقات وكشوف الباركود المطلوب قبل العمل على البرنامج هو نسخ ملف اداة الباركود barcodex.ocx الى نظام وندوز وتسجيلها تم العمل على وندوز 64 وأوفيس 32 بت الملف موجود ضمن المرفق ChkInOut.rar

مفتوح المصدر تحصيل الديون.accdb 2025الموظفين.accdb

السلام عليكم نهنىء انفسنا و حبيبنا محب العقيدة @محب العقيدة اهلا وسهلا بك ضمن مجموعة الخبراء زادك الله علما ورفعة ونفع بك

وعليكم السلام ورحمة الله وبركاته المشكلة الرئيسية هي في منطق البحث البحث عن الأعمدة يتم من الصف 3 (G3:U3) ولكن البيانات تبدأ من الصف 4 الإزاحة (offset) غير صحيحة عند استخراج القيم اليك التعديل تنسيق ترتيب الجداول الكمية مع اسم الصنف مع التاريخ التابع له - Copy - Copy.xlsm

السلام عليكم ورخمة الله وبركانه " 🌟 نأمل في المرات القادمة إرفاق الملف بدون كلمة مرور للصفخات ومحرر الاكواد لتتمكن مشاركته بشكل أوسع من قبل الزملاء. شكراً لتفهمك! 🤝" المشكلة في ملفك في استدعاء رقم التسجيل صفحة قوائم التلاميذ - تم عملها بكود تلقائي وان اردت معادلة استخذم المعادلة التالية وهي نفس المعادلة تطبق على كل الشيتات والتغيير الوحيد فيها يتم في خلية اختيار القسم او الفوج =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

أخي طاهر ، هل هذا ما تريده ؟؟ إذا كان هو فعلاً ، فانظر ماذا سنفعل . أولاً انشاء مربع نص ولنفترض اسمه = 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

لدي مشروع تكاليف سأقوم بنشره مفتوح المصدر واضعه في موضوع جديد حتى يتسنى للباحثين عن هكذا مواضيع لكن دعني ارتب اوراقي اولا ثم انشره كان هناك رابط لليوتيوب يبين طريقة عمله قمت بحذفها هههه

وعليكم السلام ورحمة الله وبركاته دالة COUNTA (لا تعمل مع التصفية) دالة SUBTOTAL وهي في حالتين =SUBTOTAL(3, A1:A10) تقوم بعدّ كل القيم غير الفارغة في A1:A10 حتى المخفية. اي لا تعمل مع التصفية =SUBTOTAL(103, A1:A10) تقوم بعدّ القيم غير الفارغة فقط في الصفوف الظاهرة بعد التصفية أو الإخفاء اي تعمل مع التصفية الرقم 103: يمثل (عدّ القيم غير الفارغة) مع تجاهل الصفوف المخفية يدويًا أو بواسطة التصفية. اليك طلبك 05- محرك بحث يعمل على تصفية البيانات حسب كل خلية على حدى 23-10-2025.xlsm

هناك طرق كثيرة لتسجيل الشاشة بصيغة gif سواء عن طريق البرامج المخصصة أو المواقع التي تقوم بهذا العمل Online انا إستخدم برنامج ScreenToGif وهو برنامج مفتوح المصدر يمكنك تحميله من رابط البرنامج على Github https://github.com/NickeManarin/ScreenToGif/releases/tag/2.42.1 ويمكنك تحميل نسخة التنصيب او النسخة المحمولة واستخدامها سهل للغاية اما عن طريقة الرفع للمنتدى فهي نفس طريقة رفع الصور العادية مثل الصورة الموجودة في اول مشاركة لك في هذا الموضوع تحياتي

سبب هذه الأخطاء هو أن برنامج 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 للخروج من هذه الاشكاليات او يمكنك العمل على اول ملف باللستبوكس ووجود البيانات يمين او يسار لا يعنى شيئا ما دام طلبك الرئيسى وهو الفلترة يعمل بكفاءة او ربما الزملاء الافاضل لديهم ما يقدمونه لملفك

السلام عليكم قم بانشاء مجلد في اي مكان بالجهاز لحفظ الملفات اليك التعديل الشرقية1 (1).xlsm

تفضل استاذ @gavan حسب مافهمت اليك الشرح والمرفق . Test.accdb

أحسنت وبارك الله فيك وزادك الله من فضله

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

تم إضافة النسخة 32 الى المشاركة الأولى 👍

صحيح @Foksh انت وصفت طريقه عملها بشكل مبسط . هذه المشكلة قد تكون موجوده عند كثير من المبرمجين دون ان يشعروا بها فالقاعدة مع التعود تكون عاديه جدا ولكن هناك فرق تاخير طفيف في كل عمليه وكل نموذج يفتح او يغلق . بعد الحذف سوف تلاحظ ان القاعدة اصبحت اخف واسرع الاداه بنظام 32Bit اصبحت جاهزه @ابوخليل في كامل الحماس لمعرفه نتيجة تجربتكم مرفق الملف .. CleanPhotoGallery_32Bit.zip

شكرا اخي على على كرمك وعطائك .. لم اتمكن من استخدام او تجربة الأداة .. لأني اعمل على اوفيس 32 بت

من اجل لا يطول انتظارك تم عمل اللازم الرئيسي حاول تجرب وتكثر التجربة .. واي ملاحظات هاتها .. طبعا اي عمل لا بد من السقطات والغفلة في بعض الأجزاء ................................. تبقى التقرير ... يحتاج الى فكر شبابي .. ورأيت ان يتم تأجيله .. حتى نتأكد من ان العمليات الاساسية ممتازة التقرير يسير فقط حقل واحد وقفت عنده .. وهو المخزون السابق اتمنى تفتح موضوعا جديدا بطلب اعداد التقرير .. حتى نحصل على مشاركة ومساعدة من الأخوة الأعزاء stock12 .rar

جدول TempVendorStatement يتم حذف بياناته ثم الحاق بيانات جديدة عند كل عملية فتح للتقرير بدون وجود الترقيم التلقائي لا مشكلة ولكن مع وجود الترقيم التلقائي مع كل عملية حذف والحاق يبدأ الترقيم التلقائي من آخر رقم تم ترقيمه مثلا لو فرضنا ان التقرير يفتح على 40 سجل عند الحذف والالحاق الثاني سيبدأ الترقيم من 41 وهكذا كل عملية تتزايد الارقام بعد كم شهر لو دخلت الى الجدول قد ترى الترقيم في خانة مئات الآلاف او الملايين الحل للرجوع الى الصفر هو بحذف بيانات الجدول المؤقته ثم عمل ضغط واصلاح .. سيرجع الترقيم ويبدأ من 1

في نموذج frmInvoice هل حقل : رقم الأمر وحقل : الملاحظات مطلوبان؟

انقر على الملف الذي قمت بتحميله زر يمين من الماوس واختر ( خصائص - Properties ) ، وقم بالتعليم كما في الصورة التوضيحية ثم افتح الملف مرة أخرى .

يتم ذلك من خلال دمج المراسلات بين الاكسيل و الوورد راجع الرابط التالي https://www.officena.net/ib/topic/53571-ملف-pdf-لشرح-دمج-المراسلات-بين-الاكسل-والوورد-مفيد-جدا

عجيب !! تريد اسعار وضريبة .. لا وجود لها في برنامجك في المرفق لا وجود لحقول الاسعار والضريبة في نماذج الادخال والاخراج لا مشكلة سوف اجاريك .. حيث يمكننا اظهارها في التقارير فقط .. ولكن يجب ان تكون الاسعار والضريبة قد تم رصدها قبل العمل على البرنامج في مشاركتي الأولى السابقة وجهتك بأن تضع الاسعار ونسبة الضريبة في جدول الاصناف ... ايضا الذي فهمته ان الاسعار ثابتة لا تختلف في الورود او الاخراج .. هل هذا صحيح ؟

تفضل استاذ @علاء فوزي الحجازي عل عجالة انشاء الله يفيدك . ووافني بالرد . Alaa_Fozi.rar

واذا تاخذ بنصيحتي .. الافضل نفكك النموذج الفرعي الى ثلاث .. حسب كل نوع الضوابط التي ترغب فيها على الحقول صعب تحقيقها ضمن الآلية الحالية صحيح انا من قام بعمل هذا النموذج .. ولكن آلية انضمام الحقول اختلفت في التعديلات الاخيرة سابقا العملية تتم عبر مجموعة السجلات .. وحاليا تتم عبر الانضمام المباشر للجدول

وعليكم السلام ورحمة الله وبركاته .. بدايةً أهلاً وسهلاً بك أخي الكريم في المنتدى ، ونتمنى أن تجد ما تبحث عنه دائماً . وطبعاً ذلك يتحقق أولاً باتباع قواعد وسياسة المنتدى للحصول على نتيجة لطلبك ؛ بحيث يكون العنوان ذو شرح مختصر يدل على المشكلة . ومن ثم التوضيح في الطلب داخل المشاركة دون البخل ( ) في الكلمات على أصدقائك وأخوتك هنا . وكي تدعم شرحك وجوب وضرورة ارفاق ملف بسيط ليتم التعديل عليه بعد رؤية المشكلة على أرض الواقع .

للأسف هذا ما وجدته من خلال البحث أخي الكريم .. قد تجد حلول أخرى لمن مر بهذه المشكلة . ولذلك فقط عندما تجد الحل . تم إلغاء إختيار تمت الإجابة .

قمت بإضافة البيانات واعدت فتح التطبيق وظهر بشكل طبيعي كما بالصورة لم يكن هناك اي كميات في النسخة التي قمت بتنزيلها من موضوع الأخ @ابوخليل تم معالجة هذا الأمر في المرفق تحياتي stock6 .rar

وعليكم السلام ورحمة الله وبركاته .. الق نظرة على هذا الفيديو أولاً :- وهذا الرابط هنا الذي يوضح طريقة تسجيل المكتبة من خلال موجه الأوامر ..

وعليكم السلام ورحمة الله تعالى وبركاته.. الملف بصيغة Accde ولا يمكن تعديله وحفظه لما طلبت.

المنتدى الجميل أرفع ملف يتم ربطه بقاعدة البيانات المرفقة وهو مفتوح المصدر وهو عباره عن برنامج لمتابعة حركة السيارات وصياناتها وقطع الغيار وصرف الوقود ومعدلات الصرف وحركة السيارت أرجو أن ينال إعجابكم ويجعله نافعا لمن يستخدمه أسألكم الدعاء بظهر الغيب CARV.7.5.rar CARV.7.5_be.rar

بارك الله فيك وزادك الله من فضله

محاولة بسيطة في انتظار الاخوة 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

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

اخي العزيز من اهم الممارسات الهامة الخاصة ببناء قواعد البيانات هي الحد من الأعمدة / الحقول المكررة وكذلك الأعمدة التي يمكن الحصول عليها كنتيجة إحتساب من حقول موجودة (إلا في حالات نادرة) من ناحية التكرار لماذا لديك عمود للمدفوع من الشركة وعمود الباقي للشركة وهما سيحملان نفس القيمة فمن الطبيعي أن المبلغ الذي ستدفعه الشركة سيكون باقي لها ولو أمعنت النظر قليلا ستجد أنه بالإمكان الإستغناء عن الحقلين (المدفوع من الشركة و الباقي للشركة) بمربع نص محتسب وهو (الإجمالي-المدفوع من السائق) وفيما يخص الشق الثاني فأنت لا تحتاج إلى عمود للإجمالي طالما ولديك حقول أخرى تحمل القيم التي سيتم تجميعها ومن أهم الأسباب التي تتطلب منك الإستغناء عن هذا العمود هو تلافي أي أخطاء فلو قمت عن طريق الخطأ بتعديل الإجمالي يدويا فسيكون لديك بيانات خاطئة هذه الملاحظات هي من باب النصيحة وليست ملزمة فإذا رأيت أن الوضع الحالي هو مايناسبك فأنت صاحب القرار ولكن النصيحة التي الضروري الإلتزام بها فهي الإبتعاد عن تسمية الحقول بكلمات مفصولة بمسافة فهذا سيسبب لك الكثير من الصداع أثناء العمل في الإستعلامات والكود عموما قمت بتعديل الملف الخاص بك لتنفيذ ماطلبته حيث أن تحديث الحقول سيكون عبر الكود ومربعات النص المحتسبة سيكون الاحتساب في خاصية مصدر التحكم (لاجظ الفرق في الوقت الذي ستبذله والنتائج التي ستحصل عليها في الحالتين) تحياتي نموذج تجريبي.rar

اخي الكريم سيكون الحقلان Date_expiration و Prix_achat مرتبطان بعمليات الشراء لأن تاريخ الانتهاء وسعر الشراء سيتغيران بيتغير وقت الشراء لذا يتم إضافتهما إلى جدول tblInvoiceDetail اما الحقل Impot سيكون مرتبط بالصنف لأنه نادراً ما يتغير لذا نضيفه الى جدول tblAsnaf (أما إذا كانت الضريبة مرتبطة بنوع المنتج فيتم إضافته إلى جدول tblClassTypes) الحقل Prix_achat_final كونه عملية إحتساب فلا نحتاج لإضافته في جدول بل سيكون حقل محتسب في الإستعلامات مرفق لك ملفك بعد إجراء التعديلات عليه ستجد الإستعلام Query1 يحتوي على الأربعة الحقول المطلوبة يمكنك من خلاله معرفة مصدر كل حقل تحياتي stock7 .rar

اي عمل جديد لا بد من ملاحظات وسقطات جرب هذا stock6 .rar

شكرا استاذي الفاضل على المساعدة وعلى مجهوداتك الف شكر

وعليكم السلام ورحمة الله وبركاته جرب التعديل التالي الشرقية1.xlsm

توسيــــــــــــع واستكمال 1- اضافة 78 هندسة لتوزيع الصور مع التمسية وترقيم فقط عليك كتابة الكود 2- اضافة ادراج النص مباشر الى نموذج المستهدف مع امكانية تكرار النص مع التسمية وترقيم ثم فقط عليك كتابة الكود 3- تحسين اللعبة التجريبة اسرعة وتحكم سريع اذا تبي تدرج صور تكون الجود واضح وحجم الصور مناسب للصور وليس النموذج وفكر عند تصميم رسم البياني يمكنك التجربة والاستمتاع (@)-=-(@)=(@)-=-(@)=(@)-=-(@)=(@)-=-(@)=(@)-=-(@)=(@)-=-(@)=(@)-=-(@)=(@)-=-(@)=(@)-=-(@)=(@)-=-(@)-/Card تحميل المرفق اسفل الفيديو تحميل المرفق https://www.mediafire.com/file/4a2vq6eu305p41p/Control_Disain_Ms_V_2.rar/file

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

السلام عليكم ورحمة الله وبركاته وبها نبدأ يمكنك استخدام خاصية "البحث والاستبدال" (Ctrl + H) مع تنسيق خاص لتحقيق ذلك. 1. اضغط Ctrl + H لفتح نافذة "استبدال". 2. أدخل القيمة التي تبحث عنها في حقل "البحث عن". 3. اترك حقل "استبدال بـ" فارغًا. 4. اضغط على زر "تنسيق" (Format) في قسم "استبدال بـ". 5. اختر لون التعبئة (Fill color) الذي تريده. 6. اضغط "موافق" (OK). 7. اضغط "استبدال الكل" (Replace All). سيتم تلوين جميع الخلايا التي تحتوي على القيمة التي تبحث عنها باللون الذي اخترته.

Microsoft Access 2019 Programming by Example with VBA, XML, and ASP https://www.mediafire.com/file/ommdwpjia97lgrq/Microsoft+Access+2019+Programming+by+Example+with+VBA,+XML,+and+ASP.pdf/file

تمام استاذ عبد الله الف شكر تحياتي لك

وعليكم السلام ورحمة الله وبركانه اليك التصحيج Sub Filter_Class2() Dim WSdest As Worksheet: Set WSdest = Sheets("TI3DAD") Dim D1 As Object, D2 As Object, D3 As Object, D4 As Object Dim I As Long, x As Long, Y As Long, m As Long, z As Long Dim Réf As Variant, ky As Variant, Rng As String Set D1 = CreateObject("Scripting.Dictionary") Set D2 = CreateObject("Scripting.Dictionary") Set D3 = CreateObject("Scripting.Dictionary") Set D4 = CreateObject("Scripting.Dictionary") x = 0: Y = 0: m = 0: z = 0 With WSdest Application.ScreenUpdating = False .Range("M4:V32,X4:AG32,AI4:AR32,AT4:BC32").ClearContents I = 7 Do While I <= .Rows.Count If .Cells(I, 2) <> "" Then Rng = Left(Trim(.Cells(I, 2).Value), 1) Réf = Application.Transpose(.Cells(I, 2).Resize(, 13).Value) Réf = Application.Transpose(Réf) Select Case Rng Case "4" D4(z) = Join(Réf, "*") z = z + 1 Case "3" D3(Y) = Join(Réf, "*") Y = Y + 1 Case "2" D2(x) = Join(Réf, "*") x = x + 1 Case "1" D1(m) = Join(Réf, "*") m = m + 1 End Select I = I + 1 Else Exit Do End If Loop m = 4 If D4.Count > 0 Then For Each ky In D4.Keys .Cells(m, "M").Resize(, 13).Value = Split(D4(ky), "*") m = m + 1 Next ky End If m = 4 If D3.Count > 0 Then For Each ky In D3.Keys .Cells(m, "X").Resize(, 13).Value = Split(D3(ky), "*") m = m + 1 Next ky End If m = 4 If D2.Count > 0 Then For Each ky In D2.Keys .Cells(m, "AI").Resize(, 13).Value = Split(D2(ky), "*") m = m + 1 Next ky End If m = 4 If D1.Count > 0 Then For Each ky In D1.Keys .Cells(m, "AT").Resize(, 13).Value = Split(D1(ky), "*") m = m + 1 Next ky End If .Range("M4").CurrentRegion.Value = .Range("M4").CurrentRegion.Value .Range("X4").CurrentRegion.Value = .Range("X4").CurrentRegion.Value .Range("AI4").CurrentRegion.Value = .Range("AI4").CurrentRegion.Value .Range("AT4").CurrentRegion.Value = .Range("AT4").CurrentRegion.Value Application.ScreenUpdating = True End With End Sub 1تعداد.xlsm

اعرض الملف مثال على تصفية فائمة بناء على اخرى بدون كود مثال على تصفية قائمة بناء على ما يتم اختياره فى قائمة اخري بدون كود صاحب الملف محمد طاهر تمت الاضافه 03 أكت, 2011 الاقسام قسم الإكسيل

السلام عليكم الكود السابق تركته للصفحات الحالية (صفحة واحدة)، أما كود طباعة الكل فقد تم إنشاؤه من الكود السابق ثم التعديل عليه لطباعة جميع البطاقات مع إخفاء الصفوف الصفرية في كل بطاقة... أرجو أن يفي الغرض المطلوب. ملاحظة : تم إضافة معادلة في الخلية A2 لتحديد العدد الإجمالي للبطاقات. لم يتم تجربة الكود لأن الملف مرتبط ببيانات غير موجودة فيه. الكارتة.xlsm

بسم الله الرحمن الرجيم وبه نستعين اخى العزيزالاستاذ // ابوحمزه حياكم الله فضلا شاهد هذا الرابط http://www.officena.net/ib/index.php?showtopic=49733&hl= برنامج متابعة حركة السيارات للأستاذ الفاضل أخى // ضاحى " ابوعمرو" جزاه الله تعالى عنا خيرالجزاء............وجزاكم الله خيرا