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

问题(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