开发平台查询模块 操作使用习惯上的一种改进 用列表框输入关键字
时 间:2018-05-10 13:09:50
作 者:COBY CHEN ID:33895 城市:汕头
摘 要:平台生成的主窗体中,sfrQuickQuery 子窗体小修改一下。方便使用人员的日常操作。
正 文:
平台生成的主窗体中,sfrQuickQuery 子窗体小修改一下。方便使用人员的日常操作。
1. 把sfrQuickQuery 子窗体中的keyWord控件改为组合框。
2.加载事件的 SaveProperty Me.txtKeyword, "ShowDatePicker", dbBoolean, False 代码注释掉,不然会报错。
3.在cbofield控件的失去焦点事件 加入
Dim tblName
Me.txtKeyword = Null
If Left(Me.Parent.sfrList.Form.RecordSource, 3) = "qry" Then
tblName = Me.Parent.sfrList.Form.RecordSource
Me.txtKeyword.RowSource = "Select " & tblName & "." & Me.cboField.columN(0) & " FROM " & tblName & " GROUP BY " & tblName & "." & Me.cboField.columN(0)
Else
tblName = Mid(Me.Parent.Name, 4, Len(Me.Parent.Name) - 3)
Me.txtKeyword.RowSource = "Select tbl" & tblName & "." & Me.cboField.columN(0) & " FROM tbl" & tblName & " GROUP BY tbl" & tblName & "." & Me.cboField.columN(0) End If
以上修改后,操作人员能根据习惯使用查询功能。
SQL语句中的表名需要根据数据库里的表名规则自行修改。
Access快速开发平台QQ群 (群号:321554481) 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表名称命名建议】将A...(04.20)
- 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)