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.
Function TableList()
CurrentDb.Execute ("Delete * from TestTables")
Dim rs As DAO.Recordset
Set rs = CurrentDb.OpenRecordset("Select * from TestTables")
Dim tbf As DAO.TableDef
Dim fld As Field
For Each tbf In CurrentDb.TableDefs
For Each fld In tbf.Fields
rs.AddNew
rs!TestTableName = tbf.Name
rs!TestFieldname = fld.Name
rs.Update
Next fld
Next tbf
Set rs = Nothing
End Function