设为首页收藏本站Access中国

Office中国论坛/Access中国论坛

 找回密码
 注册

QQ登录

只需一步,快速开始

返回列表 发新帖
查看: 1555|回复: 2
打印 上一主题 下一主题

[其它] 如何用VBA代码设置“工具”--“选项”--“编辑/查找”的参数

[复制链接]
跳转到指定楼层
1#
发表于 2004-9-24 19:50:00 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式
如何用VBA代码设置“工具”--“选项”--“编辑/查找”里有:

“记录更改”、“删除文档”、“操作查询”,全部都不选中。

请问如何用代码编写?
分享到:  QQ好友和群QQ好友和群 QQ空间QQ空间 腾讯微博腾讯微博 腾讯朋友腾讯朋友
收藏收藏 分享分享 分享淘帖 订阅订阅
2#
发表于 2004-9-24 19:57:00 | 只看该作者
请根据需要选择使用。With Application

            '禁止显示系统启动时的文件确认对话框。

            .SetOption "显示“启动”对话框", False

   

            '禁止显示系统对象。

            .SetOption "Show Status Bar", True

            .SetOption "确认文档删除", False

            .SetOption "确认记录更改", False

            .SetOption "确认操作查询", True

   

            '取消对数据库列表的限制。

            .SetOption "Show Values Limit", 0

   

            '显示为长日期。

            .SetOption "Four-Digit Year Formatting", True

   

            '退出时自动压缩数据库。

            .SetOption "Auto Compact", True

   

            '在任务栏中显示窗口

            '.SetOption "在任务栏中显示窗口", False

            

            '禁止显示隐藏的对象。

            .SetOption "Show Hidden Objects", False

            .SetOption "Show System Objects", False

            .SetOption "显示新建对象快捷方式", False

            '显示新建对象快捷方式

            

            '设置系统标题。

            .SetOption "roject Name", "远程数据管理"

            '"erform Name AutoCorrect"

            '"Log Name AutoCorrect Changes"

            

            '设定设计数据库时字段的默认类型。

            '"Default Field Type"

            'Form Template

            'Selection Behavior

            '设定打印边距。

            '"Left Margin"

            

            UpdateKey HKEY_CURRENT_USER, _

                "MyAccess\CIS\vbaSys", "Installed", 1

        End With
3#
 楼主| 发表于 2004-9-24 21:01:00 | 只看该作者
太全面了!谢谢!
您需要登录后才可以回帖 登录 | 注册

本版积分规则

QQ|站长邮箱|小黑屋|手机版|Office中国/Access中国 ( 粤ICP备10043721号-1 )  

GMT+8, 2024-11-15 01:25 , Processed in 0.133038 second(s), 26 queries .

Powered by Discuz! X3.3

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表