It has been a long time since I have added a VBA post, so here is something that I had to quickly put together for a little project that I am working on this evening.
I have a really large table with a bunch of fieldnames that I need to query through to make some sample data for another project.
I thought that it would be easiest to quickly grab all of the field names from my target table so I can filter out only the ones I need and not manually type a bunch of field names.
I am sure there are other trivial ways of doing this, but since you found my post, you are probably looking to do what I am doing here.
Get Column Names from Access Recordset with VBA
Sub getFieldNamesFromTable(targetTable As String)
Dim db As DAO.Database
Dim rs As DAO.Recordset
Dim strSQL As String
Set db = CurrentDb
strSQL = "SELECT TOP 1 * FROM " & targetTable
Set rs = db.OpenRecordset(strSQL)
For Each fName In rs.Fields
Debug.Print fName.Name
Next fName
'Do While Not rs.EOF
'Loop
db.Close
Set db = Nothing
Set rs = Nothing
End Sub
And then to use this method, set up another sub in a module or wherever
Sub tableNamesRunner()
getFieldNamesFromTable ("MyAccessDBTableName")
End Sub
Leave a Reply