What keys are used during startup to gain access to design mode? 1

[EdStampf]

What are the keys used to start a MA access application to modify database properties, etc.&nbsp;&nbsp;The current start up is a MDB but goes directly to a limited menu mode.<br><br>Thanks

 

[kathryn]

I'm not sure if this is what you are looking for, but the following code is from the help file &quot;Startup Properties Example&quot;<br><br><br>****Begin Code*****<br>Sub SetStartupProperties()<br> ChangeProperty &quot;StartupForm&quot;, dbText, &quot;Customers&quot;<br> ChangeProperty &quot;StartupShowDBWindow&quot;, dbBoolean, False<br> ChangeProperty &quot;StartupShowStatusBar&quot;, dbBoolean, False<br> ChangeProperty &quot;AllowBuiltinToolbars&quot;, dbBoolean, False<br> ChangeProperty &quot;AllowFullMenus&quot;, dbBoolean, True<br> ChangeProperty &quot;AllowBreakIntoCode&quot;, dbBoolean, False<br> ChangeProperty &quot;AllowSpecialKeys&quot;, dbBoolean, True<br> ChangeProperty &quot;AllowBypassKey&quot;, dbBoolean, True<br><br>End Sub<br><br>Function ChangeProperty(strPropName As String, varPropType As Variant, varPropValue As Variant) As Integer<br> Dim dbs As Database, prp As Property<br> Const conPropNotFoundError = 3270<br><br> Set dbs = CurrentDb<br> On Error GoTo Change_Err<br> dbs.Properties(strPropName) = varPropValue<br> ChangeProperty = True<br><br>Change_Bye:<br> Exit Function<br><br>Change_Err:<br> If Err = conPropNotFoundError Then ' Property not found.<br> Set prp = dbs.CreateProperty(strPropName, _<br><br>varPropType, varPropValue)<br> dbs.Properties.Append prp<br> Resume Next<br> Else<br> ' Unknown error.<br> ChangeProperty = False<br> Resume Change_Bye<br> End If<br>End Function<br><br>*****End Code****<br><br>Good luck<br><br>Kathryn

 

[JimConrad]

Hold down the Shift key when opening the .mdb to stop any AutoExec or Startup code from executing. <p>Jim Conrad<br><a href=mailto:jconrad3@visteon.com>jconrad3@visteon.com</a><br><a href= > </a><br>