كيف يمكنني عرض ناتج إستعلام بتقرير اكسيس

الأخوة الأعضاء

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

لقد طرحت سؤالا وبحثت عن الإجابة في عدة منتديات عربية وأجنبية ، ولقد تكلل بحثي بالنجاح والحمدلله

وهذا هو الكود الخاص بعرض تقرير Microsoft Access بعد إجراء إستعلام من خلال Visual Basic

Private Sub CmdReport_Click()
AppAccess.OpenCurrentDatabase App.Path & "\db1.mdb"
AppAccess.Visible = True
AppAccess.DoCmd.OpenReport "RP", acViewPreview, , "[ID] =" & Text1

End Sub

على إفتراض أن قاعدة البيانات إسمها db1

إسم التقرير RP

إسم الحقل المطلوب عرض البيانات من خلاله ID

Text1 إسم الحقل في Visual Basic المربوط بالحقل ID بقاعدة البيانات Microsoft Access

ولكم تحياتي