تعديل مصدر البيانات تقرير برمجيا بدون فتحه

[ahmad_3011]

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

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

[MTGFM]

Me.RecordSource = "هنا ضع المصدر"

جرب هذا

[ابوآمنة]

Dim req As String
req = "select * from saleh where id=3;"
Me.RecordSource = req
السطر الأخير معناه نجعل مصدر السجلات لنموذج الحالي هو الاستعلام req

ومساهمة أخرى مع أخي @MTGFM

و للمنوذج الفرعي هكذا 

Me.frmSub.Form.RecordSource = ("Select * From saleh")

 

[ahmad_3011]

شكرا لحضراتكم على الردود، كنت عايز اوضح نقطة التقرير اللى انا عايز اغير فى مصدره انا عايز اغير فى مصدره من غير ما افتحه خالص فمش هينفع اكتب Me.recordsource 

لان دى بتتكتب لو انا فاتح برمجة التقرير انا عايز اغير فى مصدر التقرير وانا فى تصميم فورم تانية خالص

[ahmad_3011]

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

 

[ابوآمنة]

تفضل الكود

 

Private Sub Comand3_Click()

     If Len(Me.text & vbNullString) = 0 Then
'في حال عدم وجود شرط بحث
        strcriteria = Replace(strcriteria, " Where ", "")
        DoCmd.OpenReport "rptItems", acViewPreview, , strcriteria
    Else
'في حال وجود شرط بحث
        Dim RName, FldCriteria As String
        RName = "rptItems"
        FldCriteria = "[ID]=" & "'" & Me.text & "'"
        DoCmd.OpenReport RName, acViewPreview, , FldCriteria
End If
End Sub

وبقية التفاضيل في برنامج الخليل في نموذج FrmFilteringQTY

[ahmad_3011]

19 ساعات مضت, ابوآمنة said:

اخى الكريم ابو آمنه شكرا لحضرتك على المجهود المبذول والافكار الجميله بعد تنفيذ الكود المرفق من حضرتك يظل التقرير يحتاج الفتح لتنفيذ الكود ما اردنه هو ان يتم تغيير المصدر بشكل كلى حتى لو قمت بفتح التقرير عن طريق الضغط عليه وليس عن طريق الفورم فى كل مرة لانى احتاج فتح هذا التقرير لارسال ايميل بجزء من بياناته ولو امكن الاجابة على هذا الموضوع