Activate Event [Access 2003 VBA Language Reference]
The Activate event occurs when a form or report receives the focus and becomes the active window.
Private Sub object_Activate()
Object The name of a Form or Report.
Note The Activate event doesn't occur when a form receives focus back from a dialog box, popup, or another form.
To run a macro or event procedure when these events occur, set the OnActivate, or OnDeactivate property to the name of the macro or to [Event Procedure].
You can make a form or report active by opening it, clicking it or a control on it, or by using the SetFocus method in Visual Basic (for forms only).
The Activate event can occur only when a form or report is visible.
When you switch between two open forms, the Deactivate event occurs for the form being switched from, and the Activate event occurs for the form being switched to. If the forms contain no visible, enabled controls, the LostFocus event occurs for the first form before the Deactivate event, and the GotFocus event occurs for the second form after the Activate event.
When you first open a form, the following events occur in this order:
Open → Load → Resize → Activate → Current
When you close a form, the following events occur in this order:
Unload → Deactivate → Close
You can use the ShowToolbar action in an Activate or Deactivate macro to display or hide a custom toolbar. Use the Activate or Deactivate event to display or hide custom toolbars when you have more than one form loaded at a time. If you have only one form loaded at a time, you can use the Open and Close events.
If you use a Deactivate macro to hide a custom toolbar on a form, also make sure to hide the toolbar in response to the Unload event for the form, because the Deactivate event doesn't occur when a form is unloaded. Don't use the GotFocus or LostFocus event to display or hide a custom toolbar on a form, because these events aren't triggered on forms that contain enabled controls.
You can't use the CancelEvent action in an Activate or Deactivate macro.
The following example shows how to display a custom toolbar named CustomToolbar when a form receives the focus and to hide it when the focus moves to a different window.
Private Sub Form_Activate()
' Display custom toolbar.
DoCmd.ShowToolbar "CustomToolbar", acToolbarYes
Private Sub Form_Deactivate()
' Hide custom toolbar. DoCmd.ShowToolbar "CustomToolbar", acToolbarNo
End Sub Private