Assigning a query output to a VBA variable 1

[teach314]

I have a feeling I am missing something obvious. Consider the code fragment:

Dim db as DAO.Database,strSQL As String, strQryCount As String, intID_Count As Integer

    strSQL = "Select Count(ID) AS ID_Count FROM qry_X;"

    Set db = CurrentDb()
    Set MyQueryDef = db.CreateQueryDef(strQryCount, strSQL)
    DoCmd.OpenQuery strQryCount

    intID_Count =   ???????

    code continues.....

Here is my question - the query outputs a single number, say 50, in a 'one-celled' query output. How do I assign this value to the variable intID_Count?

Thanks in advance

 

[PHV]

Dim intID_Count As Integer
intID_Count = DCount("ID", "qry_X")
code continues.....

Hope This Helps, PH.
FAQ219-2884
FAQ181-2886