新規データベースを作成するには

CreateDataBase　を使用します。










データベース作成(DAOでの）


Sub makedb()
   
    Dim db As DAO.Database
    Dim dbname As String
    
    '作成したデータベース名を入力
    dbname = InputBox("データベース名を入力して下さい")
   
    Set db = CreateDatabase("C:\" & dbname & ".mdb", dbLangJapanese)
   
    db.Close
    Set db = Nothing
   
End Sub
 

上の例ではインプットボックスに作成したいデータベース名
を入力させ、Ｃドライブに作成しています。

もし作成先に同じデータベース名が存在する場合はエラーが起こるので
注意して下さい