SetOption 方法
内容
expression.SetOption(OptionName, Setting)
expression 必需。返回“应用于”列表中的一个对象的表达式。
OptionName 必需 String 型。选项的名称。有关 optionname 参数字符串的列表，请参阅从 Visual Basic 中设置选项。
Setting 必需 Variant 型。 与选项设置对应的 Variant 值。setting 参数的值取决于指定选项的可能设置。
说明
SetOption 方法提供一种从 Visual Basic 代码更改环境选项的途径。利用这种方法，可以设置或读取“选项”对话框中除“模块”选项卡上选项之外的任何可用的选项设置。
可用的选项设置取决于要设置的选项的类型。有三种常规类型的选项：
| ? | 能通过选中或清除复选框来进行设置的 Yes/No 选项。 |
| ? | 能通过输入一个字符串或数值来进行设置的选项。 |
对于可通过选中或清除复选框、使用SetOption 方法进行设置的选项，请按如下示例所示为 setting 参数指定 True 或 False：
Application.SetOption "Show Status Bar", True
若要用 SetOption 方法设置这种类型的选项，请指定将在对话框中键入的字符串或数值。下面的示例将默认的窗体模板设为“订单模板”:
Application.SetOption "Form Template", "OrderTemplate"
对于通过在列表框或组合框中进行选择的选项，与使用 SetOption 方法的 setting 参数一样，请在列表内指定选项的数字位置。下面的示例将“默认字段类型”选项设为“自动编号”：
Application.SetOption "Default Field Type", 5
如果要设置的选项是选项组中的成员，则只需指定该选项在组中的索引编号即可。下面的示例将 Selection Behavior 设为“全部包含”：
Application.SetOption "Selection Behavior", 1
注释
| ? | 使用 SetOption 方法设置“选项”对话框中的选项时，不必指定选项所在的选项卡。 |
| ? | 不能使用 SetOption 方法来读取或设置“选项”对话框中“模块”选项卡上的任何选项。 |
| ? | 如果数据库可以运行在另一种语言（非创建时使用的语言）的 Microsoft Access 版本中，那么，必须使用英语为 SetOption 方法提供参数。 |
当退出 Microsoft Access 时，可以将所有选项重新设置为其初始值，方法是对所有更改了的选项使用 SetOption 方法。首先创建公用变量来保存初始设置的值，然后在窗体的 Close 事件过程或自定义退出过程（用户要退出应用程序必须运行的过程）中包括用于重新设置选项的代码。