how to count records of query defined in vba

[Davide77]

Hallo, I have a query defined in vba code:

Dim strsql as string
strSql = "SELECT [Qry_Room].[Room] FROM [Qry_Room] WHERE [Qry_Room].[Day]=" & Format(CDate(giorno), "dd-mm-yyyy") & ";"

how do i count the number of record of it?

i tried with the dcount:

RecordQuantity = DCount(strsql, "qry_Room")


but doesn't work

any suggestion?

 

[p27br]

Hi

you can open assign the query to a recordset then get the .RecordCount value

dim rst as adodb.recordset

set rst = new adodb.recordset

rst.open "yourSelectstatement", currentproject.connection
RecordQuantity = .RecordCount

rst.close
set rst = nothing