منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

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

اريد كود اقدر من خلاله طباعة نتائج البحث بداخل الفلكس قريد وطباعته في اكتيف ريبورت.
انا عملت بهذا الكود بس للاسف طلع عندي خطأ في الكود الموضح بالخط العريض
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

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

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

في التقرير

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

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

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

alfakeehy

مصمم هاوي

alfakeehy

مصمم هاوي

alfakeehy

مصمم هاوي