أريد تمرير اسم التقرير برمجيا (كمتغير)

[Eng.Qassim]

8 دقائق مضت, مبرمج سابق said:

واحببت ناظم الغزالي

اذن انت من جيل (عيرتني بالشيب وهو وقار ) ...

ولست من جيل .. (اشهد الا امرأة اتقنت اللعبة الا انت )

12 دقائق مضت, مبرمج سابق said:

مع الاعتذار لصاحبة الموضوع عن الدخول في حوارات جانبية

اعتزازي واحترامي للست لمياء

[متقاعد]

3 دقائق مضت, Eng.Qassim said:

اذن انت من جيل (عيرتني بالشيب وهو وقار ) ...

نعم هذا صحيح

الف رحمه على بيك

[أبو عبدالله الحلوانى]

السلام عليكم ورحمة الله وبركاته

حقيقة كنت مار من هاهنا 👉 👈 فسمعت صوت احدهم ينادي علي الصعايدة فلبيت فكان النداء لصعيدي (مش من بلدنا )

عموما لا بأس فالصعايدة كلهم أخوة 

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

 

PassRepName.accdb

[Lamyaa]

في 27‏/6‏/2022 at 00:16, Barna said:

ترى كلنا نحب الصعايدة والنعم فيهم .... اسمح لي استخدم مثالك بطريقة اخرى للفائدة واثراء الموضوع باستخدم هذا الكود ....

Dim db As DAO.Database
Dim qdf As DAO.QueryDef
Dim strSQL1 As String, strSQL2 As String
Set db = CurrentDb
db.QueryDefs.Delete "qr1"
    If com1 = "التقرير الاول" Then
        strSQL1 = "SELECT tblA.ID, tblA.fld FROM tblA;"
        Set qdf = db.CreateQueryDef("qr1", strSQL1)
    ElseIf com1 = "التقرير الثاني" Then
        strSQL2 = "SELECT tblB.ID, tblB.fld FROM tblB;"
        Set qdf = db.CreateQueryDef("qr1", strSQL2)
    End If
DoCmd.OpenReport "rptFlayReport", acViewPreview

وهذا المثال .....

 

Chang Record Sources Report.mdb 344 kB · 3 downloads

الفكرة تعمل بشكل ممتاز .. جزيل الشكر والتقدير على مجهودك

12 ساعات مضت, مبرمج سابق said:

ماشي يا استاذة خلينا نتصور الامر حسب فهمي

عندك 10 تقارير مبنية على استعلامين اثنين مثلا q_1 و q_2

وعندك فورمين اثنين كل فورم فية قائمة باسماء التقارير العشرة وعندك حقل نصي عند اختيار التقرير من القائمة يكتب اسمه في الحقل النصي

وعند امر فتح التقرير يتم فتح التقرير المكتوب اسمه في الحقل النصي ويكون مصدر سجلاته الاستعلام q_1 طالما فتحناه من فورم 1 ويكون مصدرة q_2 اذا فتحناه من فورم2

اذا كان فهمي صحيح ممكنى عمل ذلك وبكود مختصر

نحتاج الى متغير في بداية الاكواد اي يمكن استخدامه في كافة احداث النموذج

Dim x As String

في حدث بعد التحديث للقائمة نضع الامر التالي

Me.tx2 = Me.c2.Column(0)
x = Me.tx2

tx2 هو الحقل النصي
co القائمة المنسدلة
x هو المتغير

في زر فتح التقرير نضع الامر التالي

Dim strSQL As String
strSQL = "q_1"
DoCmd.OpenReport x, acViewPreview, , , , strSQL

وفي النموذج الثاني نغير q_1 الى q_2

ثم نفتح التقارير في وضع التصميم وحدث فتح التقرير نضع الامر التالي

Me.RecordSource = Me.OpenArgs

واذا كنت لم افهم فاعتذر مقدما

تحياتي

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

[Lamyaa]

7 ساعات مضت, ابو جودي said:

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

ثانيا انا اقل طويلب علم ولست مبرمجا على الاطلاق مجرد هاو

ثالثا كنت ابلور فكرة من الامس شبيه بفكرة حضرتك

استخدمت الروتين الاتى فى وحدة نمطية

Function OpenReport(ByRef rptName As String, ByRef qryName As String)

On Error GoTo ErrorHandler

  DoCmd.OpenReport rptName, acViewPreview, , , , qryName
  
procDone:
  Exit Function
ErrorHandler:
    MsgBox$ Err.Number & ": " & Err.Description
    Resume procDone
End Function

على ان يتم استدعاءه بالسطر الاتى 

OpenReport("rpt2", "Query2")

نفس فكرة حضرتك

طبعا بسبب الغموض وعدم التوضيح الكافى كنت فى انتظار اضافة المرفق 

Chang Record Sources Report VBA(V3).mdb 456 kB · 4 downloads

ما شاء الله يا أبا جودي .. كعادتك تبلور الأفكار وتخرج بالخلاصة .. بارك الله فيك ونفع بك 🌹

منذ ساعه, Eng.Qassim said:

اذن انت من جيل (عيرتني بالشيب وهو وقار ) ...

ولست من جيل .. (اشهد الا امرأة اتقنت اللعبة الا انت )

اعتزازي واحترامي للست لمياء

😁😂 سرني تواجدكم

منذ ساعه, أبو عبدالله الحلوانى said:

السلام عليكم ورحمة الله وبركاته

حقيقة كنت مار من هاهنا 👉 👈 فسمعت صوت احدهم ينادي علي الصعايدة فلبيت فكان النداء لصعيدي (مش من بلدنا )

عموما لا بأس فالصعايدة كلهم أخوة 

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

 

PassRepName.accdb 1.1 \u0645\u064a\u062c\u0627 \u0628\u0627\u064a\u062a · 4 downloads

فكرة رائعة وهي تؤدي المطلوب بشكل رائه .. فلك مني جزيل الشكر والتقدير 🌹

[Lamyaa]

الصعايدة يفوزون قوي قوي

ما شاء الله عليكم

 

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

تعلمت منكم الكثير فبارك الله فيكم 🎉

[ابو جودي]

20 دقائق مضت, Lamyaa said:

الصعايدة يفوزون قوي قوي

الله اكبـــــر يحيا العدل 
👈 صعيدى وافتخر

32 دقائق مضت, Lamyaa said:

ما شاء الله يا أبا جودي .. كعادتك تبلور الأفكار وتخرج بالخلاصة .. بارك الله فيك ونفع بك 🌹

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