Code Examples

Set Control Defaults

acCmdSetControlDefaults

Add the following code to a module. Now add a button to a toolbar and set its action to =SetDefault()

'***************** Code Start *******************
'This code was originally written by Terry Wickenden.
'It is not to be altered or distributed,
'except as part of an application.
'You are free to use it in any application,
'provided the copyright notice is left unchanged.

Function SetDefault()

  On Error GoTo ErrSetDefault

  DoCmd.RunCommand acCmdSetControlDefaults
  Exit Function

ErrSetDefault:

  Select Case Err
    Case 2046
      'Command not available
      MsgBox "Set default is not available at this time." &  _
        "Please ensure that you have selected a control.", & _
        vbCritical, "Not Available"
    Case Else
    MsgBox Err.Number & ":-" & vbCrLf & Err.Description
  End Select

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

© 1998 - 2011 Terry Wickenden TKW Design Site developed maintained and hosted by TKW Design. This site is best viewed at 1024 x 768. Optimised for Firefox.