[原创]多选组合框及动态查询
时 间:2009-08-07 08:54:11
作 者:Trynew ID:2645 城市:广州
摘 要:多选组合框及动态查询
正 文:
Public Function MultComb()
'本函数可放在窗体的组合框的更改事件属性中或在事件过程中调用
'本函数利用Screen.ActiveControl对象及对象的tag属性扩大其通用性,如有冲突,也可利用公共变量代替
Dim i As Integer, strList As String
With Screen.ActiveControl
'用";"作分隔符提取组合框选项列表,此项功能也可应用在其它判断是否在列表中的例程中
For i = 0 To .ListCount
strList = IIf(Nz(strList) = "", "", strList & ";") & .ItemData(i)
Next
'判断更改的文本框内容是否在列表中,若是则用更改前内容加上"、"及更改后内容作为新值
If InStr(1, .Tag, .Text) = 0 And InStr(1, strList, .Text) > 0 Then
.Value = IIf(Nz(.Tag) = "", "", .Tag & "、") & .Text
End If
'判断已选及在列表内则内容不变
If InStr(1, .Tag, .Text) > 0 And InStr(1, strList, .Text) > 0 Then
.Value = IIf(Nz(.Text) = "", "", .Tag)
End If
'保存更改后的内容
.Tag = .Value
End With
End Function
然后在窗体的组合框更新后事件中输入函数:=MultComb(),或在事件过程中调用:
Private Sub Combo0_Change()
Call MultComb
Me.Child5.Form.RecordSource = "select * from tem" & IIf(Nz(Combo0, "") = "", "", " where instr(1,'" & Combo0 & "',[字段2])>0")
Me.Child5.Form.Requery
End Sub
红色部分是动态多选查询的关键。
点击下载此附件
图 示:
Access软件网QQ交流群 (群号:483923997) Access源码网店
常见问答:
技术分类:
源码示例
- 【源码QQ群号19834647...(12.17)
- 【Access小作品】简单的待...(04.30)
- 【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小作品】简单的待办任...(04.30)
- 从另一个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)