Hejsan

Är det vigtigt att stänga recordsetet efter varje sökning om man tex kör flera rs iföljd
eller kan man vänta med att stänga recordsetet efter sista sökningen.

/Tobbe

Skicka med koden iställt så vi förstår dig rätt.

Hej
Skicka lite av koden

Set rs = dbs.OpenRecordset("select Count(St)As iCount from Tidserv where Avd ='" & Form1.lblAvd & "' and Datum ='" & sDay1 & "'and St= true ", dbOpenSnapshot)
Do Until rs.EOF
MSChart1.Row = 1
MSChart1.Column = 2
MSChart1.Data = rs.Fields("iCount").Value

rs.MoveNext
Loop

rs.Close


Set rs = dbs.OpenRecordset("select Count (TR)As iCount from Tidserv where Avd ='" & Form1.lblAvd & "' and Datum ='" & sDay1 & "'and TR = true ", dbOpenSnapshot)
Do Until rs.EOF
MSChart1.Row = 1
MSChart1.Column = 3

MSChart1.Data = rs.Fields("iCount").Value

rs.MoveNext
Loop
rs.Close


Set rs = dbs.OpenRecordset("select Count (Rep)As iCount from Tidserv where Avd ='" & Form1.lblAvd & "' and Datum ='" & sDay1 & "'and Rep = true ", dbOpenSnapshot)
Do Until rs.EOF
MSChart1.Row = 1
MSChart1.Column = 4

MSChart1.Data = rs.Fields("iCount").Value

rs.MoveNext
Loop
rs.Close
Set rs = Nothing
dbs.Clost
Set dbs = Nothing
/Tobbe

Effektivare att göra det med en fråga:
<code>
Set rs = dbs.OpenRecordset("SELECT -Sum(St = true) As StCount, -Sum(TR = True)As TRCount, -Sum(Rep = True) AS RepCount FROM Tidserv WHERE Avd = '" & Form1.lblAvd & "' and Datum ='" & sDay1 & "'", dbOpenSnapshot)
If Not rs.EOF Then
MSChart1.Row = 1
MSChart1.Column = 2
MSChart1.Data = rs.Fields("StCount").Value

MSChart1.Column = 3
MSChart1.Data = rs.Fields("TRCount").Value

MSChart1.Column = 4
MSChart1.Data = rs.Fields("RepCount").Value
End If

rs.Close
Set rs = Nothing

dbs.Close
Set dbs = Nothing
</code>

Hej Andreas

Jag skall genast testa ditt förslag ser intressant ut.

/Tobbe