ACC: How to Prevent Users from Creating New Databases

MORE INFORMATION

1. Quit Microsoft Access if it is running. Copy the System.mdw file (or SYSTEM.MDA file in version 2.0), usually in the Access folder, to a file with another name. For example, copy the file to a file named System.bak.
2. Start Microsoft Access and open the sample database Northwind.mdb (or NWIND.MDB in version 2.0).
3. Create a new module and type the following line in the Declarations section if it is not already there:

   Option Explicit

4. Type the following code in the module.
   
   In Microsoft Access 7.0 and 97:

         Function Remove_DBCreate()
           Dim d As Database, c As Container, SystemDB As String
           SystemDB = "c:\access\system.mda" ' Use path for your system.
           Set d = DBEngine(0).OpenDatabase(SystemDB)
           Set c = d.Containers!Databases
           c.Username = "Users"
           c.Permissions = c.Permissions And Not dbSecDBCreate
         End Function

   In Microsoft Access 2.0:

         Function Remove_DBCreate()
           Dim d As Database, c As Container, SystemDB As String
           SystemDB = "c:\access\system.mda" ' Use path for your system.
           Set d = DBEngine(0).OpenDatabase(SystemDB)
           Set c = d.Containers!Databases
           c.Username = "Users"
           c.Permissions = c.Permissions And Not DB_SEC_DBCREATE
         End Function
   						

5. On the View menu, click Debug Window (or Immediate Window in version 2.0).
6. In the Debug window, type the following line, and then press ENTER:

   ?Remove_DBCreate()

7. Quit Microsoft Access, and then restart it. Log in as a member of the Users group.
8. On the File menu, click New Database. In the File Name box, type c:\db1.mdb, and then click OK. Note that you receive the following message:
   No permissions on 'C:\DB1.MDB'