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

السلام عليكم ورحمة الله وبركاته 🌹 درسنا اليوم عن طريقة عمل قوائم ديناميكية متحركة بأقل عدد من الأكواد وطريقة مبتكرة . 🙂 النتيجة النهائية : الشرح : تحميل الملف : Dynamic Menus.accdb

بالإمكان الاستغناء عن كل هذا الكم الهائل من الارتباطات قم بإنشاء دوال VBA لتسهيل العمل و الحصول على المعلومات من الجداول الاخرى فمثلا تستطيع استخدام مثل هذه Public Function GetSetData(Column_Name As Variant, TableName As Variant, WhereValue As Variant) GetSetData = DLookup(Column_Name, TableName, WhereValue) End Function فهي فهلا تقبل تكرار الاستخدام مع معايير مختلفة فمثلا للاستخدام استدعاء رقم المعرف للموظف GetSetData("[ID]";"[EMPTB]";"[ID]=" & [EMPTB]![ID]) استدعاء اسم الموظف GetSetData("[EMP_Name]";"[EMPTB]";"[ID]=" & [EMPTB]![ID]) استدعاء البريد الإلكتروني للموظف GetSetData("[EMP_Email]";"[EMPTB]";"[ID]=" & [EMPTB]![ID]) المختصر بأنه بإستخدام الدوال سوف يصبح عملك اسهل بإمكانك في المثال اعلاه تثبيت المعطيات الاساسية مثل اسم الجدول و المعيار مثال على ذلك Public Function GetSetData(Column_Name As Variant) Dim Column_Name As Variant, TableName As Variant TableName = "EMPTB" WhereValue "[ID]=" & [EMPTB]![ID] GetSetData = DLookup(Column_Name, TableName, WhereValue) End Function ليصبح استدعاء المعلومة بالطريقة التالية استدعاء رقم المعرف للموظف GetSetData("[ID]") استدعاء اسم الموظف GetSetData("[EMP_Name]") استدعاء البريد الإلكتروني للموظف GetSetData("[EMP_Email]") فعلا تستطيع تكرار استخدام نفس الدالة بمعايير مختلفة داخل الاستعلام

أخي الكريم تفضل التعديل هل هو المطلوب ؟ الملف تم تجربته على الاوفيس 2021 وحاليا لا املك غير هذه النسخة . نعم أستاذي شايب كلامك صجيج ولكن هذا ما فهمته من طلب الاخ السائل. حاليا الوقت عندي متأخر الساعة23:30 مساءا غدا سوف اغير الكود ان شاءالله. bdd2.accdb

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

تفضل أخي الكريم حسب فهمي للمطلوب لا يلزمك إحضار أعلى قيمة للبند ولكن هنا المطلوب: البحث بشرطين البند ورقم المستحضر لذا يلزمك كتابة رقم المستحضر في الخلية H2 ليتم جلب بياناته بالتوفيق مستخلص مياه ورمل.xlsm

تسلم أناملك ماشاءالله قوة الا بالله اهم شيء أن لايحدث اهتزاز عند تحريك الماوس أو عند الضغط على زر

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

وعليكم السلام تفضل الفرق بين تاريخين.xlsx

وفيك بارك هذا الرقم يمثل تاريخ اليوم يضاف إليها الرقم المراد للعد التنازلي

ماشاءالله قمة الابداع .

وعليكم السلام ورحمة الله وبركاته تفضل DD.xlsx

ماشاء الله لا قوة الا بالله عمل في قمة الروعة

تفضل هذا التعديل project no 3.zip

تفضل Dim SetRep As Variant, SetRepNew As Variant SetRep = "ضع اسم التقرير هنا" SetRepNew = CurrentProject.Path & "\" & [ID] & ".pdf" DoCmd.OpenReport SetRep, acViewPreview DoCmd.OutputTo acOutputReport, SetRep, "PDFFormat(*.pdf)", SetRepNew, True

هذا نموذج لـ أوقات الصلاة فقط ولعدم تمكني من رقع الملف الخاص بالصوتيات لكبر حجمة اعمل ملف بجوار البرنامج باسم adan وضع فيه ملفات صونيه بامتداد .wav وان شاء الله يضبط معك عندي شغال 100% الصلاة.accdb

هذا المرفق فيه شرح الاستاذ بن عليه لبعض اسطر الكود وضعت الشرح في الكود ليكون سهلا امام من يريده او يريد التغيير فيه حسب متطلباته لو تمت حمايه المعادلات من المسح او التغيير يزداد قوه كشف مناداة بالكود تعديل بن عليه.rar

السلام عليكم ورحمة الله تم التعديل على الملف (الكود ومعادلات الشيت) بما يوافق المطلوب... الملف المرفق : كشف مناداة بالكود.rar بن علية

تحفظ في الاسم "MyPwd" المخفي With ThisWorkbook .Names.Add "MyPwd", sp, False End With ودمتم في حفظ الله