自动获得内部菜单项的过程
时 间:2010-06-01 09:40:05
作 者:王樵民 ID:5203 城市:郑州
摘 要:本文介绍如何获得内部菜单的一个过程,利用该过程,可以将内部菜单保存到数据表中,供使用时借鉴。
正 文:
自动获得内部菜单项的过程
Access系统中内置的菜单和工具,我们也可以使用,如何获得这些内置菜单,是本小节要解决的问题。
列举菜单项过程的代码如下:
Sub 列举菜单项()
Dim sql1, s
Dim i, a, b
sql1 = "delete * from 内部菜单"
DoCmd.RunSQL (sql1) '删除表中的内容
For Each a In CommandBars
For Each b In a.Controls
Select Case b.Type
Case 1
s = "命令按钮"
Case 3
s = "下拉列表"
Case 4
s = "组合框"
Case 6
s = "拆分下拉列表"
Case 10
For Each c In b.Controls
If Len(Nz(a.Name)) > 1 Then
s = "命令按钮"
sql1 = "Insert INTO 内部菜单(英文名,中文名,菜单标题,菜单类型,菜单说明,菜单ID) VALUES ('" & Nz(a.Name) & "','" & Nz(a.NameLocal) & "--" & Nz(b.Caption) & "','" & Nz(c.Caption) & "','" & s & "','" & Nz(c.TooltipText) & "'," & Nz(c.id) & ")"
DoCmd.RunSQL (sql1)
End If
Next
s = "弹出框"
Case 12
s = "弹出式按钮"
Case 13
s = "拆分按钮弹出框"
Case 14
s = "最近使用弹出框"
Case 16
s = "展开网格"
Case 18
s = "网格"
Case 21
s = "窗格"
Case 21
s = "窗格"
Case 21
s = "窗格"
Case 25
s = "工作窗格"
End Select
If Len(Nz(a.Name)) > 1 Then
sql1 = "Insert INTO 内部菜单(英文名,中文名,菜单标题,菜单类型,菜单说明,菜单ID) VALUES ('" & Nz(a.Name) & "','" & Nz(a.NameLocal) & "','" & Nz(b.Caption) & "','" & s & "','" & Nz(b.TooltipText) & "'," & Nz(b.id) & ")"
DoCmd.RunSQL (sql1)
End If
Next
Next
DoCmd.OpenTable "内部菜单"
End Sub
其中,列举菜单项过程中用到了一个数据表,该标的名称为“内部菜单”,其结构如表21-20所示:
表21-20“内部菜单”表的结构
字段名 |
数据类型 |
字段大小 |
默认值 |
备注及属性设置 |
英文名 |
文本 |
255 |
|
|
中文名 |
文本 |
255 |
|
|
菜单ID |
数字 |
长整形 |
|
|
菜单标题 |
文本 |
255 |
|
|
菜单类型 |
文本 |
255 |
|
|
菜单说明 |
文本 |
255 |
|
|
执行过程“列举菜单项”,就可以将内部菜单的一些命令保存到“内部菜单”数据表中。
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数据库批量导入...(04.29)
- Access日期格式的数据导出Ex...(04.28)
- ACCESS精华集锦资料.CHM(04.25)
- Access VBA语句If Me...(04.24)
- 【Access修改记录示例】编辑选...(04.22)
- 【Access表名称命名建议】将A...(04.20)
- Access学习笔记--用Acce...(04.19)
- 【Access重复项查询示例】将A...(04.17)
- Access快速开发平台企业版--...(04.16)
- 【Access模块示例】通过模块代...(04.15)