Current 事件

全部顯示

當(dāng)焦點(diǎn)移動(dòng)到一條記錄上，使它成為當(dāng)前的記錄，或當(dāng)窗體刷新或重新查詢時(shí)，Current 事件發(fā)生。

Private Sub object_Current()

Object    窗體的名稱。

說明

若要在此事件發(fā)生時(shí)運(yùn)行一個(gè)宏或事件過程，請將 OnCurrent 屬性設(shè)置為宏的名稱或 [事件過程]。

窗體打開時(shí)，以及只要焦點(diǎn)從一條記錄移動(dòng)到另一條記錄，Current 事件就會(huì)發(fā)生。在第一條或下一條記錄顯示之前，Microsoft Access 將運(yùn)行 Current 宏或事件過程。

在窗體的 Current 事件發(fā)生時(shí)運(yùn)行宏或事件過程，可以顯示消息，或者使當(dāng)前記錄與相關(guān)窗體中的記錄同步。例如，當(dāng)一個(gè)客戶記錄成為當(dāng)前記錄時(shí)，可以顯示客戶以前的某一訂單；當(dāng)供應(yīng)商記錄成為當(dāng)前記錄時(shí)，可以在“供應(yīng)商”窗體中顯示供應(yīng)商生產(chǎn)的產(chǎn)品。也可以基于當(dāng)前記錄執(zhí)行計(jì)算，或者更改窗體以響應(yīng)當(dāng)前記錄中的數(shù)據(jù)。

如果宏或事件過程為響應(yīng) Open 事件而運(yùn)行 GoToControl 或 GoToRecord 操作，或這些操作在 DoCmd 對(duì)象中的對(duì)應(yīng)方法，Current 事件便會(huì)發(fā)生。

在刷新窗體或重新查詢窗體的基礎(chǔ)表或查詢時(shí)，也會(huì)發(fā)生 Current 事件。例如，當(dāng)單擊“記錄”菜單上的“取消篩選/排序”，或者使用宏中的 Requery 操作，或 Visual Basic 代碼中的 Requery 方法時(shí)。

在第一次打開窗體時(shí)，下列事件將按以下的順序發(fā)生：

Open → Load → Resize → Activate → Current

示例

在下面的示例中，Current 事件過程會(huì)檢查名為“Discontinued”的選項(xiàng)按鈕的狀態(tài)，如果選擇了該按鈕，則示例會(huì)將“ProductName”字段的背景色設(shè)為紅色，以表示該產(chǎn)品已停止生產(chǎn)。

要嘗試該示例，請將下面的事件過程添加到一個(gè)包含選項(xiàng)（名為“Discontinued”）和文本框（名為“ProductName”）的窗體。

Private Sub Form_Current()

    If Me!Discontinued Then

        Me!ProductName.BackColor = 255

    EndIf

End Sub