حامل المسك

السلام عليكم ورحمة الله ومساؤكم سعيد أساتذتنا الكرام إذا تم عمل ماكرو لإدراج صورة معينة ووضعها خلفية في الصفحة وتحديد مقاسات الصورة بـ 29.7 طولا وعرضا 21 سم وتوسيطها بالأفق والطول.. لا تعمل مع الماكرو سوى يقوم بإدراج الصورة فقط ولا يعمل على تنسيق أبعادها وتوسيطها.. فهل من حل سلمكم الله،،؟

سلمت..كتب الله أجرك ورضي عنك..

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

أستاذنا القدير @kanory أستاذنا القدير @شايب كلمات الشكر لا تفيكم حقكم... فالحقيقة أن هذا المثال فتح لي آفاق كثيرة وكبيرة.. مع عدم اعتقادي بدءا بالإمكانية.. ولكن ذلك فضل الله علينا وعليكم في هذه العشر المباركات.. بارك الله لكم في أهلكم ومالكم وولدكم ورضي عنكم ورحم والديكم،، تمت الإجابة ولله الحمد والمنة..

الله الله إبداع إبداع.. لا حرمكم الله الأجر.. وأسعدك ورضي عنكم،، نحتاج تعديل أخير حتى لا تتكرر الفواصل في حال كانت الخلية فارغة.. حيث بالضغط في كل مرة يضع الفواصل فنجتاج لتعديل بحيث يتم نقل المعلومات في الخلية التي بها معلومات فقط.. Dim currentText As Variant Dim newText As String newText = infoa.Value & ", " & anfo2.Value & ", " & info3.Value currentText = allinfo.Value If currentText <> "" Then allinfo.Value = currentText & ", " & newText Else allinfo.Value = newText End If infoa.Value = "" anfo2.Value = "" info3.Value = ""

سلمت .. أعطاني هذه الرسالة

السلام عليكم ورحمة الله وبركاته،، وعشر مباركات نسأل الله أن يبلغكم ما يرضيه عنا وعنكم فيها برحمته وتوفيقه،، أيها الكرام.. لدي فكرة برنامج أعمل عليه -ربما تكون غريبة نوعا ما- وكان من ضمن الأفكار جميع معلومات من خلايا متفرقة في خلية نصية واحدة على هذا النحو: لدي خانة معلومات 1 ومعلومات2 ومعلومات 3 يتم الاختيار منها أو الكتابة فيها وعند الضغط على كلمة اعتماد تنتقل البيانات المكتوب في خانة جميع البيانات مع مسح البيانات من خانة معلومات 1 و2 و3 ثم إذا كتبت مرة أخرى في خانة معلومات 1 ومعلومات 2 ومعلومات 3 وتم الضغط على أمر اعتماد تنتقل البيانات لخانة جميع البيانات مع ملاحظة عدم حذف البيانات السابقة وحبذا أن تكون بعد المؤشر كما في الصورة التالية وليس شرطا أن تكون المعلومات 1 و2 و3 في جدول واحد مع جميع البيانات.. المهم أن أحصل على خانة جميع البيانات سواء كانت في جدول مستقل أو في غيره.. ومرفق مثال مع جزيل الشكر ترحيل بيانات.accdb

أستاذنا القدير @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)، فمبجرد الانتقال للسجل التالي تظهر ملفاته مباشرة من غير تحديد مسار ونحوه.. مع الأخذ في الاعتبار أن الكود عدم تثبيت مسار الكود.. لأن مجلد البرنامج قد يكون على سطح المكتب وقد يكون في مكان غير سلمكم الله ورعاكم