Lamyaa

الفكرة أستاذي ليست في جعل المتغير عاما أو خاصاً .. الفكرة كيف أمرر هذا المتغير على هذا السطر البرمجي: ففي الحالة العادية يتم كتابة اسم التقرير مباشرة 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 وتعمل عليه

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

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

أقترح أن يتم فتح الرابط https://wa.me/" & txtNumbers داخليا في البرنامج باستخدام أداة Webbrowser

أنت تحتاج إلى أداة ActiveX يمكنك استخدام هذه الأداة: https://www.google.com/search?q=Comm32+Serial+Communications+OCX+9.0.0.1&safe=strict&sxsrf=ALeKk02MACSIXUc-A60uRWXsGyrY-SNEbA%3A1617557853779&source=hp&ei=XflpYNWRLYaflwTs-bqAAg&iflsig=AINFCbYAAAAAYGoHbeM64-CnxfuQ8vcJRlKIXBhqSTqD&oq=Comm32+Serial+Communications+OCX+9.0.0.1&gs_lcp=Cgdnd3Mtd2l6EANQqAJYqAJg9gVoAHAAeACAAQCIAQCSAQCYAQCgAQKgAQGqAQdnd3Mtd2l6&sclient=gws-wiz&ved=0ahUKEwiVtJrKkOXvAhWGz4UKHey8DiAQ4dUDCAY&uact=5

أعتقد أن الجهة ذات الاختصاص هي : الهيئة السعودية للملكية الفكرية https://www.saip.gov.sa/ar/

رفعت موضوعا قديما ذكرنا بأبي هادي تمنياتنا أن يكون بصحة وعافية