access2010 Webクエリ デザインビュー

生意気にもmougに書き込んじゃったのでメモ

'参照設定：Microsoft Office 14.0 Library
Sub OpenWebQueryDesignView()
    DoCmd.OpenQuery "Webクエリ"
    CommandBars.FindControl(msoControlButton, 2952).Execute
End Sub

WebクエリをVBA(クライアント)でデザインビューモードで開く

また書いちゃったのでメモ

'参照設定：Microsoft Office 14.0 Library
Sub OpenWebQueryDesignView()
    DoCmd.OpenQuery "Webクエリ"
    CommandBars.ExecuteMso ("ViewsDesignView")
End Sub