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 Sub (strTable As String)
Dim strNewTable as String, strSQL As String
DoCmd.SetWarnings False
strNewTable = strTable & "_old"
strSQL = "SELECT [" & strTable & "].* INTO [" & strNewTable & "] " _
& "FROM [" & strTable & "];"
doCmd.RunSQL(strSQL)
DoCmd.SetWarnings True
End Sub