Experts Exchange always has the answer, or at the least points me in the correct direction! It is like having another employee that is extremely experienced.
When asked, what has been your best career decision?
Deciding to stick with EE.
Being involved with EE helped me to grow personally and professionally.
Connect with Certified Experts to gain insight and support on specific technology challenges including:
We've partnered with two important charities to provide clean water and computer science education to those who need it most. READ MORE
Private Sub cmdArchiveTables_Click() Dim ws As Workspace Dim db As Database Dim LFilename As String Dim tblDataHeader As Object Dim tblDataDetail As Object 'Get default Workspace Set ws = DBEngine.Workspaces(0) 'Path and file name for new mdb file LFilename = "C:\Database Name.accdb" 'Make sure there isn't already a file with the name of the new database If Dir(LFilename) <> "" Then Kill LFilename 'Create a new accdb file Set db = ws.CreateDatabase(LFilename, dbLangGeneral) 'Export tables to new database DoCmd.TransferDatabase acExport, "Microsoft Access", LFilename, acTable, "tblDataHeader", "tblDataHeader", False DoCmd.TransferDatabase acExport, "Microsoft Access", LFilename, acTable, "tblDataDetail", "tblDataDetail", False db.Close Set db = Nothing End Sub