以斜体列出选项是为了向后兼容的选项。除了“在状态栏中显示超级链接地址”选项之外，其他所有选项是隐藏的但可用 SetOption 方法设置。有关 Web 选项的详细内容，请参阅 DefaultWebOptions。
选项文本 字符串参数
超级链接的颜色 超级链接的颜色
访问过的超级链接的颜色 访问过的超级链接的颜色
给超级链接加下划线 给超级链接加下划线
在状态栏显示超级链接地址 注意 在 Microsoft Access 2000 中无效。地址显示在工具提示中。
HTML 模板 HTML 模板
数据源名称 数据源名称
用户名 用户名
密码 密码
服务器 URL Active Server 页 URL
会话超时 Active Server 页对话超时
Function ChangeProperty(strPropName As String, varPropType As Variant, varPropValue As Variant) As Integer
Dim dbs As Object, prp As Variant
Const conPropNotFoundError = 3270
Set dbs = CurrentDb
On Error GoTo Change_Err
dbs.Properties(strPropName) = varPropValue
ChangeProperty = True
Change_Bye:
Exit Function
Change_Err:
If Err = conPropNotFoundError Then ' Property not found.
Set prp = dbs.CreateProperty(strPropName, _
varPropType, varPropValue)
dbs.Properties.Append prp
Resume Next
Else
' 未知错误。
ChangeProperty = False
Resume Change_Bye
End If
End Function作者: sxgaobo 时间: 2003-5-21 18:01
sunredday
实在不好意思，我试了还是不行，也就是说您的代码我不知如何使用，我在这方面确实挺菜，您能给做个实例吗？就是打开某个窗体时强制系统将：编辑/查询的[记录更改]、[删除文档]、[操作查询]选中，将：视图的[任务栏中的窗体]不选，实在太麻烦了，谢谢！！！作者: sunredday 时间: 2003-5-21 18:39
网上有， 查找 。
把我的代码放到你的窗体的代码里
做一个按钮
在按钮的单击事件中
CALL SetStartupProperties() 作者: sxgaobo 时间: 2003-5-21 19:06 标题: sunredday 您好！ 我做了个，可还是不行，运行后是将“启动”项里的一些选项修改了，我想修改的是：工具/选项 里的设置。非常感谢您耐心的回答！！！
[attach]492[/attach]作者: Trynew 时间: 2003-5-21 19:28
Private Sub 命令0_Click()
Application.SetOption "确认记录更改", True
Application.SetOption "确认文档删除", True
Application.SetOption "确认操作查询", True
End Sub
Private Sub 命令2_Click()
Application.SetOption "确认记录更改", False
Application.SetOption "确认文档删除", False
Application.SetOption "确认操作查询", False
End Sub 作者: sxgaobo 时间: 2003-5-21 20:21
Trynew 您好！
照您的方法一切OK，可我照猫画虎将：