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 UpdtTbls()
Dim AllTables As TableDef, tblname As String
For Each AllTables In CurrentDb.TableDefs
'Get the Table name
tblname = AllTables.Name
If Mid(tblname, 1, 4) <> "Msys" Then
'Step 1: Delete all table from New Database after copied, Open all tables
DoCmd.DeleteObject acTable, tblname
'Step 2: Transfer all Table structures to new Database
'DoCmd.TransferDatabase acExport, "Microsoft Access", "C:\DBNew\[Name of your database].mdb", acTable, tblname, tblname, True
'Step 3: Insert data into new table
'DoCmd.SetWarnings False
'DoCmd.RunSQL "INSERT INTO " & tblname & " IN 'C:\DBNew\[Name of your database].mdb' SELECT " & tblname & ".* FROM " & tblname & " IN 'C:\[Directory of the original data withe old database structure]\[Name of your old database].mdb';"
'DoCmd.SetWarnings True
End If
Next AllTables
End Function