Variable value from query

[Neal Ostrander]

I have a query that takes the sum of one comlum and subtracts the sum of
another column to get the balance. Is there a way to run this query in vba
and assign the returned value to a variable.

Thanks
Neal

 

[pietlinden]

I have a query that takes the sum of one comlum and subtracts the sum of
another column to get the balance. Is there a way to run this query in vba
and assign the returned value to a variable.

Thanks
Neal

dim curReturnValue as currency
dim qdf as dao.querydef
dim rs as dao.recordset
set qdf=Dbengine(0)(0).Querydefs("QueryName")
set rs=qdf.openrecordset

curReturnValue=rs.fields("Total")

you mean something like that?

 

[Neal Ostrander]

Is the coding the same using ADO?

dim curReturnValue as currency
dim qdf as dao.querydef
dim rs as dao.recordset
set qdf=Dbengine(0)(0).Querydefs("QueryName")
set rs=qdf.openrecordset

curReturnValue=rs.fields("Total")

you mean something like that?

 

[pietlinden]

Is the coding the same using ADO?

not exactly the same, but similar.
use an ADO command and an ADO recordset, and you can do the same thing.