アクセルデータシステム | MS Access（アクセス）データベースシステムの受託開発

クエリの操作

選択クエリ及びアクションクエリの実行

使用例

'---------------------------------------------------------------------
'概要   クエリを開く
'       選択クエリ及びアクションクエリの実行
'---------------------------------------------------------------------
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

>top

アクションクエリ実行時のメッセージを非表示にする

使用例

'---------------------------------------------------------------------
'概要   アクションクエリ実行時のメッセージを非表示にする�@
'       オプションの設定
'---------------------------------------------------------------------
Sub アクションクエリ_オプションの設定()
  
    Application.SetOption "Confirm Action Queries", False

End Sub


'---------------------------------------------------------------------
'概要   アクションクエリ実行時のメッセージを非表示にする�A
'---------------------------------------------------------------------
Sub アクションクエリ()
  
  DoCmd.SetWarnings False   'システムメッセージをオフにする

  DoCmd.OpenQuery "アクションクエリ名"
  
  DoCmd.SetWarnings True    'システムメッセージをオンにする
End Sub

>top