Access数据库培训
网站公告
·Access快速平台QQ群号:277422564    ·Access快速开发平台下载地址及教程    ·欢迎添加微信交流账号:Accessoft7    ·如何快速搜索本站文章|示例|资料!    
您的位置: 首页 > 技术文章 > Access开发平台

广东快乐十分开奖号码:开发平台查询???操作使用习惯上的一种改进 用列表框输入关键字

广东快乐十分走势 www.9889f.cn 时 间: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群 (群号:239158550)       access源码网店

最新评论 查看更多评论(5)

2019/3/6 10:31:29daviee
Private Function RunInstantSearch(InputCtl As TextBox) 这句要把文本框改成组合框 Private Function RunInstantSearch(InputCtl As ComboBox) 这句如果改了,在查询日期字段时会报错。 我的做法时重新加一个 RunInstantSearch函数,另命名为 RunInstantSearchCB,再加上Private Function RunInstantSearchCB(InputCtl As ComboBox)就OK了。

2019/3/5 16:17:55daviee
非常感谢!已用上。

2018/5/10 20:13:05陈强
Private Function RunInstantSearch(InputCtl As TextBox) 这句要把文本框改成组合框 Private Function RunInstantSearch(InputCtl As ComboBox)

2018/5/10 16:59:27Natsume Takashi
兄弟在完善下把

2018/5/10 16:37:18COBY CHEN
上面的代码有缺陷,修改如下。 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 以上的代码是全局适用。

发表评论您的评论将提升作者分享的动力!快来评论一下吧!

用户名:
密 码:
内 容:
 

常见问答

技术分类

相关资源

关于我们 | 服务条款 | 在线投稿 | 友情链接 | 网站统计 | 网站帮助