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

تفضل لك ما طلبت نسب العلاوة.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

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

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

العفو اخي الشربيني123 وكل سنه وانت بالف خير

اتفضل هذا هو الاصح لان المدرسه نص والصف رقم DoCmd.OpenReport "M1", acViewReport, , "[المدرسة]='" & Me.مدارس & "'" & "and [الصف]=" & Me.صفوف & "" & " And [المرحلة] = " & Me.مراحل & "" Database1_(9).rar

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

شاكرا لك اخوي

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

السلام عليكم تستطيع فتح ملف pdf في مستعرض الويب من خلال الكود التالي: Me.WebBrowser4.Navigate "C:\OneDayJavaTrip.pdf" بحيث WebBrowser4 هو اسم الأداة و "C:\OneDayJavaTrip.pdf" هو مسار ملف pdf

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

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

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

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

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

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

شكرا أخي قاضي

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

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

وتابع هذا

http://arabteam2000-forum.com/index.php?/topic/245890-نقاش-نعم-لاكسس-2003-ولا-لاكسس-2007-لماذا/ نقاش ممتع

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

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

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

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

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

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

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

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

استكمالا هذه بعض المصطلحات المحجوزة من الكلمات المحجوزة: ADD - ALL - AND - BETWEEN - Count - CurrentUser - DATABASE - DATE - FROM - GROUP - INDEX - Level - Macro - Module - NAME - NUMBER - PRIMARY - Query - Refresh - Report - TABLE - Time - USER - Year - YES - YESNO.

احسنت أستاذ عبد اللطيف بارك الله فيك

السلام عليكم طالما انك لم تقم برفع ملف فيمكنك رؤية هذا الرابط ففيه ما تطلب 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

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