在Access狀態(tài)欄顯示信息及實(shí)時(shí)顯示日期和時(shí)間

問(wèn)題（Access網(wǎng)友jhzlzc29）：
 怎樣在狀態(tài)欄上實(shí)時(shí)顯示日期和時(shí)間，或者告訴小弟在窗體上用實(shí)時(shí)刷新的方法，怎么才能不影響程序運(yùn)行

解決方法（Access網(wǎng)友大熊）：
 
大熊

要使用SysCmd方法在Access狀態(tài)欄顯示內(nèi)容
SysCmd 方法
請(qǐng)參閱 應(yīng)用于 示例 特性 
使用 SysCmd 方法可以：在狀態(tài)欄中顯示進(jìn)度表或可選的指定文本，返回有關(guān) Microsoft Access 及其關(guān)聯(lián)文件的信息，或返回指定數(shù)據(jù)庫(kù)對(duì)象的狀態(tài)（表明對(duì)象是打開(kāi)的、是新對(duì)象，還是已進(jìn)行更改但沒(méi)有保存）。Variant 型。 

expression.SysCmd(Action, Argument2, Argument3)

expression  必需。返回“Applies To”列表中的一個(gè)對(duì)象的表達(dá)式。

Action  必需 AcSysCmdAction。下列固有常量之一，確定要執(zhí)行操作的類(lèi)型。下面的常量集應(yīng)用于進(jìn)度表。如果這些操作成功，則 SysCmd 方法返回 Null 值。否則，Microsoft Access 將產(chǎn)生運(yùn)行時(shí)錯(cuò)誤。

AcSysCmdAction 可以是下列 AcSysCmdAction 常量之一： 
acSysCmdAccessDir。返回 Msaccess.exe 所在的目錄名 
acSysCmdAccessVer。返回 Microsoft Access 的版本號(hào)。 
acSysCmdClearHelpTopic 
acSysCmdClearStatus。下列常量提供有關(guān)數(shù)據(jù)庫(kù)對(duì)象狀態(tài)的信息： 
acSysCmdGetObjectState。返回指定數(shù)據(jù)庫(kù)對(duì)象的狀態(tài)。使用該 action 值時(shí)，必須指定 argument1 和 argument2 參數(shù)。 
acSysCmdGetWorkgroupFile。返回工作組文件 (System.mdw) 的路徑。 
acSysCmdIniFile。返回與 Microsoft Access 關(guān)聯(lián)的 .ini 文件。 
acSysCmdInitMeter。初始化進(jìn)度表。使用該操作時(shí)，必須指定 argument1 和 argument2 參數(shù)。 
acSysCmdProfile。在通過(guò)命令行打開(kāi) Microsoft Access 時(shí)，返回由用戶(hù)指定的 /profile 設(shè)置。 
acSysCmdRemoveMeter。刪除進(jìn)度表。 
acSysCmdRuntime。如果正在運(yùn)行 Microsoft Access 的運(yùn)行時(shí)版本，返回 True (–1)。 
acSysCmdSetStatus。將狀態(tài)欄文本設(shè)置為 text 參數(shù)。 
acSysCmdUpdateMeter。用指定值更新進(jìn)度表。使用該操作時(shí)，必須指定 text 參數(shù)。 

Argument2  可選 Variant 型。字符串表達(dá)式，表示狀態(tài)欄中靠左顯示的文本。當(dāng) action 參數(shù)是 acSysCmdInitMeter、acSysCmdUpdateMeter 或 acSysCmdSetStatus 時(shí)，該參數(shù)為必需項(xiàng)；該參數(shù)對(duì)其他 action 參數(shù)值無(wú)效。

注意  使用 acSysCmdGetObjectState 參數(shù)時(shí)，Excel 要求使用 Argument2 及下列固有常量之一：

acTable 
acQuery 
acForm 
acReport

acMacro

acModule

acDataAccessPage

acDefault

acDiagram

acServerView

acStoreProcedure

該參數(shù)對(duì)于其他 action 參數(shù)值無(wú)效。
 

Argument3  可選 Variant 型。數(shù)值表達(dá)式，用于控制進(jìn)度表的顯示。當(dāng) action 參數(shù)是 acSysCmdSetStatus 時(shí)，該參數(shù)為必需項(xiàng)；該參數(shù)對(duì)其他 action 參數(shù)值無(wú)效。

注意  使用 acSysCmdGetObjectState 參數(shù)時(shí)，Excel 要求使用 Argument3。一個(gè)由 Argument2 指定類(lèi)型的數(shù)據(jù)庫(kù)對(duì)象的有效名稱(chēng)字符串表達(dá)式。該參數(shù)對(duì)于其他 action 參數(shù)值無(wú)效。

說(shuō)明
例如，如果正建立一個(gè)創(chuàng)建新窗體的自定義向?qū)?，可以使?nbsp;SysCmd 方法來(lái)顯示一個(gè)進(jìn)度表，指出向?qū)?gòu)建窗體時(shí)的進(jìn)度。

通過(guò)使用各種進(jìn)度表操作來(lái)調(diào)用 SysCmd 方法，可以在狀態(tài)欄中顯示一個(gè)已知持續(xù)時(shí)間或步驟數(shù)目的操作進(jìn)度表，并且可以對(duì)其更新以表示操作的進(jìn)度。

若要在狀態(tài)欄中顯示進(jìn)度表，首先必須使用 acSysCmdInitMeter action 參數(shù)、text 和 value 參數(shù)來(lái)調(diào)用 SysCmd 方法。當(dāng) action 參數(shù)為 acSysCmdInitMeter 時(shí)，value 參數(shù)是進(jìn)度表的最大值或 100%。

若要更新進(jìn)度表以顯示操作的進(jìn)度，請(qǐng)用 acSysCmdUpdateMeter action 參數(shù)和 value 參數(shù)來(lái)調(diào)用 SysCmd 方法。當(dāng) action 參數(shù)是 acSysCmdUpdateMeter 時(shí)，SysCmd 方法使用 value 參數(shù)來(lái)計(jì)算進(jìn)度表中顯示的百分比。例如，如果設(shè)置最大值為 200，然后用 100 的值更新此表，則進(jìn)度表只填滿(mǎn)了一半。

也可以通過(guò)調(diào)用帶有 acSysCmdSetStatus action 參數(shù)和 text 參數(shù)的 SysCmd 方法來(lái)更改狀態(tài)欄中顯示的文本。例如在排序期間，可能希望文本改為“正在排序...”。當(dāng)排序完成時(shí)，還想通過(guò)刪除該文本來(lái)重置狀態(tài)欄。text 參數(shù)可以包含大約 80 個(gè)字符。因?yàn)闋顟B(tài)欄文本使用成比例的字體來(lái)顯示，可以顯示的實(shí)際字符數(shù)目取決于 text 參數(shù)指定的所有字符的總寬度。

在增加狀態(tài)欄文本寬度的同時(shí)，也減少了該進(jìn)度表的長(zhǎng)度。如果文本比狀態(tài)欄還要長(zhǎng)而且 action 參數(shù)是 acSysCmdInitMeter，則 SysCmd 方法將忽略該文本，在狀態(tài)欄上無(wú)任何顯示。如果文本比狀態(tài)欄還要長(zhǎng)而且 action 參數(shù)為 acSysCmdSetStatus，則 SysCmd 方法將截取文本以填充狀態(tài)欄。

不能將狀態(tài)欄文本設(shè)置為零長(zhǎng)度字符串 (" ")。如果想從狀態(tài)欄中刪除現(xiàn)有的文本，請(qǐng)將 text 參數(shù)設(shè)置為一個(gè)空格。下面的示例說(shuō)明了從狀態(tài)欄中刪除文本的方法：

varReturn = SysCmd(acSysCmdInitMeter, " ", 100)
varReturn = SysCmd(acSysCmdSetStatus, " ")
使用 acSysCmdSetStatus action 參數(shù)調(diào)用 SysCmd 方法來(lái)設(shè)置該文本時(shí)，如果進(jìn)度表已經(jīng)顯示，則 SysCmd 方法將自動(dòng)刪除此表。

可以用其他操作調(diào)用 SysCmd 方法，以決定有關(guān) Microsoft Access 的系統(tǒng)信息，這些信息包括 Microsoft Access 正在運(yùn)行的版本號(hào)、是否是運(yùn)行時(shí)版本、Microsof

zhengjialon

要實(shí)現(xiàn)日期和時(shí)間自動(dòng)更新
要在計(jì)時(shí)器觸發(fā)里里寫(xiě)  先計(jì)時(shí)器間隔寫(xiě)1-1000的任一數(shù)字。然后在Timer事件代碼中定時(shí)調(diào)用上面的代碼

將Date() Now()  最新日期和時(shí)間 顯示在Access狀態(tài)欄上