Private Sub Command82_Click()
DoCmd.ShowToolbar "Menu Bar", acToolbarYes
DoCmd.ShowToolbar "Print Preview", acToolbarYes
DoCmd.ShowToolbar "Database", acToolbarYes
DoCmd.ShowToolbar "Form View", acToolbarYes
DoCmd.ShowToolbar "Form Design", acToolbarYes
End Sub
Private Sub Command83_Click()
DoCmd.ShowToolbar "Menu Bar", acToolbarNo
DoCmd.ShowToolbar "Print Preview", acToolbarNo
DoCmd.ShowToolbar "Database", acToolbarNo
DoCmd.ShowToolbar "Form View", acToolbarNo
DoCmd.ShowToolbar "Form Design", acToolbarNo
Copyright By AccessVision
|