How to change the startup form of a db with vb? 1

[Emmie1]

Hi,
I have a database which I have written code to create a new database each month. This code works perfectly except for the need have a specific form be the startup form for the newly created database.

When I create a new month, I want the new month to have the form [BEGIN] as the startup form when the user opens the newly created database. Is there a way to do this using VB from either the old DB or the newly created DB?

Any thoughts or suggestions would be great!
Thanks in advance!
Em

 

[Remou]

You can set a startup form.

Public Sub SetStartForm()
   Dim dbs As Object
   Dim prp As Object
   Dim strTitle As String

   Const PROPERTY_NOT_FOUND As Integer = 3270
   Const TEXT_TYPE As Integer = 10
   ' Equivalent to DAO dbText data type.
   Const BOOL_TYPE As Integer = 1
   ' Equivalent to DAO dbBoolean data type.
   Const LONG_TYPE As Integer = 4
   ' Equivalent to DAO dbLong data type.

   On Error GoTo ErrorHandler

   Set dbs = Application.CurrentDb
   strForm = "Form1"

   ' Try to set the property. If it fails, the property does not exist.
   dbs.Properties("StartupForm") = strForm

ExitLine:
   dbs.Close
   Set dbs = Nothing
   Set prp = Nothing
   Exit Sub

ErrorHandler:
   If Err.Number = PROPERTY_NOT_FOUND Then
      ' Create the new property.
      Set prp = dbs.CreateProperty("StartupForm", TEXT_TYPE, strForm)
      dbs.Properties.Append prp
      Resume Next
   Else
      Resume ExitLine
   End If

End Sub

 

[PHV]

create a new database each month
Really ?
How will you make yearly or historical reports with so many DB ?
Have a look here:

http://r937.com/relational.html

Hope This Helps, PH.
FAQ219-2884
FAQ181-2886

 

[Emmie1]

Thanks Guys!

Remou: Do I put this code in the old DB code that creates the new database or put it somewhere so it starts up in the new Database when it's open?

PHV: Each months DB starts out with about 129K (possibly more if it's a good month!) records, which we do much manipulation through various queries and sql statement to get our end result. I create a new month each month because I am very afraid the database will become too large and cumbersome for the associates to use with 12 months of data in there (which creates another rather large problem... whining... ;-). I have an another system which gives me the history and yearly reports I need. Access is just the manipulation tool to give me the output I need to load the data into the other system.

 

[Remou]

You need only run it once, so run it when creating the new db. You will have to make a few changes to refer to the new db.

 

[Emmie1]

Thanks Remou, I had already started the tweaking process! It works great! You ROCK! Thanks sooooo much!