Is control source a formula (Access 2000)

[MackC]

I have a form that is based on a query, which includes some formulas. How would I programmatically determine if the control source of a control is a formula in the query as opposed to a field in the query?

 

[lupins46]

you could test the sql string of the query for the string 'As fieldname'. If it's there it is a formula otherwise it's a field from the table.

Function testname(fname As String)
testname = "Table"
Dim strsql
Dim qdf As DAO.QueryDef
Set qdf = CurrentDb.querydefs("queryname")
strsql = qdf.SQL
If InStr(1, strsql, "As " & Trim(fname)) > 0 Then testname = "Calc"

End Function

 

[MackC]

Thanks, that should work unless someone has a better suggestion.