Open Options Dialog

This example opens the Options dialog box (available by clicking Options on the Tools menu). The function returns true if the Options dialog opens else it returns false. To use the code, paste the code into a module and then test the result of the function in the routine where you want the open the Options dialog.

'***************** Code Start *******************
'Code from Microsoft Access Help

Function OpenOptionsDialog() As Boolean
   On Error GoTo Error_OpenOptionsDialog
   DoCmd.RunCommand acCmdOptions
   OpenOptionsDialog = True
Exit_OpenOptionsDialog:
   Exit Function
Error_OpenOptionsDialog:
   MsgBox Err & ": " & Err.Description
   OpenOptionsDialog = False
   Resume Exit_OpenOptionsDialog
End Function

'****************** Code End ********************

Return to Example List