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 字段,您可以开始输入新的产品数据。此宏应当附加到供应商窗体上的添加产品按钮。

操作

参数 ︰ 设置

注释

回声

在回声

停止屏幕更新时运行宏。

关闭

对象类型窗体

对象名称︰ 产品列表

保存

关闭产品列表窗体。

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

取消事件。

注意: 机器翻译免责声明:本文是由无人工介入的计算机系统翻译的。Microsoft 提供机器翻译是为了帮助非英语国家/地区用户方便阅读有关 Microsoft 产品、服务和技术的内容。由于机器翻译的原因,本文可能包含词汇、语法或文法方面的错误。

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

此信息是否有帮助?

谢谢您的反馈!

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

×