组合框属性设置及运用示例
时 间:2011-06-11 00:00:00
作 者:曹光耀 ID:3606 城市:广州
摘 要: VBA代码设置组合框的行来源类型、列数、列宽等值,并添加列表值
正 文:
一、先决条件是:组合框的行来源类型必需设置为“值列表” 二、创建表[tblName],字段列表如下: 三、创建窗体[窗体1],添加一个组合框[Combo1],添加一个子窗体[Child0] 1。窗体加载事件 Private Sub Form_Load() Me.Child0.SourceObject = "table.tblName" End Sub 2。组合框[Combo1]获得焦点事件 Private Sub Combo1_GotFocus() Dim i As Long Dim rs As ADODB.Recordset Set rs = New ADODB.Recordset rs.Open "select [DepartmentID],[Department] from tblName GROUP BY DepartmentID, Department", CurrentProject.Connection, 3, 3 Me.Combo1.RowSourceType = "值列表" '设置行来源类型 If Me.Combo1.ListCount > 0 Then '先删除,方便后继添加 For i = Me.Combo1.ListCount - 1 To 0 Step -1 Me.Combo1.RemoveItem i Next End If With Me.Combo1 .ColumnCount = 2 '设置列数为了2 .Width = 4 * 567 '组合框的宽度为4cm,567为1cm=567缇(像素单位) .ColumnWidths = "0CM,4CM" '第一列宽0cm,第二列宽2cm If .ColumnHeads = True Then '设置列标题 .AddItem "部门ID,部门" End If .AddItem "无,无" rs.MoveFirst For i = 0 To rs.RecordCount - 1 .AddItem rs("DepartmentID") & ", " & rs("Department")'添加记录集到组合框 rs.MoveNext Next .AddItem "全部,全部" .DefaultValue = "全部" End With End Sub 3。组合框的更新后事件 Private Sub Combo1_AfterUpdate() If Me.Combo1.Column(1) = "无" Then Me.Child0.Form.RecordSource = "" ElseIf Me.Combo1.Column(1) = "全部" Then Me.Child0.Form.RecordSource = "select * from tblName" Else Me.Child0.Form.RecordSource = "select * from tblName where [Department]='" & Me.Combo1.Column(1) & "'" End If Me.Child0.Requery End Sub 点击下载此附件 |
Access软件网QQ交流群 (群号:54525238) Access源码网店
常见问答:
技术分类:
源码示例
- 【源码QQ群号19834647...(12.17)
- 【Access选项卡示例】Ac...(09.09)
- 【Access源码示例】按输入...(09.02)
- 【Access日期区间段查询】...(08.29)
- 【Access日期区间段查询】...(08.27)
- Access怎样才能实现日期时...(08.21)
- 【Access定时打开查询】A...(08.19)
- Access生成固定数量的记录...(08.13)
- Access怎样才能实现日期时...(08.12)
- Access利用导航窗体控件对...(08.03)
学习心得
最新文章
- Access表中的字段名、字段标题...(09.19)
- Access快速开发平台--更改“...(09.18)
- 【中秋及国庆优惠】Access培训...(09.15)
- Access如何将日期型的数值转换...(09.14)
- 英文输入法输入数据中存在单引号引起...(09.11)
- 【Access选项卡示例】Acce...(09.09)
- 让Access光标停留在指定的控件...(09.07)
- 关于Access查询条件里使用通配...(09.06)
- Access报表偷懒制作法--Ac...(09.05)
- Access快速开发平台--窗体数...(09.04)