August 19th, 1999, 04:06 AM
Dim rs As ADODB.Recordset
Set rs = Conn.Execute("Select name from centre where ctrno = 'E01'")
Set DataReport4.DataSource = rs
Do Until rs.EOF
If Not rs.EOF And Not rs.BOF Then
DataReport4.Sections("Section1").Controls.Item("Text1").DataField = rs("name")
rs.MoveNext
End If
Loop
SetDefPrinter Me, myPaperSizeA4, myOrientLandscape
DataReport4.Show
The problem is when I compile it, it gives me an error message "DataField <centre name> not found"
When I change the query to ("Select name from centre where ctrno = ' ' "), the same error message appears with a centre name after it bypass several centre name without any error message.
* <centre name> is the value stored in rs("name")
Does anyone have any idea what's wrong with this code? Thanks in advance
Set rs = Conn.Execute("Select name from centre where ctrno = 'E01'")
Set DataReport4.DataSource = rs
Do Until rs.EOF
If Not rs.EOF And Not rs.BOF Then
DataReport4.Sections("Section1").Controls.Item("Text1").DataField = rs("name")
rs.MoveNext
End If
Loop
SetDefPrinter Me, myPaperSizeA4, myOrientLandscape
DataReport4.Show
The problem is when I compile it, it gives me an error message "DataField <centre name> not found"
When I change the query to ("Select name from centre where ctrno = ' ' "), the same error message appears with a centre name after it bypass several centre name without any error message.
* <centre name> is the value stored in rs("name")
Does anyone have any idea what's wrong with this code? Thanks in advance