Retrieving query records on datareport
 

SIR ,

I WANT IF USER CLICK ON PRINT BUTTON ALL THE RECORDS SHOULD
COME IN A REPORT FROM MR QUERY Attachment 8753 BUT RECORDS ARE NOT SHOWING ON DATA REPORT.

I HAVE WRITTEN A CODE IN PRINT_CLICK

Private Sub Command4_Click()
Set rs = New adodb.Recordset
rs.Open " select * from MR query", con, adOpenDynamic, adLockOptimistic
Set DataReport2.DataSource = rs
DataReport2.Orientation = rptOrientLandscape
DataReport2.ShowEnd Sub

Re: Retrieving query records on datareport
 

hi did you input an riptextbox in your data report?

regards
Ryan Riel

Re: Retrieving query records on datareport
 

yes i have taken a textbox i am getting error datafield is empty
and datasource not found

Re: Retrieving query records on datareport
 

can u tell me what is the equivalent of the emp_id, dept_name, etc in the riptextbox of your datareport thanks

Re: Retrieving query records on datareport
 

i don't know MR table is not comming in object name in command2
properties dialog box

Re: Retrieving query records on datareport
 

yes because you did not add an item to your data report, you should add an item in your data report like this way:

With datareport2.Sections("Section1").Controls
.Item("Text1").DataField = rs.Fields("Emp_file").Name
end with
set datareport2.datasource = rs

regards
Ryan

Re: Retrieving query records on datareport
 

in which event should i write this code when i go in code window of data report
i got only
activate
deactivate
error
initialize event in which event should i write this code

Re: Retrieving query records on datareport
 

where should i write
i have written in print_click but it is not working
Private Sub Command4_Click()
Set rs = New adodb.Recordset
rs.Open " select * from MR query", con, adOpenDynamic, adLockOptimistic
Set DataReport2.DataSource = rs
DataReport2.Orientation = rptOrientLandscape
'With DataReport2.Sections("Section1").Controls
'.Item("Text1").DataField = rs.Fields("Emp_file").Name
'End With
DataReport2.Sections("section1").Controls
Set DataReport2.DataSource = rs
DataReport2.Show
End Sub

Re: Retrieving query records on datareport
 

Private Sub Command4_Click()
Set rs = New adodb.Recordset
rs.Open " select * from MR query", con, adOpenDynamic, adLockOptimistic
if rs.recordcount > 0 then
if not rs.eof then
with datareport2.sections("section1").controls
.item("text1").datafield = rs.fields("emp_file").name
'etc.
end with
end if
set datareport2.datasource = rs
datareport2.show
end if

end sub

regards
Ryan Riel

Re: Retrieving query records on datareport
 

[QUOTE=ryan311;769960]Private Sub Command4_Click()
system hangs i don't know why
Private Sub Command4_Click()
Set rs = New adodb.Recordset
rs.Open " select * from MR query", con, adOpenDynamic, adLockOptimistic
If rs.RecordCount > 0 Then
If Not rs.EOF Then
With DataReport2.Sections("section1").Controls
.Item("text1").DataField = rs.Fields("dept_name").Name
End With
Set DataReport2.DataSource = rs
DataReport2.Orientation = rptOrientLandscape
DataReport2.Show
End If
End If
End Sub