نتيجة البحث فى التقرير

السلام عليكم

اجريت على ملفاتك بعض التعديلات

أولا : تعديل خاصية الـRecordSource لأداة الـAdodc1 بدلا من كونها تختار جدول Authors مباشرة جعلت نوع الـCommand Type

-1adCmdText

وفي حقل Command Text(SQL)

select * from Authors

ثانيا : حذفت الـDataEnvironment1

ثالثا : عدلت الكود إلى

Private Sub Command1_Click()

Dim y As String
y = InputBox("ãä ÝÖáß ÃÏÎá ÑÞã ÇáßÇÊÈ")
'y = "'" & y & "'"
'Adodc1.Recordset.Find "Au_ID=" & y
Adodc1.RecordSource = "select * from authors where AU_ID=" & y
Adodc1.Refresh
Set DataReport1.DataSource = Adodc1
DataReport1.Show
 End Sub

رابعا : أدرجت في التقرير datareport1 مربعي RptTextBox ووضعت خاصية الـDataField لها يساوي أسماء الحقول في جدول قاعدة البيانات

والله الموفق

REPORT.zip

شكرا لك أخى على هذه المعلومة و أتمنى للمنتدى المزيد من التقدم :)