[alfakeehy]

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

اريد كود اقدر من خلاله طباعة نتائج البحث بداخل الفلكس قريد وطباعته في اكتيف ريبورت.
انا عملت بهذا الكود بس للاسف طلع عندي خطأ في الكود الموضح بالخط العريض
ActiveReport1.dcRptData.Source = "SELECT * FROM Tabel1 WHERE N7 Like '%" & (txtFind.Text) & "%'" & ""
ActiveReport1.Refresh
ActiveReport1.Show

PHP كود :

ActiveReport1.dcRptData.Source = "SELECT * FROM Tabel1 WHERE N7 Like '%" & (txtFind.Text) & "%'" & ""
ActiveReport1.Refresh
ActiveReport1.Show 


وكل الشكر والعرفان لجميع الموجودين على المساهمة في تطوير قدرات الاعضاء ومساعدتهم.

[مصمم هاوي]

جرب هذا الكود

كود :

Dim X As String
X = txtFind.Text

Unload ActiveReport1

ActiveReport1.DataControl1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & _
App.Path & "\اسم قاعدة البيانات .mdb;Persist Security Info=False"

"ActiveReport1.DataControl1.Source = "Select * From Tabel1 Where Clas='" & Trim$(txtFind.Text)  & "' order by iD

ActiveReport1.Show

ActiveReport1.Visible = True

[alfakeehy]

والله مانفع اخي للاسف
طلعت لي نفس الرسالة اللي هي
Compile Error :
Method or data member not found
شكرا لك اخي على التفاعل
طبعا الخطأ موجود في هذي الكلمة
.DataControl1

[مصمم هاوي]

قم بإضافة الأداة DataControl1 في التقرير

[alfakeehy]

شكرا جزيلا اخي الكريم
نعم هنا كانت المشكلة فقط
اسال الله الكريم رب العريش العظيم ان يجعل كل علم تعلمته وعلمته ان يجعله في موازين حسناتك وان يعفو عنك ووالديك
شكرا جزيلا

[مصمم هاوي]

ولك مثلُ ذلك أخي الكريم
فقد تعلمنا في هذا المنتدى الغالي ، حبَّ المساعدة وتقديم يد العون
وكلنا بحاجة إلى مساعدة الخبراء والأساتذة الأفاضل