حامل المسك

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

تعتذر وانت صاحب الفضل.. هذا من طيب المنبع وحسن التربية وجمال الأخلاق فرحم الله رحما حملك وأبا رباك.. والعلم رحم بين أهله.. والحمد لله الفائدة حاصلة بدءا بجهودك الرائعة وبمشاركة أستاذنا @Barna وإنما التكامل هنا للإثراء بجمال المعلومات واختيار أفضل الطرق.. لتكون لنا ولمن بحث وكتب ومر على هذا المنتدى الرائع.. وهذا الأثر الذي يبقى نفعه ويعم خيره.. شكرا لك @Foksh شكرًا لك @Barna قدمتم فأجدتم وأحسنتم نفعا وتكاملا..

ممتاز نتيجة جيدة .. هل يمكن أن يكون كل عام في صف؟..

نفس النتيجة السابقة

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

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

سلمتم أيها الكرام.. كتب الله أجركم ورضي عنكم.. تمت الإجابة بتكامل بناء من أساتذتنا الكرام.. لكم صادق الدعوات كتب الله أجركم ورضي عنكم وأرضاكم،،

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

لا أدري ماذا أقول بن طرفي الكريم والجمال.. الفكرة التي وضعها أستاذنا @Barna ممتازة لكني أريد أن تكون في عمود بحيث تكون على هذا النحو بحيث يتسنى ربطها بمعلومات أخرى،، والفكرة التي كانت من أستاذنا @Foksh تحتاج أن يكتمل العقد بها حيث يظهر أول التاريخ وآخره فقط دون التواريخ التي في المنتصف حيث كانت هذه النتيجة فنحتاج كرما أن تعديل الكود بحيث يكون كل عام مستخرج بين عامين في صف متسقل مع الاسم.. مع جزيل الشكر..

أستاذنا @Foksh شكر الله عطاءك وجهدك ورضي عنك.. حاولت ولكن لم تضبط معي.. حيث لم تظهر الأعوام بين تاريخين.. ودونك المثال للتكرم علينا زادكم الله من واسع فضله،، الأعوام بين تاريخين.rar

السلام عليكم،، ومساؤكم سعيد،، وأسأل الله في هذه اللحظات لكم البركة في الأهل والمال والولد والتوفيق لكل خير.. أساتذتنا الكرام،، لدي جدول به أسماء أشخاص ولكل واحد منهم تاريخ بدء وتاريخ انتهاء.. مثلا محمد البداية من 1/8/2018 والانتهاء 5/8/2022 المطلوب كيف يمكن استخراج الأعوام بين التاريخين بمعنى أريد جدولا آخر أو استعلاما يظهر الآتي محمد 2018 2019 2020 2021 2022 فهذه الأعوام التي بين التاريخين،، وكذلك بقية الأسماء.. مع جزيل الشكر وعظيم الامتنان،، الأعوام بين تاريخين.accdb

أزال الله همك وغمك ورضي عنك.. ممتاز جدا .. سلمك الله ورعاكم وفرج همك وغمك ورضي عنك.. شكر الله لكم أيها الكرام.. والحمد لله رب العالمين،،

أستاذنا القدير @Moosak وعليكم السلام ورحمة الله وبركاته،، وحياك الله ،، ونحن من يعتذر فأنتم المنبع الصافي ومنهل المعرفة لنا ولجميع الزملاء في المنتدى المبارك.. الحقيقة أثناء البحث وجدت هذا المثال الذي ذكرته،، ولكن كنت بحاجة أن يكون الاستعراض تلقائي لمحلدات متعددة مسمياتها داخل سجل البرنامج فيرتبط مباشرة وتظهر كما تفضل أستاذنا القدير @Foksh بتعديلاته النيرة سلمت وهذا هو المطلوب رضي الله عنكم جميعا.. لكن ظهر لي أمر وهو أنه إذا هناك مجلد داخل إحدى المجلدات المذكورة مثلاة مجلد 1 الذي بداخل مجلد ALL به مجلد فهل يمكن أن يظهر اسمه مع الملفات أم يتعذر ذلك.. معذرة لكن جاءت الفكرة عرضًا الآن.. حفظكم الله الباري مثال أكسس3.rar

سبحان الله وبحمده،، أخي @Foksh تجود بفضلك وتعتذر وتكرمنا بجميل طرحك وتعتذر... وهذا من طيب منبعك وحسن معدنك فرحم الله رحما حملك وأبا رباك.. وبارك الله لك فيما رزقك.. سلمت وسلمك الله ورعاك.. رائع وممتاز.. غير أني أضفت هذا الكود بحيث عن النقر مرتين يفتح الملف ولكن بهذا الكود يفتح المجلد فإن أمكن التعديل عليها لفتح الملف مباشرة سواء كان وورد أم pdf أم صورة سملكم الله،،، Dim fullPath As String fullPath = CurrentProject.Path & "\All\" & Me.namefolderx.Value FollowHyperlink fullPath مثال أكسس2.rar

ممتاز أسعدك الله وفكرة رائعة.. إذا أمكن فعلى بركة الله،،

سلمت،، كنت أظن أنه بالإمكان وضع كود يغني عن كتابة المسار لكون البرنامج أحيانا ينقل من جهاز لآخر.. أسعدك الله أيه الغالي.. والحقيقة أتعبتك معي،، وشكر الله لك سعيك وبارك لك فيما رزقك.. تمت التجربة بنجاح.. حفظك الباري أينما كنت..

سلمت،، لكن عند الانتقال للسجل التالي يعطي رسالة المجلد غير موجود.. والظاهر لأجل المسار folderPath = "C:\Users\Golden\Desktop\مثال أكسس\" & Me.namefolderx.Value فهل من تعديل..

سلمت أسعدك الله ورضي عنك،، جميل، لكني أريد أن يتحدث مربع FileList بشكل تلقائي عند الانتقال للسجل التالي بناء على اسم المجلد في (namefolderx)، فمبجرد الانتقال للسجل التالي تظهر ملفاته مباشرة من غير تحديد مسار ونحوه.. مع الأخذ في الاعتبار أن الكود عدم تثبيت مسار الكود.. لأن مجلد البرنامج قد يكون على سطح المكتب وقد يكون في مكان غير سلمكم الله ورعاكم

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

فرج الله همكم وحفظكم من كل سوء وسخر لكم الخير حيث ما كنتم،، على بركة الله جاري التجربة،،

السلام عليكم ورحمة الله،، وأسعد الله أوقاتكم بكل خير ونور،، أساتذتنا الكرام، لدي برنامج به مرفقات متعددة ولا يخفى عليكم مشكلة كثرة المرفقات في البرنامج وتضخمها،، ويتطلب العمل الآن على استخراج هذه المرفقات، فهل بالإمكان إيجاد كود يستخرج المرفقات من الجدول ويعيد تسميتها بحسب عمود cod مثلا ويضعها في مجلد datax؟ مرفق المثال مع جزيل الشكر وعظيم الامتنان،،، إعادة تسمية المرفقات.rar

ماشاء الله تيارك الله،، وازداد فضلك علينا زادك الله من واسع فضله، وبارك لك في علمك وأهلك ومالك وولدك،،

سلمت يمناكم لا عدمناكم @Eng.Qassim @Foksh تمت التجربة الأولية وكانت النتائجة جيدة،، وجاري العمل على اختباره على البرنامج.. لكم صادق الدعوات،، وشكر الله تكاملكم البناء ورضي عنكم وأرضاكم وبارك على الخير مسعاكم،،

معذرة أسعدك الله ورضي عنك وأرضاك لدي التاريخ 16 / 11 / 2023 وعند إضافة سبعة أيام بدون أيام العمل الأصل تكون النتيجة 27 / 11 /2023 ولكن ظهر لي 25/ 11 / 2023 وهو ما يوافق يوم سبت.. والمقصد من الاستعلام أن تكون ثابتة في الاستخدامات الأخرى كالتقارير ونحوها.. ولعله يمكن عن طريق استدعاء الدالة بعد النظر في الأمر السابق،، سلمك الله ورعاك،،

سلمت سلمك الله ورعاك،، هل بالإمكان تنفيذها على الاستعلام مباشرة،،؟ مع جزيل الشكر،،