スキルアップ・問題解決なら、モーグにおまかせ！

●概要●
アクションクエリに相当する動作を、コード中のSQL文で実行します。

●サンプル●
（テーブル[商品]の10000円以上の商品だけをとりだして、新規テーブル[10000円以上の商品]を作成します）

Sub Sample()
    On Error GoTo myErr                        'エラーの場合、myErr:　へ
    DoCmd.RunSQL "SELECT 商品.name, 商品.price " _
        & "INTO 10000円以上の商品 " _
        & "FROM 商品 WHERE 商品.price>=10000"
    Exit Sub                                    '終了
myErr:
    MsgBox Err.Description                      'エラーメッセージ
End Sub

●補足●
アクションクエリを作成して、「DoCmd.OpenQuery　クエリ名」と記述しても同じことが可能です。