【转载 / 资料】从 Visual Basic 中设置 Access 选项

LucasLynn

我们可以通过Application.SetOption方法来设置Access中几乎所有的应用程序选项。微软文档中以下页面详细描述了这个方法的参数，微软为了便于中国用户记忆参数值，把参数做了中文名映射，文档中使用的参数名均为中文映射，这一举动为中国用户带来了方便，也带来了麻烦，如果你一个个试过用这些中文字符串来进行设定，你会发现有很多都是不能使用的，文档中多个空格，少个空格都会造成程序无法识别参数，因此我找到了一份英文版的文档，其中使用的都是参数的英文原值，供大家参考。


如果你安装了Office 2002或2003，那么点击以下链接可以直接打开中文版帮助的这一页面。


[url=mkMSITStore:C:\Program%20Files\Microsoft%20Office\OFFICE11\2052\vbaac10.chm::/html/achowSettingOptionsFromVisualBasic.htm]mkMSITStore:C:\Program%20Files\Microsoft%20Office\OFFICE11\2052\vbaac10.chm::/html/achowSettingOptionsFromVisualBasic.htm[/url]


英文文档：


View Tab











Option text


String argument





Show, Status bar


Show Status Bar





Show, Startup Task Pane


Show Startup Dialog Box





Show, New object shortcuts


Show New Object Shortcuts





Show, Hidden objects


Show Hidden Objects





Show, System objects


Show System Objects





Show, Windows in Taskbar


ShowWindowsInTaskbar





Show in Macro Design, Names column


Show Macro Names Column





Show in Macro Design, Conditions column


Show Conditions Column





Click options in database window


Database Explorer Click Behavior


General Tab











Option text


String argument





Print margins, Left margin


Left Margin





Print margins, Right margin


Right Margin





Print margins, Top margin


Top Margin





Print margins, Bottom margin


Bottom Margin





Use four-year digit year formatting, This database


Four-Digit Year Formatting





Use four-year digit year formatting, All databases


Four-Digit Year Formatting All Databases





Name AutoCorrect, Track name AutoCorrect info


Track Name AutoCorrect Info





Name AutoCorrect, Perform name AutoCorrect


Perform Name AutoCorrect





Name AutoCorrect, Log name AutoCorrect changes


Log Name AutoCorrect Changes





Recently used file list


Enable MRU File List





Recently used file list, (number of files)


Size of MRU File List





Provide feedback with sound


Provide Feedback with Sound





Compact on Close


Auto Compact





New database sort order


New Database Sort Order





Remove personal information from this file


Remove Personal Information





Default database folder


Default Database Directory


Edit/Find Tab











Option text


String argument





Default findeplace behavior


Default Findeplace Behavior





Confirm, Record changes


Confirm Record Changes





Confirm, Document deletions


Confirm Document Deletions





Confirm, Action queries


Confirm Action Queries





Show list of values in, Local indexed fields


Show Values in Indexed





Show list of values in, Local nonindexed fields


Show Values in Non-Indexed





<T

Grant

奇怪我怎么打不开

LucasLynn

以下是引用Grant在2005-8-25 0:59:00的发言：

奇怪我怎么打不开

复制地址到浏览器栏

secowu

SetOption 方法

参阅应用于示例特性

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 事件过程或自定义退出过程（用户要退出应用程序必须运行的过程）中包括用于重新设置选项的代码。

[此贴子已经被作者于2005-8-25 8:26:38编辑过]

LucasLynn

以下是引用secowu在2005-8-25 8:24:00的发言：



SetOption 方法

参阅应用于示例特性

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 事件过程或自定义退出过程（用户要退出应用程序必须运行的过程）中包括用于重新设置选项的代码。

你试试这个：

Application.SetOption "自动压缩" True

secowu

少了个,Application.SetOption "自动压缩", True这样，可以运行了，所以，一定情况下，用SetOption 的方法可以省下很多自己编写代码的麻烦。。。。

chaojianan

谢谢分享。