通过

Application.GetOption 方法 (Access)

  • 项目

GetOption 方法返回“访问选项”对话框中某个选项的当前值，可通过选择“Microsoft Office”按钮，然后选择“访问选项”获得。 Variant。

语法

表达式。GetOption (OptionName)

expression：表示 Application 对象的变量。

参数

名称 必需/可选 数据类型 说明
OptionName 必需 String 选项的名称。 有关选项名称参数字符串的列表，请参阅 设置 Visual Basic 中的选项。

返回值

Variant

备注

GetOption 和 SetOption 方法提供了一种从 Visual Basic 代码更改环境选项的方法。 利用这些方法，可以设置或读取“Access 选项”对话框中的任何可用选项。

可用的选项设置取决于要设置的选项的类型。 有三种常规类型的选项：

  • 可以通过选中或清除复选框进行设置的“是/否”选项。

  • 可以通过输入一个字符串或数值进行设置的选项。

  • 可以从列表框、组合框或选项组中进行选择的预定义选项。

对于用户通过选中或清除复选框设置的选项，如果选项设置为“是” (选中该复选框) 选中，GetOption 方法将返回 True (1) ;如果选项设置为“否 () 清除该复选框，则返回 False (0) 。 若要使用 SetOption 方法设置此类选项，请为设置参数指定 True 或 False ，如以下示例所示。

Application.SetOption "Show Status Bar", True

对于用户通过键入字符串或数值设置的选项， GetOption 方法在对话框中显示时返回设置。 以下示例返回一个包含左边距设置的字符串。

Dim varSetting As Variant 
varSetting = Application.GetOption("Left Margin")

要使用 SetOption 方法来设置这种类型的选项，可指定将在对话框中键入的字符串或数值。 以下示例将默认表单模板设置为 OrderTemplate。

Application.SetOption "Form Template", "OrderTemplate"

对于通过从列表框或组合框中选择其设置的选项，GetOption 方法返回与列表中该设置的位置相对应的一个数字。 从零开始编号，所以对第一项，GetOption 方法返回 0；对第二项，将返回 1；依此类推。 例如，如果“对象设计器”选项卡的“默认字段类型”设置为“自动编号”，则对列表中的第六项，GetOption 方法将返回 5。

要设置这种类型的选项，请用数字指定选项在列表中的位置，就像 SetOption 方法的 setting 参数一样。 以下示例将 “默认字段类型” 选项设置为“自动编号”。

Application.SetOption "Default Field Type", 5

其他选项是通过在 “访问 选项”对话框中选择选项组中的选项按钮来设置的。 在 Visual Basic 中，这些选项也可以通过指定特定选项在选项组中的位置进行设置。 该组中的第一个选项编号为 0，第二个为 1，依此类推。 例如，如果“对象设计器”选项卡上的“选择行为”选项设置为“部分封闭”，则 GetOption 方法返回零，如以下示例所示。

Debug.Print Application.GetOption("Selection Behavior")

如果要设置的选项是选项组中的成员，则只需指定该选项在组中的索引编号即可。 以下示例将 “选择行为” 设置为“完全封闭”。

Application.SetOption "Selection Behavior", 1

注意

退出 Microsoft Access 时，您就可以通过所有已更改的选项使用 SetOption 方法所有选项重都置为其原始设置。 您可能想要创建公用变量来保存原始设置的值。 可以在窗体的 Close 事件过程中或在用户必须运行的自定义退出过程中包含用于重置选项的代码，以便退出应用程序。

支持和反馈

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