GoToControl 宏操作

注意: 我们希望能够尽快以你的语言为你提供最新的帮助内容。本页面是自动翻译的,可能包含语法错误或不准确之处。我们的目的是使此内容能对你有所帮助。可以在本页面底部告诉我们此信息是否对你有帮助吗?请在此处查看本文的英文版本以便参考。

您可以使用GoToControl宏操作在 Access 桌面数据库和 Access web 应用程序中的指定的字段或控件当前记录打开窗体、 窗体数据表、 表中移动焦点数据表或查询数据表。当您希望特定字段或控件具有焦点时,您可以使用此操作。然后比较或FindRecord操作可以使用此字段或控件。您也可以使用此操作根据特定条件的窗体中导航。例如,如果用户输入已婚控件中的无健康保险窗体,焦点可以自动跳过配偶姓名控件并将移到下一个控件。

设置

GoToControl操作具有以下参数。

操作参数

说明

控件名称

键入字段的名称或控件所需焦点的位置。 这是必需的参数。

注意: 输入字段或控件的名称仅在控件名称参数中,不是完全限定标识符,如 [Forms] ![产品] ![产品 ID] 如果您使用的 Access 桌面数据库。

备注

您无法使用GoToControl宏操作隐藏窗体上的控件向后移动焦点。

提示: 您可以使用 GoToControl 宏操作将移动到子窗体,这是一种控件。然后,可以使用 GoToRecord 操作将移动到子窗体中的特定记录。您也可以通过使用 GoToControl 操作第一次移动到子窗体,然后到子窗体上的控件移到子窗体上的控件。

若要在 Visual Basic for Applications (VBA) 模块中运行该宏,请使用DoCmd对象的GoToControl方法。您可以使用SetFocus方法将焦点移到窗体或任何子窗体上的控件或打开的表、 查询或窗体数据表中的字段。

示例

使用宏设置控件的值

下面的宏从供应商窗体上的按钮打开添加产品窗体。显示使用回声关闭OpenFormSetValueGoToControl操作。SetValue操作供应商窗体上将产品窗体上的供应商 ID 控件设置为当前供应商。然后GoToControl操作将焦点移到类别 ID 字段,您可以开始输入新的产品的数据。此宏应当附加到供应商窗体上的添加产品按钮。

操作

参数: 设置

批注

Echo

在回声

停止屏幕更新时运行宏。

关闭

对象类型窗体

对象名称: 产品列表

保存

关闭产品列表窗体。

OpenForm

窗体名称: 产品

视图窗体

数据模式添加

窗口模式普通

打开产品窗体。

SetValue

项目: [Forms] ![产品] ![供应商 Id]

表达式: 供应商 Id

供应商窗体上中设置为当前供应商的供应商 ID 控件。

GoToControl

控件名称: 类别 id

转到类别 ID 控件。

使用宏来验证数据

下面的验证宏检查邮政编码输入供应商窗体中。显示使用StopMacro消息框CancelEventGoToControl操作。条件表达式用于检查的国家/地区和窗体上的记录中输入的邮政编码。如果邮政编码不是正确的国家/地区的格式,宏将显示一个消息框,然后取消保存该记录。宏然后返回到邮政编码控件中,您可以在其中更正错误。此宏应当附加到供应商窗体的更新前属性。

条件

操作

参数: 设置

批注

如果 IsNull([CountryRegion])

StopMacro

如果国家/地区,无法验证邮政编码。

如果 [国家/地区] In ("法国"、"意大利","西班牙"),Len ([邮政编码]) <> 5

消息框

消息: 邮政编码必须是 5 个字符。

Beep:

类型信息

标题: 邮政编码错误

如果邮政编码不 5 个字符,则显示一条消息。

CancelEvent

取消事件。

GoToControl

控件名称: 邮政编码

如果 [国家/地区] 中 ("澳大利亚","新加坡"),Len ([邮政编码]) <> 4

消息框

消息: 邮政编码必须是 4 个字符。

Beep:

类型信息

标题: 邮政编码错误

如果邮政编码不 4 个字符,则显示一条消息。

CancelEvent

取消事件。

GoToControl

控件名称: 邮政编码

如果 ([国家/地区] ="加拿大") 和 ([邮政编码] Not Like"[A-Z] [0-9] [A-Z] [0-9][A-Z][0-9]")

消息框

消息: 邮政编码无效。加拿大代码示例: H1J 1c3

Beep:

类型信息

标题: 邮政编码错误

如果邮政编码不正确的加拿大,显示一条消息。(加拿大代码示例: H1J 1c3)

CancelEvent

取消事件。

扩展你的 Office 技能
了解培训
抢先获得新功能
加入 Office 预览体验计划

此信息是否有帮助?

谢谢您的反馈!

谢谢你的反馈! 可能需要转接到 Office 支持专员。

×