Form.Current 事件 (Access)

当焦点移到一条记录上，使它成为当前记录时发生，或者当刷新或重新查询窗体时发生。

语法

表达式。当前

expression：表示 Form 对象的变量。

备注

若要在该事件发生时运行宏或事件过程，请将 OnCurrent 属性为宏的名称或 [事件过程]。

窗体打开时，以及只要焦点从一条记录移动到另一条记录，此事件就会发生。 Microsoft Access 运行 当前 宏或事件过程的第一个或下一个记录之前显示。

通过在窗体的 Current 事件发生时运行宏或事件过程，可以在与当前记录相关的其他窗体中显示消息或同步记录。 例如，当客户记录成为当前记录时，可以显示客户的上一个订单。 当供应商记录成为当前记录时，可以在 “供应商 ”窗体中显示供应商生产的产品。 还可以根据当前记录执行计算，或更改窗体以响应当前记录中的数据。

如果宏或事件过程运行 GoToControl 或 GoToRecord 操作或 DoCmd 对象的相应方法以响应 Open 事件，则会发生 Current 事件。

刷新窗体或重新查询窗体的基础表或查询时，也会发生 Current 事件，例如，在“记录”菜单上选择“删除筛选器/排序”或在宏中使用“重新查询”操作时，或者在 Visual Basic 代码中使用 Requery 方法。

首次打开窗体时，下列事件将按如下顺序发生：

打开 → 负载 → 调整 → 激活 → 当前

示例

在以下示例中， Current 事件过程检查名为“ 已停止”的选项按钮的状态。 如果选中该按钮，则本示例将 “ProductName” 字段的背景色设置为红色，以指示该产品已停产。

若要尝试此示例，请将以下事件过程添加到包含名为 “已停止 ”的选项和名为 ProductName 的文本框的窗体中。

Private Sub Form_Current() 
 If Me!Discontinued Then 
 Me!ProductName.BackColor = 255 
 EndIf 
End Sub

支持和反馈

有关于 Office VBA 或本文档的疑问或反馈？ 请参阅 Office VBA 支持和反馈，获取有关如何接收支持和提供反馈的指南。