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

[Eng.Qassim]

  في 27‏/6‏/2022 at 19:54, مبرمج سابق said:

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

Expand  

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

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

  في 27‏/6‏/2022 at 19:54, مبرمج سابق said:

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

Expand  

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

[متقاعد]

  في 27‏/6‏/2022 at 20:06, Eng.Qassim said:

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

Expand  

نعم هذا صحيح

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

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

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

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

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

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

 

PassRepName.accdbFetching info...

[Lamyaa]

  في 26‏/6‏/2022 at 21: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

Expand  

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

  في 27‏/6‏/2022 at 08:59, مبرمج سابق 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

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

تحياتي

Expand  

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

[Lamyaa]

  في 27‏/6‏/2022 at 14:15, ابو جودي 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

Expand  

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

  في 27‏/6‏/2022 at 20:06, Eng.Qassim said:

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

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

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

Expand  

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

  في 27‏/6‏/2022 at 20:25, أبو عبدالله الحلوانى said:

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

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

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

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

 

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

Expand  

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

[Lamyaa]

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

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

 

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

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

[ابو جودي]

  في 27‏/6‏/2022 at 21:37, Lamyaa said:

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

Expand  

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

  في 27‏/6‏/2022 at 21:27, Lamyaa said:

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

Expand  

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