is there a simple xxxx.add method avaiable in Access for creating a new database?

[magnusstefan]

Hi!

In Excel you can write a very simple "object.method" code to create a new workbook:

"Sub CreatelNewFile()



'Add a new workbook
Workbooks.Add

End Sub"

Is something similar possible in Access? I mean like:

"Sub CreatelNewFile()

'Add a new database
xxxxxxx.Add

End Sub"

[ItsMe]

What are you trying to create, specifically?

[magnusstefan]

Actually, the point is that I am not trying to create anything specific!

To the contrary: I have learned a very simple code snippet for creating an empty document in Excel (the example given) but also in Powerpoint and Word. (In Word you change the method to "documents" and in Powerpoint to "presentation". Then an empty new document/spreadsheet/presentation is created. I just wanted to do the same thing in Access, creating an new empty database if possible, and that only for the purpose of writing simple code which actually works, and which can be compared with VBA-code in other office programs!

So this is part of my own educational program, nothing else!

(I am in lesson three now on this excellent basic web training course:
http://www.wiseowl.co.uk/blog/s140/vba_primer_pt3.htm )

[ItsMe]

If you reference the Microsoft Office XX.0 Object Library, I am sure there is a way you could use early binding to create new, blank, files for different applications within the Office suite. I have done it for Word and also for Excel. However, I do this so I can automate the application and do more than create a blank document or spreadsheet.

In order to get done the things I would typically do, I will reference Microsoft Excel Object Library and or Microsoft Word Object Library or Microsoft Outlook Object Library, etc.

This code launches Excel and then opens an existing workbook.

Dim xlApp As Excel.Application
Dim myBook As Workbook
Dim mySheet As Worksheet

Set xlApp = New Excel.Application
Set myBook = xlApp.Workbooks.Open(strPath & "Template\Product_By_PO.xlsx")
Set mySheet = myBook.Sheets.Item(1) 'Grab the first worksheet

So if you wanted to create a new workbook, I think you will need to use the Add method of a WorkBook object. If you do not need an entire workbook, I believe you can use the add method to a Worksheet object, directly to your application Object.

Maybe something like ...

Dim xlApp As Excel.Application
Dim myBook As Workbook
Dim mySheet As Worksheet
Set xlApp = New Excel.Application
Set myBook = xlApp.Workbooks.Add
Set mySheet = myBook.Sheets.Item(1) 'Grab the first worksheet

If I recall correctly, you use the save method to define the path of your new instance of the workbook.

[magnusstefan]

Thank you for the suggestions!

Now, that is all very fine, but I have not yet learnt to use dim and set!
I will try this later when I can a little more of the basics in VBA...

For now I need a simpler solution, as in my first example. That is of course, if the equivalent is possible in Access, and maybe it is not...

[ItsMe]

...For now I need a simpler solution, as in my first example...

I was considering this example provided by you in post #1

"Sub CreatelNewFile()

    'Add a new workbook
    Workbooks.Add

 End Sub"

When I posted ...

Dim xlApp As Excel.Application
Dim myBook As Workbook
Dim mySheet As Worksheet
Set xlApp = New Excel.Application
Set myBook = xlApp.Workbooks.Add
Set mySheet = myBook.Sheets.Item(1) 'Grab the first worksheet

[June7]

This shows VB.net code to create db. It could probably be adapted to VBA. http://www.freevbcode.com/ShowCode.asp?ID=5797

[CJ_London]

this code will create a new blank access db

dim db as dao.database
dim dbPath as string

dbPath="C:\mynewdatabase.accdb"

Set Db = CreateDatabase(dbPath, dbLangGeneral)

once created you can either use SQL to create tables, indexes and relationships or refer to the db collections e.g.

db.tabledefs
db.querydefs

etc

[magnusstefan]

Hello!

For some reason, I do not remember now, I never answered on the last replies, and I must apologize for that! Other things came between, as often... Hope to be able to come back to this later and check the suggestions after I learned a Little more about the basics in VBA.

Thanks a lot, for your help, so far!