Lamyaa

الفكرة جميلة وجديدة علي.. ولكن لاحظت أن هناك صفحة فارغة بين كل تقرير!

عن طريق الشل أنا أستخدمه بهذه الطريقة: Dim wsh As Object Dim str2PDF As String Set wsh = VBA.CreateObject("WScript.Shell") Dim waitOnReturn As Boolean: waitOnReturn = True Dim windowStyle As Integer: windowStyle = 1 str2PDF = "cmd.exe /C 2PDF.exe -src " & Chr$(34) & " C:\Temp4\*.pdf" & Chr$(34) & " -dst " & Chr$(34) & "c:\temp5" & Chr$(34) & " -pdf multipage:append combine:" & Chr$(34) & "اسم الملف التجميعي.pdf" & Chr$(34) & " , windowStyle, waitOnReturn" txtCMD = str2PDF wsh.Run str2PDF بحيث الملفات التي أود دمجها تم حفظها مسبقا في مجلد c:\temp4 ويتم حفظ الملف الناتج في مجلد c:\temp5

أنا استخدم هذه البرنامج لدمج التقارير عن طريق سطر الأوامر بعد التصدير https://www.cmd2pdf.com/

الصعايدة يفوزون قوي قوي ما شاء الله عليكم حقيقة أنا ممتنة للجميع على مشاركاتهم في الموضوع وإثراءه بهذا الشكل الرائع فلكم مني أطيب المنى تعلمت منكم الكثير فبارك الله فيكم 🎉

ما شاء الله يا أبا جودي .. كعادتك تبلور الأفكار وتخرج بالخلاصة .. بارك الله فيك ونفع بك 🌹 😁😂 سرني تواجدكم فكرة رائعة وهي تؤدي المطلوب بشكل رائه .. فلك مني جزيل الشكر والتقدير 🌹

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

الفكرة أستاذي ليست في جعل المتغير عاما أو خاصاً .. الفكرة كيف أمرر هذا المتغير على هذا السطر البرمجي: ففي الحالة العادية يتم كتابة اسم التقرير مباشرة Reports![rptStudents].Report.RecordSource = "qryStudents2" ولكن في حال كان اسم التقرير متغيير بناء على تغير المعطيات فكيف يمكن تمرير هذا المتغير على السطر التالي: Reports![X].Report.RecordSource = "qryStudents2"

فكرة تغيير اسم التقرير رائعة في حال كانت التقرير ذا تصميم واحد، ولكن في حالة كان التقرير مختلف فلن ينفع

أستاذي الفاضل جزيل الشكر والتقدير على تفاعلكم يبدو أنني لم أوفق في شرح المطلوب بشكل جيد يوجد لدي عدة تقارير : rptStudents, rptStudents3, rptStudents5, rptStudents6,... etc مصدر البيانات لهذه التقارير إما qryStudents1 أو qryStudents2 اسم التقرير المراد فتحه مكتوب في حقل نصي Me.txtReportName (يتك كتابة اسم التقرير آليا عند تغيير ComboBox) أقوم بفتح التقارير من نموذج من خلال الكود التالي: 'قمت بتعريف متغير لتخزين اسم التقرير فيه Dim strReportName As String strReportName = Me.txtReportName ' سأقوم بفتح التقرير بناء على الاسم الموجود في المتغير DoCmd.OpenReport strReportName, acViewReport ' والآن أريد أن أمرر مصدر البيانات للتقرير الذي تم تحديده (أي تقرير) وأن أجعل مصدره هو الاستعلام qryStudents1: Reports![ct17R2].Report.RecordSource = "qryStudents1" أي أنني سأحتاج تغيير اسم التقرير الذي لونته بالأحمر. وسأقوم بتطبيق الخطوات كلها في نموذج آخر frmStudents2 ولكن سيتغير مصر الاستعلام إلى استعلام آخر Reports![ct17R2].Report.RecordSource = "qryStudents2" آملأن أكون قد استطعت توضيح المطلوب جزيل الشكر على تفاعلك لا أقصد تغيير عنوان التقرير إنما اسم التقرير قبل تغيير مصدره .. كما أشرت أنني ربما لم أوفق في شرح المطلوب وبينته في تعقيبي السابق ..

السلام عليكم ورحمة الله وبركاته كيف أجعل اسم التقرير متغير (الملون بالأحمر) كيف استخدم المتغير strReportName بدلا عن اسم التقرير "ct17R2" Dim strReportName As String strReportName = Me.ReportName ' فتح التقرير DoCmd.OpenReport strReportName, acViewReport ' تغيير مصدر التقرير برمجيا Reports![ct17R2].Report.RecordSource = "qryStudents"

أيضا يمكن التحقق من حالة زر Num Lock وإعادتها إذا تم اطفاؤها. Private Declare PtrSafe Function GetKeyState Lib "user32" (ByVal nVirtKey As Long) As Integer Private Const VK_NUMLOCK = &H90 If GetKeyState(VK_NUMLOCK) = 0 Then SendKeys "{NUMLOCK}", True End If

بعد استخدامك إلى SendKeys "{UP}", True اضف : Sendkeys "{NUMLOCK}", True

خذ نسخة احتياطية من قاعدة البيانات أعد تسمية امتداد ملف قاعدة البيانات إلى mdb بعدها يمكنك تطبيق الحماية بعد الانتهاء قم بإعادة تسمية امتداد القاعدة إلى accdb

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

رائع جدا ولكن حين اختيار المصدر استعلام فإنه فقط يخرج عناوين الأعمدة (في ملف الإكسل) بأسماء الحقول فقط ولا يظهرها بالعناوين هل يمكن تعديل ذلك؟

جميل جدا أستاذ جعفر .. اتستفدت كثيرا حفظكم الله ورعاكم

الأستاذ أبا خليل أنا أتابع فقط .. وأود تقديم شكري لك على جهودك وسعة صدرك حفظك الله وأبقاك في خير

يمكنك استخدام الأمر التالي قبل تنفيذ الاستعلامات DoCmd.SetWarnings False وإن أرد بعد الانتهاء من الاستعلامات إعداته قم بتنفيذ الأمر التالي: DoCmd.SetWarnings True

تفضل .. ها هي قاعدة البيانات وهل تعرف ما هذا : Mf}*019084/ImOe@|$<n LangData.accdb

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

السلام عليكم ورحمة الله وبركاته أعتقد أن من الأنسب أن يقوم المبرمج بعمل نسختين من البرنامج لكلتا النواتين ويتم تزويد المستخدم النهائي بالنسخة المناسبة

ألف مبروك يا أبا جودي تستاهل كل خير وفقك الله واعانك

متابعة للموضوع.. الأستاذ أبا جودي هل من جديد ؟

هذه الطريقة تعمل إلى الآن ولا علاقة لها بالويندوز جهازي ويندوز 10 وتعمل عليه