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

تفضل لك ما طلبت نسب العلاوة.xls

الصفحة salim من هذا الملف compaire.xlsx

السلام عليكم ورحمة الله وبركاتة هذا مثال يتم من خلاله ربط الجداول برمجيا بدون تدخل من المستخدم عند فتح قاعدة الواجهات kaser906 يتم ربط الجداول بقاعدة جداول kaser906_be والقاعدة الثانية kasr9062 وكلتا القاعدتين مغفلتين برقم سري 1234 ضع المجلد في أي مكان او غير أسم المجلد وفتح قاعدة بيانات الواجهات kaser906 ستجد أن ربط الجداول تم بدون تدخل منك ::بالتوفيق للجميع :: TablLinkind.rar

مبروك أستاذ محمد سلامة إنضمامك لعائلة الخبراء ,أسأل الله لك التوفيق والنجاح دائما ..وأعانك الله على هذه المسئولية الجديدة وسدد الله خطاك عن حق وجدارة بارك الله فيك وزادك الله من فضله

نص تلقائي.accdb

Dim queryName As String Dim fileName As String queryName = "إسم الإستعلام" fileName = Application.CurrentProject.Path & "\" & "إسم ملف الإكسيل" & ".xlsx" DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel12Xml, _ queryName, fileName, True

ابوعبدالله_1972 جرب هذا الكود عسى أن يفى بالمطلوب Dim queryName As String Dim fileName As String queryName = "sales" fileName = Application.CurrentProject.Path & "\" & queryName & ".xlsx" DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel12Xml, _ queryName, fileName, True

يمكنك تجربة هذا الملف Hide_sheets.xlsm

وهو كذلك استاذي @ابو ياسين المشولي الان اقوم بجيهز الملف

لو ترفع ملف يسهل عليك وعلى الاعضاء

شاكرا لك اخوي فكرتك كانت مفيدة

شاكرا لك اخوي

اخى الفاضل / qathi شاهد هذه المشاركة وهى بعنوان النسبة المئوية فى التقرير لقد قمت بنشرها بدل اقتباسها عن طرييق الخطأ لربما تجد فيها مبتغاك

وايضا تصميم البرنامج بأصدار 2003 يكون جاهز للاستخدام على جميع اصدارات الاوفيس المتقدمة

وعليكم السلام وذلك بعمل هايبر لينك بين الملفات للربط بينهم

لان قوائم التشغيل المنسدلة أسهل للمستخدم بعكس الإصدارات الأخرى تكون منفصلة

الحمد لله الذي تتم بنعمته الصالحات

السلام عليكم آسف أخي ابو آمنة لأنني لم أدخل للمنتدى منذ يومين أو ثلاثة نعم يمكن حل مشكلتك بالطريقة التي أشار إليها الأخ أبو عارف فهي تكفيك عناء الذهاب للوورد لكني سوف أعطيك حلا بالطريقة التي تريدها أنت لتصبح لديك طريقتين و أنت إختار ما تشاء. لقد قمت بالتعديل على الملف ليقوم بإخراج ملف pdf لكل شخص و برقمه الوظيفي و يضعها في مجلد واحد اسمه ملف الشهادات طبعا عن طريق المرور بالوورد و يكون شكل الشهادة هكذا: export to word.rar

تفضل -عن طريق عمل تنسيق لهذا العمود كما بالصورة 1.xlsx

شكرا أخي قاضي

اذا كان هذا المطلوب اضغط افضل اجابة لاغلاق الموضوع

أخى ابوعبدالله_1972 ما هو الكود الذى تستخدمه للتحويل الى إكسيل وماذا تحول هل تحول تقرير أم إستعلام وماهو إصدار نسخة الأوفيس لديك .. 2003 - 2007 - 2010 - 2016 - 2019 ؟

وعليكم السلام-تفضل لك ما طلبت Map12.xlsm

وتابع هذا

الغالى على قلبى الأمر الأول = بعض الناس لا يحب التجديد فقد كنت عند شركة اركب لهم برنامج حسابات خاص بى فوجدتهم يستخدمون ويندوز XP بحجة انهم لايقومن بعمل شبكة الا على الاكس بى وبصعوبة على ما أقنعتهم بعد ما وجدوا الفرق وكانوا يصرون على اوفيس 2007 وأقنعتهم بصعوبة على اوفيس 2010 واتضح بالتجربة أنه يعرف شئ ولا يستطيع استخدام غيره الأمر الثانى = من خلال التجربة أوفيس 2003 يقوم بعمل قوائم التشغيل المنسدلة ولا توجد بعد ذلك فى الا منفصلة فبعض المصممين يستخدمون 2003 لعمل القوائم فقط لسهولتها ويسرها ------ تحياتى يا غالى ------

أخى الفاضل حربي العنزي هل هذا هو المطلوب؟ Prog121.rar

شكرا

شكراً لك معلمنا @ابو عارف لكن هل يمكن حفظ كل موظف أو كل صفحة بملف pdf مستقل . بشرط أن يحمل كل ملف pdf الرمز الوظيفي

شكرا أستاذى @ابو عارف شكراً أستاذى @ابو ياسين المشولي

العفو بالتوفيق

لا اخي الفاضل الكود ميه في الميه انت ادخل كل التواريخ في الجدول

انا محتاج حد بس يكسر لي كلمة السر اولا انا عندي برنامج استرجاع

تفضل هذا الفيديو فبه ما تطلب وترغب https://www.youtube.com/watch?v=mX6JOfgb2hc ولكن فى نهاية الفيديو عند الضغط على Finish & Merge يمكنك الضغط على Edit Individual Documents بدلا من Print Document وذلك للحصول على الملف بالوورد وليس بتنسيق أخر وليس هناك طريقة سوى هذه وهذا هو ملف الوورد المطلوب المرتبات.docx

الأمر في غاية البساطة كليك يمين على عمود الأرقام مثلا ثم اختيار Format Cells ثم اختيار Number ثم Ok كما بالصورة

بارك الله فيك وجزاك الله خير الثواب

أتمنى أن ينال اعجابك واذا ما أعجبتك الطريقة انتظر فزعة الأجاويد Database1.accdb

بارك الله فيك استاذ مجدى وزادك الله من فضله

بارك الله فيك أستاذ سليم كود ممتاز جعله الله في ميزان حسناتك وبعد اذن حضرتك طبعا -ولإثراء الموضوع هذا حل أخر Masry.xlsm

السلام عليكم طالما انك لم تقم برفع ملف فيمكنك رؤية هذا الرابط ففيه ما تطلب https://www.officena.net/ib/topic/91345-سؤال-بخصوص-النسخ-واللصق-؟/

بارك الله فيك وجزاك الله كل خير

بارك الله فيكم جميعا كلها حلول ممتازة

وعليكم السلام -بعد اذن الأستاذ مصطفى ولإثراء الموضوع 1ملف العملاء.xlsx

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

احسنت استاذنا الكبير بارك الله فيك

أحسنت أستاذ سليم كود رائع جعله الله في ميزان حسناتك أخى الكريم dodo لا يمكنك التعلم الا اذا استجبت لكل هذه النصائح من اساتذتنا الكبار أمثال الأستاذ الكبير سليم حاصبيا له منا كل المحبة والإحترام

السلام عليكم, في السابق كنت استخدم خطوط معينة في برامجي وعند اعطاء البرنامج للعميل لاتظهر الخطوط التي قمت باستخدامها بل يظهر بمكانها الخط ( Arial ) وهذه مُشكلة. كت في وقتها الجأ الى ان اضع الخط بجانب قاعدة البيانات وفي داخل قاعدة البيانات اقوم بعمل تحقق لمجلد Fonts والبحث عن الخط في بداية تشغيل القاعدة, فإن لم يجده يعي رسالة للعميل بان الط مفقود وعليه ان يقوم بتثبيته من جانب البرنامج. بحثت طويلاً في الانترنت عن تثبيت خط من الاكسس فقط بدون مساعدة عامل خارجي ولكن لم اصل لنتيجة. اليوم بحمد الله قمت بحل المشكلة بإستخدام ( Visual .NET ) قمت بكتابة اداة بسيطة وظيفتها تثبيت الخط. يتم تمرير براميتر لها وهي بدورها ستقوم بتثبيته الدوال المستخدمة: AddFontResource CreateScalableFontResource ShellExecuteA للمزيد من المعلومات ، اضغط على اسم الدالة ارفقت لكم المصادر من MSDN شرح بسيط لمن لم يعرف ماذا اقصد بتثبيت الخط واستخدام الخط وانه لن يظهر في حال كان العميل لا يملكه. قمت بارفاق قاعدة بيانات لكم كـ مثال للشرح مع الخط المستخدم مع الاداة. شرح الاستعمال: يجب ان تكون الاداة ( SEMO_RegisterFont.exe ) هي والخط الذي سوف تستخدمه بجانب قاعدة البيانات. افتح برنامجك وضع فيه هذا الاجراء. Sub RegisterFont(nFont) Dim strExe As String Dim strArg As String strExe = CurrentProject.Path & "\" & "SEMO_RegisterFont.exe" strArg = "/SEMO/" & nFont ShellExecute 0, "runas", strExe, strArg, vbNullString, SW_SHOWNORMAL End Sub في الاستدعاء اي في الحدث Form_Current RegisterFont "DroidSansArabic.ttf" حيث ان الـ DroidSansArabic.ttf هو اسم الخط الذي قمنا بوضعه بجانب قاعدة البيانات ملاحظة مهمة جدا: في حال كان اسم الخط يتكون من اكثر من كلمة مثل ( Droid Sans Arabic.ttf ) قم بحذف المسافات بين كلمة واخرى بحيث يصبح ( DroidSansArabic.tts ) وستعمل قاعدة البيانات التي قمت بتصميمها بشكل رائع وبالخطوط التي قمت انت بأختيارها بدون الخوف من مشكلة عدم توفر الخطوط في جهاز العميل. الشرح حصري للمنتدى وغير موجود في الانترنت. لا تشكرني الا اذا وجدت انني استحق ذلك. تم بحمد الله حسنين RegisterFont_SEMO_Pa3x.rar

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

تفضل fatoura2.xlsm

أحسنت استاذ سليم عمل رائع بارك الله فيك