ACC: How to Create a Version 2.0 Database Using Access 95/97

MORE INFORMATION

1. Create a new module.
2. Type the following procedure:

         Public Function CreateDB()
            Dim newdb As DATABASE, mydb As DATABASE
            Dim dbname As String
            Dim tdf As TableDef
   
            'Set the path and name for the new database.
            dbname = "c:\msoffice\access\Newdb.mdb"
   
            'Create the new 2.0 database and close newdb.
            Set newdb = DBEngine.Workspaces(0).CreateDatabase(dbname, _
            dbLangGeneral, dbVersion20)
            newdb.Close
   
            'Export all non-system tables to the version 2.0 database.
            Set mydb = CurrentDb()
            For Each tdf In mydb.TableDefs
               If (tdf.Attributes And dbSystemObject) = 0 Then
                  DoCmd.TransferDatabase acExport, "Microsoft Access", _
                  dbname, acTable, tdf.Name, tdf.Name
               End If
            Next tdf
   
         End Function

3. To test the function, type the following line in the Debug window, and then press ENTER.

   ? CreateDB()

   Note that the new version 2.0 database is created (in the location you specified) and that all nonsystem tables in the current version database are exported to the new version 2.0 database.
   
   NOTE: You can export only tables to a Microsoft Access 2.0 database; you cannot export other database objects such as forms or reports. If you try to export other objects, you receive the following error:
   Run-time error '7854':
   You can't export database objects (except tables) from the
   current version of Microsoft Access to previous versions of
   Microsoft Access.
   In addition, you cannot export tables from databases that have been replicated because these tables have system-defined fields with a data type of ReplicationID. Microsoft Access 2.0 does not have a ReplicationID data type.