CurrentDb.Properties ("AppTitle") 这句代码是什么意思?\用代码设置启动项标题
时 间:2014-05-08 09:29:24
作 者:红尘如烟 ID:10768 城市:成都
摘 要:CurrentDb.Properties ("AppTitle") 这句代码是什么意思?\用代码设置启动项标题
正 文:
网友 一个人的Hui忆(719060850) 20:14:41 问题
请问老师 CurrentDb.Properties ("AppTitle") 这句代码是什么意思?
Accessoft--红尘如烟 20:22:42
是设置Access主窗口最顶上的标题用的,如下图:
示例参考如下:
代码参考如下:
Private Sub Form_Load()
On Error GoTo ErrorHandler
Dim dbs As DAO.Database
Dim prp As DAO.Property
Const errPropertyNotFound = 3270
Set dbs = CurrentDb
dbs.Properties("AppTitle") = "Access软件网 Accessoft AccessGood 快速开发平台 UMVsoft 上海盟威软件"
Application.RefreshTitleBar
ExitHere:
Exit Sub
ErrorHandler:
Select Case Err
Case errPropertyNotFound
dbs.Properties.Append dbs.CreateProperty("AppTitle", dbText, "Access软件网 Accessoft AccessGood 快速开发平台 UMVsoft 上海盟威软件")
Resume
Case Else
MsgBox Err.Description, vbCritical, "错误 #" & Err
Resume ExitHere
End Select
End Sub
Access软件网官方交流QQ群 (群号:483923997) Access源码网店
常见问答:
技术分类:
源码示例
- 【源码QQ群号19834647...(12.17)
- 【Access窗体导出PDF】...(04.08)
- 【Access窗体导出PDF】...(04.07)
- Access两种方式实现即时更...(03.01)
- Access隐藏与显示lacc...(01.12)
- 【Access高效办公】将每个...(12.23)
- Access21点游戏源代码(12.13)
- 【Access窗体导出Exce...(11.15)
- 【Access开发】Acces...(11.14)
- 通过Access宏录入数据到选...(11.10)
学习心得
最新文章
- Access学习笔记--用Acce...(04.19)
- 【Access重复项查询示例】将A...(04.17)
- Access快速开发平台企业版--...(04.16)
- 【Access模块示例】通过模块代...(04.15)
- Access查询里面分组合计功能添...(04.13)
- 【Access删除查询】删除数字最...(04.12)
- 显示文件夹中所有文件的修改时间(04.11)
- 铁路工程管理系统;铁路工程管理小程...(04.10)
- 【Access查询示例】怎么将两个...(04.09)
- 【Access窗体导出PDF】Ac...(04.08)