VBA代码显示和隐藏Access状态栏及显示日期时间进度条等

2017-07-11 08:38:00
zstmtony
原创
1125

问题(Access QQ群网友问题):

如何使用VBA代码显示和隐藏Access状态栏


解决办法

1.显示Access状态栏

   Application.SetOption "Show Status Bar", True


2.隐藏Access状态栏

   Application.SetOption "Show Status Bar", False


Access状态栏里显示 日期,时间等

varReturn =SysCmd(acSysCmdSetStatus, format(Date(),"YYYY/MM/DD")

varReturn =SysCmd(acSysCmdSetStatus, format(Now(),"YYYY/MM/DD HH:NN:SS")


在Access状态栏里显示进度条

varReturn = SysCmd(acSysCmdInitMeter, " ", 100)


Access状态栏相关技巧:

syscmd的相关技巧:http://www.office-cn.net/access-function/46.html

分享