access.application.syscmd方法的应用（备忘）

今天在做access模块时，想对access系统的statusbar进行修改，参看帮助文件后找到了application的syscmd方法。通过次方法实现了自定义状态栏文字以及自定义状态栏进度条。

语法可以自行查看access vba帮助文件。

我用到的几句如下：

application.syscmd(acsyscmdSetStatus,"自定义状态栏文字")

application.syscmd(acsyscmdinitmeter,acdatabaseproperties,100) ’设置状态栏上的进度条最大值。

application.syscmd(acsyscmdupdatemeter,90)                     '更新状态栏进度条显示进度

application.syscmd(acsyscmdremovemeter)                        ’移除进度条

application.syscmd(acsyscmdclearstatus)                        '移除状态栏上的自定义文字