Note that there are some explanatory texts on larger screens.

plurals
  1. POWhat are the Access startup properties that can be changed using VBA
    primarykey
    data
    text
    <p>I have an app that uses the following procedure to change some of the Current DB properties.</p> <pre><code>Public Sub SetStartupOptions(propname As String, propdb As Variant, prop As Variant) On Error GoTo Err_SetStartupOptions 'Set passed startup property. 'some of the startup properties you can use... ' "StartupShowDBWindow", DB_BOOLEAN, False ' "StartupShowStatusBar", DB_BOOLEAN, False ' "AllowBuiltinToolbars", DB_BOOLEAN, False ' "AllowFullMenus", DB_BOOLEAN, False ' "AllowBreakIntoCode", DB_BOOLEAN, False ' "AllowSpecialKeys", DB_BOOLEAN, False ' "AllowBypassKey", DB_BOOLEAN, False Dim dbs As Object Dim prp As Object Set dbs = CurrentDb If propname = "DBOpen" Then dbs.Properties("AllowBreakIntoCode") = prop dbs.Properties("AllowSpecialKeys") = prop dbs.Properties("AllowBypassKey") = prop dbs.Properties("AllowFullMenus") = prop dbs.Properties("StartUpShowDBWindow") = prop Else dbs.Properties(propname) = prop End If Set dbs = Nothing Set prp = Nothing Exit_SetStartupOptions: Exit Sub Err_SetStartupOptions: Select Case Err.Number Case 3270 Set prp = dbs.CreateProperty(propname, propdb, prop) Resume Next Case Else Dim ErrAns As Integer, ErrMsg As String If ErrChoice = vbYesNoCancel Then ErrMsg = Err.Description &amp; ": " &amp; Str(Err.Number) &amp; vbNewLine &amp; "Press 'Yes' to resume next;" &amp; vbCrLf &amp; _ "'No' to Exit Procedure." &amp; vbCrLf &amp; "or 'Cancel' to break into code" Else ErrMsg = Err.Description &amp; ": " &amp; Str(Err.Number) &amp; vbNewLine &amp; "Press 'Yes' to resume next;" &amp; vbCrLf &amp; _ "'No' to Exit Procedure." End If ErrAns = MsgBox(ErrMsg, _ vbCritical + vbQuestion + ErrChoice, "SetStartupOptions") If ErrAns = vbYes Then Resume Next ElseIf ErrAns = vbCancel Then On Error GoTo 0 Resume Else Resume Exit_SetStartupOptions End If End Select End Sub </code></pre> <p>procedure can be used to add and set values for DB.properties, These are the properties that are set in the Access options screen. I have a limited list of property names but, does anyone know where I can find the full list of properties that are recognized? ( i.e. the startup form name, start up ribbon name,... )</p>
    singulars
    1. This table or related slice is empty.
    1. This table or related slice is empty.
    plurals
    1. This table or related slice is empty.
    1. This table or related slice is empty.
 

Querying!

 
Guidance

SQuiL has stopped working due to an internal error.

If you are curious you may find further information in the browser console, which is accessible through the devtools (F12).

Reload