クエリの操作 |
選択クエリ及びアクションクエリの実行
使用例
'--------------------------------------------------------------------- '概要 クエリを開く ' 選択クエリ及びアクションクエリの実行 '--------------------------------------------------------------------- Sub クエリを開く() Const strQry As String = "選択クエリ名" ' データシートビューで開く ' 引数省略時、[acViewNormal][acEdit]は既定値として使われる DoCmd.OpenQuery strQry ' または ' DoCmd.OpenQuery strQry, , acEdit ' または ' DoCmd.OpenQuery strQry, acViewNormal ' ' ' 新規レコードの追加用として開く ' DoCmd.OpenQuery strQry, , acAdd ' ' 読み取り専用として開く ' DoCmd.OpenQuery strQry, , acReadOnly ' ' ' 印刷プレビューで開く ' DoCmd.OpenQuery strQry, acViewPreview ' ' 追加・更新・削除・新規テーブル作成の実行 ' DoCmd.OpenQuery "アクションクエリ名" End Sub
アクションクエリ実行時のメッセージを非表示にする
使用例
'--------------------------------------------------------------------- '概要 アクションクエリ実行時のメッセージを非表示にする@ ' オプションの設定 '--------------------------------------------------------------------- Sub アクションクエリ_オプションの設定() Application.SetOption "Confirm Action Queries", False End Sub '--------------------------------------------------------------------- '概要 アクションクエリ実行時のメッセージを非表示にするA '--------------------------------------------------------------------- Sub アクションクエリ() DoCmd.SetWarnings False 'システムメッセージをオフにする DoCmd.OpenQuery "アクションクエリ名" DoCmd.SetWarnings True 'システムメッセージをオンにする End Sub