T'sWare スケジュール管理  フォームソースリスト  [Switchboard]フォーム
プロシージャ名  Form_Open
   
  Private Sub Form_Open(Cancel As Integer)
  ' Minimize the database window and initialize the form.
   
  On Error GoTo Form_Open_Err
   
      ' Minimize the database window.
      DoCmd.SelectObject acForm, "Switchboard", True
      DoCmd.Minimize
   
      ' Move to the switchboard page that is marked as the default.
      Me.Filter = "[ItemNumber] = 0 AND [Argument] = 'Default' "
      Me.FilterOn = True
      
  Form_Open_Exit:
      Exit Sub
   
  Form_Open_Err:
      MsgBox Err.Description
      Resume Form_Open_Exit
      
  End Sub