Set start up properties from vba?

[DRH192]

is it possible to set the name of the start up form from vba?

many thanks

 

[Remou]

Some notes.

http://msdn.microsoft.com/library/default.asp?url=/library/en-us/dnacc2k/html/acstartupoptions.asp

Public Sub SetStartForm()
   Dim dbs As Object
   Dim prp As Object
   
   Const PROPERTY_NOT_FOUND As Integer = 3270
   Const TEXT_TYPE As Integer = 10
   ' Equivalent to DAO dbText data type.

   On Error GoTo ErrorHandler

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

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, "frmForm")
      dbs.Properties.Append prp
      Resume Next
   Else
      Resume ExitLine
   End If

End Sub