الكود:

Set prinRs = prinDb.Execute("SELECT * FROM db2 WHERE id = " & Text35.Text & ";")
If prinRs.EOF = False Then

Set DataReport1.DataSource = prinRs
DataReport1.Show 1
End If


alfakeehy كتب:السلام عليكم 
ممكن لو تكرمتو اخواني اعادة ضبط هذا الكود بحيث تكون الطباعة بدلا عن داتا ريبورت يكون اكتف ريبورت

الكود:

Set prinRs = prinDb.Execute("SELECT * FROM db2 WHERE id = " & Text35.Text & ";")
If prinRs.EOF = False Then

Set DataReport1.DataSource = prinRs
DataReport1.Show 1
End If




يكون البدل ActiveReport1.Show

تحياتي لكم

الكود:

ActiveReport1.DataControl1.Recordset = prinrs
ActiveReport1.Refresh
ActiveReport1.Show