画面のちらつきをやめるにはどうすればいいでしょうか

質問

アクセスです。

Sub test()

Set objAcc = CreateObject("Access.Application")
objAcc.OpenCurrentDatabase "C:\test.accdb", False
objAcc.Run "プロシージャー"
objAcc.Quit

Set objAcc = Nothing
End Sub

-------------------------
上記のプロシージャーを実行して、他のファイルのプロシージャーを実行しているのですが
毎回ファイルが立ち上がってしまいます。

画面のちらつきをやめるにはどうすればいいでしょうか？

DoCmd.SetWarnings False
と
DoCmd.SetWarnings True
を入れてみましたが、無意味でした。

objAcc.OpenCurrentDatabase
でアクセスが起動し、
objAcc.Quit
で閉じます。

エクセルで例えるのなら、
Application.ScreenUpdating = False
みたいなことがやりたいです。

回答No.2

NotFound404 · ベストアンサー

>objAcc.OpenCurrentDatabase "C:\test.accdb", False
OSが不明ですがWin7などではCドライブ直下はOSの聖域になっているので
当方では実行時エラー40351、アプリケーション定義またはオブジェクト定義のエラーになりました。

保存フォルダを適当に変えて
test.accdb に
Sub Beepuu()
beep
end sub
で
objAcc.Run "beepuu" で呼び出すと音で確認できましたよん。
ちらつくこともありませぬ。

お礼

ご回答ありがとうございます。

回答No.1

imogasi

http://okwave.jp/qa/q2229389.html
http://macoto.blog.so-net.ne.jp/2009-03-10
のような質問と回答があります。
＞Application.Echo False で停止
＞Application.Echo True で描画です
やってみてどうでしょうか。

お礼

ご回答ありがとうございます。