[Access vba] 複数クエリの連続実行: あした

2020年01月20日

[Access vba] 複数クエリの連続実行

複数クエリの連続実行



Public Function AutoExecProc()
    
    On Error GoTo ErrProc

    DoCmd.SetWarnings 0

    With CurrentDb
        .Execute "Ini1000_ToolUpdateLog_WK"
        .Execute "Ini1700_UplogConsolidation"
        .Execute "Ini2000_ToolUpdateLog"
        .Execute "Ini2500_ToolUpdateLog_reset"
        .Execute "Ini9000_unyoPC_del"
    End With

    With DoCmd
        .OpenQuery "使用者状況", , acReadOnly
        .OpenQuery "更新状況_U", , acReadOnly
        .OpenQuery "起動回数", , acReadOnly
        .OpenQuery "使用状況", , acReadOnly
    End With

Proc_EXIT:
    DoCmd.SetWarnings 1
    Exit Function
ErrProc:
    MsgBox Err.Number & " " & Err.Description
    Resume Proc_EXIT
End Function

ここでWithステートメントを使っているのは、コーディングをスッキリさせるためです。
（このケースでWithステートメント使っても使わなくてもスピードに大差ありません。）

【このカテゴリーの最新記事】

posted by naka at 17:05 | TrackBack(0) | Access vba

この記事へのトラックバックURL
https://fanblogs.jp/tb/9573173
※ブログオーナーが承認したトラックバックのみ表示されます。

この記事へのトラックバック