Follow along with the video below to see how to install our site as a web app on your home screen.
Note: This feature may not be available in some browsers.
Public Function getFieldNames(tableName As String) As String
Dim rs As DAO.Recordset
Dim fld As DAO.Field
Set rs = CurrentDb.OpenRecordset(tableName)
For Each fld In rs.Fields
getFieldNames = getFieldNames & fld.Name & ";"
Next fld
getFieldNames = Left(getFieldNames, Len(getFieldNames) - 1)
End Function