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

目次に戻る 一覧に戻る 前ページへ 次ページへ