在Access状态栏显示信息及实时显示日期和时间
- 2002-12-09 01:47:00
- 大熊-Office交流网 原创
- 12603
问题(Access网友jhzlzc29):
怎样在状态栏上实时显示日期和时间,或者告诉小弟在窗体上用实时刷新的方法,怎么才能不影响程序运行
解决方法(Access网友大熊):
大熊
要使用SysCmd方法在Access状态栏显示内容
SysCmd 方法
请参阅 应用于 示例 特性
使用 SysCmd 方法可以:在状态栏中显示进度表或可选的指定文本,返回有关 Microsoft Access 及其关联文件的信息,或返回指定数据库对象的状态(表明对象是打开的、是新对象,还是已进行更改但没有保存)。Variant 型。
expression.SysCmd(Action, Argument2, Argument3)
expression 必需。返回“Applies To”列表中的一个对象的表达式。
Action 必需 AcSysCmdAction。下列固有常量之一,确定要执行操作的类型。下面的常量集应用于进度表。如果这些操作成功,则 SysCmd 方法返回 Null 值。否则,Microsoft Access 将产生运行时错误。
AcSysCmdAction 可以是下列 AcSysCmdAction 常量之一:
acSysCmdAccessDir。返回 Msaccess.exe 所在的目录名
acSysCmdAccessVer。返回 Microsoft Access 的版本号。
acSysCmdClearHelpTopic
acSysCmdClearStatus。下列常量提供有关数据库对象状态的信息:
acSysCmdGetObjectState。返回指定数据库对象的状态。使用该 action 值时,必须指定 argument1 和 argument2 参数。
acSysCmdGetWorkgroupFile。返回工作组文件 (System.mdw) 的路径。
acSysCmdIniFile。返回与 Microsoft Access 关联的 .ini 文件。
acSysCmdInitMeter。初始化进度表。使用该操作时,必须指定 argument1 和 argument2 参数。
acSysCmdProfile。在通过命令行打开 Microsoft Access 时,返回由用户指定的 /profile 设置。
acSysCmdRemoveMeter。删除进度表。
acSysCmdRuntime。如果正在运行 Microsoft Access 的运行时版本,返回 True (–1)。
acSysCmdSetStatus。将状态栏文本设置为 text 参数。
acSysCmdUpdateMeter。用指定值更新进度表。使用该操作时,必须指定 text 参数。
Argument2 可选 Variant 型。字符串表达式,表示状态栏中靠左显示的文本。当 action 参数是 acSysCmdInitMeter、acSysCmdUpdateMeter 或 acSysCmdSetStatus 时,该参数为必需项;该参数对其他 action 参数值无效。
注意 使用 acSysCmdGetObjectState 参数时,Excel 要求使用 Argument2 及下列固有常量之一:
acTable
acQuery
acForm
acReport
acMacro
acModule
acDataAccessPage
acDefault
acDiagram
acServerView
acStoreProcedure
该参数对于其他 action 参数值无效。
Argument3 可选 Variant 型。数值表达式,用于控制进度表的显示。当 action 参数是 acSysCmdSetStatus 时,该参数为必需项;该参数对其他 action 参数值无效。
注意 使用 acSysCmdGetObjectState 参数时,Excel 要求使用 Argument3。一个由 Argument2 指定类型的数据库对象的有效名称字符串表达式。该参数对于其他 action 参数值无效。
说明
例如,如果正建立一个创建新窗体的自定义向导,可以使用 SysCmd 方法来显示一个进度表,指出向导构建窗体时的进度。
通过使用各种进度表操作来调用 SysCmd 方法,可以在状态栏中显示一个已知持续时间或步骤数目的操作进度表,并且可以对其更新以表示操作的进度。
若要在状态栏中显示进度表,首先必须使用 acSysCmdInitMeter action 参数、text 和 value 参数来调用 SysCmd 方法。当 action 参数为 acSysCmdInitMeter 时,value 参数是进度表的最大值或 100%。
若要更新进度表以显示操作的进度,请用 acSysCmdUpdateMeter action 参数和 value 参数来调用 SysCmd 方法。当 action 参数是 acSysCmdUpdateMeter 时,SysCmd 方法使用 value 参数来计算进度表中显示的百分比。例如,如果设置最大值为 200,然后用 100 的值更新此表,则进度表只填满了一半。
也可以通过调用带有 acSysCmdSetStatus action 参数和 text 参数的 SysCmd 方法来更改状态栏中显示的文本。例如在排序期间,可能希望文本改为“正在排序...”。当排序完成时,还想通过删除该文本来重置状态栏。text 参数可以包含大约 80 个字符。因为状态栏文本使用成比例的字体来显示,可以显示的实际字符数目取决于 text 参数指定的所有字符的总宽度。
在增加状态栏文本宽度的同时,也减少了该进度表的长度。如果文本比状态栏还要长而且 action 参数是 acSysCmdInitMeter,则 SysCmd 方法将忽略该文本,在状态栏上无任何显示。如果文本比状态栏还要长而且 action 参数为 acSysCmdSetStatus,则 SysCmd 方法将截取文本以填充状态栏。
不能将状态栏文本设置为零长度字符串 (" ")。如果想从状态栏中删除现有的文本,请将 text 参数设置为一个空格。下面的示例说明了从状态栏中删除文本的方法:
varReturn = SysCmd(acSysCmdInitMeter, " ", 100)
varReturn = SysCmd(acSysCmdSetStatus, " ")
使用 acSysCmdSetStatus action 参数调用 SysCmd 方法来设置该文本时,如果进度表已经显示,则 SysCmd 方法将自动删除此表。
可以用其他操作调用 SysCmd 方法,以决定有关 Microsoft Access 的系统信息,这些信息包括 Microsoft Access 正在运行的版本号、是否是运行时版本、Microsof
zhengjialon
要实现日期和时间自动更新
要在计时器触发里里写 先计时器间隔写1-1000的任一数字。然后在Timer事件代码中定时调用上面的代码
将Date() Now() 最新日期和时间 显示在Access状态栏上
- office课程播放地址及课程明细
- Excel Word PPT Access VBA等Office技巧学习平台
- 将( .accdb) 文件格式数据库转换为早期版本(.mdb)的文件格式
- 将早期的数据库文件格式(.mdb)转换为 (.accdb) 文件格式
- KB5002984:配置 Jet Red Database Engine 数据库引擎和访问连接引擎以阻止对远程数据库的访问(remote table)
- Access 365 /Access 2019 数据库中哪些函数功能和属性被沙箱模式阻止(如未启动宏时)
- Access Runtime(运行时)最全的下载(2007 2010 2013 2016 2019 Access 365)
- Activex控件或Dll 在某些电脑无法正常注册的解决办法(regsvr32注册时卡住)
- office使用部分控件时提示“您没有使用该ActiveX控件许可的问题”的解决方法
- RTF文件(富文本格式)的一些解析
- Access树控件(treeview) 64位Office下出现横向滚动条不会自动定位的解决办法
- Access中国树控件 在win10电脑 节点行间距太小的解决办法
- EXCEL 2019 64位版(Office 2019 64位)早就支持64位Treeview 树控件 ListView列表等64位MSCOMMCTL.OCX控件下载
- VBA或VB6调用WebService(直接Post方式)并解析返回的XML
- 早期PB程序连接Sqlserver出现错误
- MMC 不能打开文件C:/Program Files/Microsoft SQL Server/80/Tools/Binn/SQL Server Enterprise Manager.MSC 可能是由于文件不存在,不是一个MMC控制台,或者用后来的MMC版
- sql server连接不了的解决办法
- localhost与127.0.0.1区别
- Roych的浅谈数据库开发系列(Sql Server)
- sqlserver 自动备份对备份目录没有存取权限的解决办法
- 安装Sql server 2005 express 和SQLServer2005 Express版企业管理器 SQLServer2005_SSMSEE
联系人: | 王先生 |
---|---|
Email: | 18449932@qq.com |
QQ: | 18449932 |
微博: | officecn01 |