hi everyone . i wonder why my datareport  always 'Object was Open'?  it's kind of error   . i already close my connection before i open datareport. but the result still the same , here are my code at form:

If Dt1.rstblCheckOutBill.State = adStateOpen Then         D1.rstblCheckOutBill.Close     End If     Dt1.rstblCheckOutBill.Open "SELECT *, Days * Price AS    RoomCharge, OverTimes * ChargePerHour AS OTCharge FROM HtblCheckOut WHERE CheckID='" + Me.comCheckID + "'"

and this code at datareport

Private Sub DataReport_QueryClose(Cancel As Integer, CloseMode As Integer)     If Dt1.rstblCheckOutBill.State = adStateOpen Then         Dt1.rstblCheckOutBill.Close     End If End Sub

anyidea please.

____________________________
Please help out.

Are you using DataEnvironment?





[Edited by TJ_01 on 25-10-2005 at 05:40 AM GMT]

____________________________
Im JAMES  

yes, exactly. how can i sovle this problem? more help please

____________________________
Please help out.

Can you give me the specs of your report? I mean what do you want to do with your report? And also, can you post your existing code? It will be more easy for me to analyze.  

____________________________
Im JAMES  

ok. here the code in dataenvironment command(tblCheckOutBill):

SELECT *, Days * Price AS RoomCharge, OverTimes * ChargePerHour AS OTCharge FROM HtblCheckOut

and here the code in form that i call derectly to data report:

DataEnvironment1.rstblCheckOutBill.Open "SELECT *, Days * Price AS RoomCharge, OverTimes * ChargePerHour AS OTCharge FROM HtblCheckOut WHERE CheckID='" + Me.comCheckID + "'" HdtrCheckOutBill.Show

and the last is the code in data report that i call from above. i need to close rstblCheckOutBill. right?

Private Sub DataReport_QueryClose(Cancel As Integer, CloseMode As Integer)     If DataEnvironment1.rstblCheckOutBill.State = adStateOpen Then         DataEnvironment1.rstblCheckOutBill.Close     End If End Sub

if i open it with the same record (CH00001), it's alway fine. but if i change record (CH00002), it's alway error(Object was open).       more please.


____________________________
Please help out.

Try this one:
In your form

With DataEnvironment1     If .rstblCheckOutBill.State = adStateOpen Then .rstblCheckOutBill.Close   .rstblCheckOutBill frmDate.comCheckID.Value   End With   HdtrCheckOutBill.Show

In your dataEnvironment, then command1, right click and then properties. and then from the sql statement write this code:

SELECT HtblCheckOut. * FROM HtblCheckOut WHERE CheckID = ?

BTW, What specs of report you want? like field and etc. This code is a air coded and havent test becoz i dont have my vs intstalled.


HTH..

____________________________
Im JAMES