Expand|Select|Wrap|Line Numbers
- Sub Fieldnames()
- Dim Rst As Recordset
- Dim db As Database
- Dim f As Field
- Dim qdfParmQry As QueryDef
- Set db = CurrentDb()
- Set qdfParmQry = db.QueryDefs("qry_1test")
- qdfParmQry("Forms!Occu_formatting!Species") = [Forms]![Occu_formatting]![Species]
- Set Rst = qdfParmQry.OpenRecordset()
- For Each f In Rst.Fields
- Debug.Print f.Name
- Next
- Rst.Close
- End Sub