Using code to create a new database on a 3.5 floppy

[rcaban]

What exact code or type of code should I use to automatically create a new blank database on a 3 1/2" floppy disk? If it is possible, could I use a macro to do it as well?

 

[Tim K.]

Yes, it's possible. Just create the db in your hd first, for the speed sake, then copy the db to a floppy disk when finished.

I don't know if Macros could handle this or not. Check the CreateDatabase Method in Help.

 

[rcaban]

Creating databases with event procedures

Well, what I'm exactly trying to do is have an event triggered that would create a database onto a floppy disk, export a table from my current database to the one on the disk, and then append information to the exported table in the new database on the disk. I'm having trouble coming up with an event procedure that will allow me to do that. I tried looking in help and online to see if there was anything I could use but no luck.

 

[Tim K.]

Here's how to create a blank db and copy a table to it.

Sub CreateNewDB()
Dim wsp As Workspace
Dim dbs As Database
Dim strDBFile As String
strDBFile = "A:\NewDB.mdb"
Set wsp = DBEngine.Workspaces(0)
Set dbs = wsp.CreateDatabase(strDBFile, dbLangGeneral)
DoCmd.CopyObject strDBFile, , acTable, "Table1"
dbs.Close
Set dbs = Nothing
Set wsp = Nothing
End Sub

 

[Fornatian]

Instead of having to create a database each time why not just copy a blank from the HD?

 

[rcaban]

Compile errors

For some reason there is a compile error for these two statements:

Dim wsp As Workspace
Dim dbs As Database

 

[Tim K.]

Make sure you have set DAO in the References. Go to Tools menu>References..> Look for Microsoft DAO 3.X Object Library and select it.

Now try the code again and it should work out for you now.