在Access状态栏显示信息及实时显示日期和时间

2002-12-09 01:47:00
大熊-Office交流网
原创
2852

问题(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状态栏上

分享