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.
Sub DigitTable(MaxNumber)
Dim Mydb As Database
Dim Num As Long
Set Mydb = CurrentDb
Mydb.Execute "Create Table Digits (Digitid INTEGER CONSTRAINT Digitid PRIMARY KEY)"
For Num = 1 To MaxNumber
Mydb.Execute "Insert Into Digits (Digitid) Values (" & Num & ")"
Next
End Sub