作者：绿色风
分类：
时间：2022-08-18
浏览：125
楼主
chrisfang |
使用VBA更改Access的默认数据库文件夹
可使用以下代码将Access的默认数据库文件夹更改为D盘根目录下的Temp文件夹（假定文件夹已存在）：
- Application.SetOption "默认数据库目录", "D:\temp"
效果如下：
 |
2楼
chrisfang |
可以使用以下代码设定在保存数据库时删除个人信息：
- Application.SetOption "删除个人信息", True
|
3楼
chrisfang |
可以使用以下代码隐藏Access的状态栏显示：
- Application.SetOption "显示状态栏", False
|
4楼
chrisfang |
可以使用以下代码关闭Access的数据表的网格线显示：
- Application.SetOption "默认水平网格线", False
- Application.SetOption "默认垂直网格线", False
|
5楼
chrisfang |
可以使用以下代码将Access数据表的网格线设置为红色：
- Application.SetOption "默认网格线颜色",2366701
|
6楼
chrisfang |
可以使用以下代码设定Access最近打开文件中列表文件的最大显示数目，例如设定为5：
- Application.SetOption "MRU 文件列表大小", 5
|
7楼
chrisfang |
可以使用以下代码设定Access中数据表的默认列宽，例如设置为5：
- Application.SetOption "默认列宽",5
|
8楼
chrisfang |
使用以下代码可以将Access的数据表的默认字体设定为微软雅黑：
- Application.SetOption "默认字体名称", "微软雅黑"
|
9楼
chrisfang |
使用以下代码可以设定Access数据表单元格的效果：
- Application.SetOption "默认单元格效果", 1 '凸起效果
如果参数为0则为平面效果，参数为2时为凹陷效果。 |
10楼
chrisfang |
使用以下代码可以设定Access进入字段的动作方式：
- Application.SetOption "进入字段时的行为", 1 '转到字段开头
如果参数为0则选中整个字段，如果参数为2则转到字段末尾 |
11楼
chrisfang |
可以使用以下代码更改Access文本字段的默认最大长度，例如200：
- Application.SetOption "默认文本字段大小", 200
|
12楼
chrisfang |
可以使用以下代码设定Access数字字段的默认大小，例如单精度型：- Application.SetOption "默认数字字段大小", 3
|
13楼
chrisfang |
使用以下代码可以设定Access默认字段类型，例如设定为日期格式：
- Application.SetOption "默认字段类型", 3
|
14楼
chrisfang |
可以使用以下代码设定Access的查找替换方式，例如设定为“字段开头匹配搜索”：
- Application.SetOption "默认查找/替换行为", 2
参数为0时表示快速搜索，参数为1时表示常规搜索 |
15楼
chrisfang |
使用以下代码可以开启Access的错误检查功能：
- Application.SetOption "启用错误检查", True
|
免责声明
有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素，
经与ExcelTip.Net站长Apolloh商议并征得其同意，
现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示，
供有需要的人士查询使用，也慰缅曾经的论坛时代。
所示各个帖子的原作者如对版权有异议，
可与本人沟通提出，或于本站点留言，我们会尽快处理。
在此，感谢ExcelTip.Net站长Apolloh的支持，感谢本站点所有人**绿色风（QQ:79664738)**的支持与奉献，特此鸣谢！
------本人网名**KevinChengCW（QQ:1210618015)**原ExcelTip.Net总版主之一