用代码设置access选项卡

代码为
Application.SetOption ”选项名“，选项值
Application.SetOption "Show Status Bar", False
Application.SetOption "Show Startup Dialog Box", False

设置确认记录更改，删除，执行操作查询
Public Sub kkkk()
Application.SetOption "Show Startup Dialog Box", False' 不显示启动任务窗口
Application.SetOption "Confirm Record Changes", False '确认，记录更改
Application.SetOption "Confirm Document Deletions", False '确认，删除文档       
Application.SetOption "Confirm Action Queries", False '确认，操作查询
End Sub
-------------------------------------------------------------------------
ChangeProperty "StartupForm", DB_Text, "Customers"
    '显示数据库窗口
    ChangeProperty "StartupShowDBWindow", DB_Boolean, False
    '显示状态栏
    ChangeProperty "StartupShowStatusBar", DB_Boolean, False
    '允许内置工具栏
    ChangeProperty "AllowBuiltinToolbars", DB_Boolean, False
    '允许全部菜单
    ChangeProperty "AllowFullMenus", DB_Boolean, False
    '指定模块在发生运行错误之后，用户是否可以查看 Visual Basic 代码。
    ChangeProperty "AllowBreakIntoCode", DB_Boolean, False
    '指定是否启用或禁用特殊组合键（Alt+F1 (F11)、CTRL+F11、CTRL+BREAK 及 CTRL+G ) 。例如，可以设置 AllowSpecialKeys 属性以阻止用户通过按 F11 键显示“数据库”窗口；按 Ctrl+Break 组合键在 Visual Basic 模块 中进入中断模式；或者按 Ctrl+G 组合键显示“立即”窗口。
    ChangeProperty "AllowSpecialKeys", DB_Boolean, False
    '用 AllowBypassKey 属性可指定是否允许使用 Shift 键来忽略启动属性和 AutoExec 宏
    ChangeProperty "AllowBypassKey", DB_Boolean, False
*********************************************************************************
　　我们做好程序分发给他人使用时，可能别人的ACCESS系统环境跟你的不一样，并会导致很多麻烦问题，最明显的就是：当你在程序中执行某个操作查询(更新、删除、追加、生成表)时,会弹出一些恼人的提示信息让你确认。
   其实，我们完全可以在代码中对ACCESS的运行环境进行设置，语法为
　　SetOption(OptionName, Setting)
-----------------------------------------------------------------------------　　
从 Visual Basic 中设置选项
使用 SetOption 和 GetOption 方法可以从代码中设置和返回“选项”对话框中的选项值。若要查看“选项”对话框，可单击“工具”菜单上的“选项”。
下表列出所有可以由代码设置或返回的选项名称，以及它们在“选项”对话框中所处的选项卡，后面是必须传递给 SetOption 或 GetOption 方法的相应的字符串参数。
*************************************
*（前面为中文名字，后面为英文名子） *
*************************************

“视图”选项卡
选项文本和对应的字符串参数
显示，状态栏        Show Status Bar
显示，启动任务窗格        Show Startup Dialog Box
显示，新建对象快捷方式        Show New Object Shortcuts
显示，隐藏的对象        Show Hidden Objects
显示，系统对象        Show System Objects
显示，任务栏中的窗口        ShowWindowsInTaskbar
在宏设计中显示，名称列        Show Macro Names Column
在宏设计中显示，条件列        Show Conditions Column
数据库窗口中的鼠标动作        Database Explorer Click Behavior

“常规”选项卡
选项文本        字符串参数
打印边距，左边距        Left Margin
打印边距，右边距        Right Margin
打印边距，上边距        Top Margin
打印边距，底边距        Bottom Margin
使用四位数年份格式，仅这一个数据库        Four-Digit Year Formatting
使用四位数年份格式，所有数据库        Four-Digit Year Formatting All Databases
名称自动更正，跟踪名称自动更正信息        Track Name AutoCorrect Info
名称自动更正，执行名称自动更正        Perform Name AutoCorrect
名称自动更正，记录名称自动更正的更改情况        Log Name AutoCorrect Changes
最近使用的文件列表        Enable MRU File List
最近使用的文件列表，（文件个数）        Size of MRU File List
提供有声音的反馈        Provide Feedback with Sound
关闭时压缩        Auto Compact
新建数据库排序次序        New Database Sort order
删除该文件中的个人信息        Remove Personal Information
默认数据库文件夹        Default Database Directory

“编辑/查找”选项卡
选项文本        字符串参数
默认查找/替换行为        Default Find/Replace Behavior
确认，记录更改        Confirm Record Changes
确认，删除文档        Confirm Document Deletions
确认，操作查询        Confirm Action Queries
显示值列表于，局部索引字段        Show Values in Indexed
显示值列表于，局部非索引字段        Show Values in Non-Indexed
显示值列表于，ODBC 字段        Show Values in Remote
显示值列表于，本地快照中的记录        Show Values in Snapshot
显示值列表于，服务器中的记录        Show Values in Server
读取记录超过该数目时不再显示列表        Show Values Limit

“数据表”选项卡
选项文本        字符串参数
默认颜色，字体        Default Font Color
默认颜色，背景        Default Background Color
默认颜色，网格线        Default Gridlines Color
默认网格线显示方式，水平方向        Default Gridlines Horizontal
默认网格线显示方式，垂直方向        Default Gridlines Vertical
默认列宽        Default Column Width
默认字体，字体        Default Font Name
默认字体，粗细        Default Font Weight
默认字体，字号        Default Font Size
默认字体，下划线        Default Font Underline
默认字体，倾斜        Default Font Italic
默认单元格效果        Default Cell Effect
动画显示        Show Animations

“键盘”选项卡
选项文本        字符串参数
按 Enter 键后光标移动方式        Move After Enter
进入字段时的行为        Behavior Entering Field
箭头键行为        Arrow Key Behavior
光标停在第一个/最后一个字段上        Cursor Stops at First/Last Field
自动提交        Ime Autocommit
数据表输入法控件        Datasheet Ime Control

“表/查询”选项卡
选项文本        字符串参数
表设计，默认字段大小，文本        Default Text Field Size
表设计，默认字段大小，数字        Default Number Field Size
表设计，默认字段类型        Default Field Type
表设计，在导入/创建时自动索引        AutoIndex on Import/Create
查询设计，显示表名称        Show Table Names
查询设计，输出所有字段        Output All Fields
查询设计，启用自动联接功能        Enable AutoJoin
查询设计，运行权限        Run Permissions
查询设计，SQL Server 兼容语法 (ANSI 92)，当前数据库        ANSI Query Mode
查询设计，SQL Server 兼容语法 (ANSI 92)，作为新数据库的默认设置        ANSI Query Mode Default

“窗体/报表”选项卡
选项文本        字符串参数
选定行为        Selection Behavior
窗体模板        Form Template
报表模板        Report Template
始终使用事件过程        Always Use Event Procedures

“高级”选项卡
选项文本        字符串参数
DDE 操作，忽略 DDE 请求        Ignore DDE Requests
DDE 操作，启动 DDE 刷新功能        Enable DDE Refresh
默认文件格式        Default File Format
客户服务器设置，默认的最大记录数        Row Limit
默认打开模式        Default Open Mode for Databases
命令行参数        Command-Line Arguments
OLE/DDE 超时        OLE/DDE Timeout (sec)
默认记录锁定        Default Record Locking
刷新间隔        Refresh Interval (sec)
更新重试的次数        Number of Update Retries
ODBC 刷新间隔        ODBC Refresh Interval (sec)
更新重试时间间隔        Update Retry Interval (msec)
使用记录级锁定打开数据库        Use Row Level Locking
保存登录和密码        Save Login and Password

“页”选项卡
选项文本        字符串参数
默认设计器属性，节缩进        Section Indent
默认设计器属性，可选行颜色        Alternate Row Color
默认设计器属性，标题节样式        Caption Section Style
默认设计器属性，页脚节样式        Footer Section Style
默认数据库/项目属性，使用默认页文件夹        Use Default Page Folder
默认数据库/项目属性，默认页文件夹        Default Page Folder
默认数据库/项目属性，使用默认的连接文件        Use Default Connection File
默认数据库/项目属性，默认连接文件        Default Connection File

“拼写检查”选项卡

选项文本        字符串参数
词典语言        Spelling dictionary language
将词添至        Spelling add words to
仅根据主词典提供建议        Spelling suggest from main dictionary only
忽略全部大写的单词        Spelling ignore words in UPPERCASE
忽略带数字的单词        Spelling ignore words with number
忽略 Internet 和文件地址        Spelling ignore Internet and file addresses
语言详细信息，德语：使用后期修订规则        Spelling use German post-reform rules
语言详细信息，朝鲜语：合并助动词/形容词        Spelling combine aux verb/adj
语言详细信息，朝鲜语：使用自动更改列表        Spelling use auto-change list
语言详细信息，朝鲜语：处理复合名词        Spelling process compound nouns
语言详细信息，希伯来语模式        Spelling Hebrew modes
语言详细信息，阿拉伯语模式        Spelling Arabic modes

注意   如果正在开发一个数据库应用程序、加载项、类库数据库或引用数据库，那么在完成代码的调试后，应确保“错误捕获”选项设为 2（“无法处理错误时中断”）。
作为 setting 参数传递给 SetOption 方法的值取决于正在设置的选项类型。下表提供了设置选项的一些指导。
如果选项是        那么 setting 参数为
文本框        字符串
复选框        布尔值：True (-1) 或 False (0)
选项组中的选项按钮或者组合框或列表框中的选项        整型值，对应于选项在选项组或列表中的位置（从零 [0] 开始）