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.
Dim db As DAO.Database
Dim tdfTable As New DAO.TableDef
Dim fld1 As New DAO.Field
Dim fld2 As New DAO.Field
Dim fld3 As New DAO.Field
Set db = CurrentDb
tdfTable.Name = "aa"
With fld1
.Type = dbText
.Name = "Name"
End With
With fld2
.Type = dbDate
.Name = "e_date"
End With
With fld3
.Type = dbLong
.Name = "amt"
End With
With tdfTable.Fields
.Append fld1
.Append fld2
.Append fld3
End With
With db.TableDefs
.Append tdfTable
.Refresh
End With
Application.RefreshDatabaseWindow