|
【開発環境】
・Access2007
・WindowsXP
CreateObject("Access.Applicaction")を実行した後で、
砂時計にしていたマウスポインタが
デフォルトに戻ってしまうという現象があります。
-------------------------------------------------------------------
〜処理(省略)〜
Screen.MousePointer = ccHourglass
〜処理(省略)〜
Set acApp = CreateObject("Access.Application")
↑ここで砂時計がデフォルトに変わる
acApp.OpenCurrentDatabase "C:\hoge\hoge.accdb"
〜処理(省略)〜
Screen.MousePointer = ccDefault
-------------------------------------------------------------------
CreateObjectの後に、
Screen.MousePointer = ccHourglass
を挿入してもデフォルトのままなのです。。。
ご存知の方、回避方法をご教授ください。
|
|