此前麦田发布的浮动窗体筛选数据教程是用的精确查询,当数据量很少情况下非常管用,一旦当你的表中数据种类繁多情况下,组合框选择方式的精确查询会让你下翻很多条,这里做个模糊查询教程,可以根据首字母或者输入任意一个满足条件的文字即可自动筛选,不多说了看教程学习吧!

预览效果图：

      此教程是以变速箱管理系统培训教材为例，学员可登录到“中国汽车零部件管理信息系统”后，单击销售订单按钮，出现如下图所示的一个浮动小的选择窗体：

可以选中里面 的记录

制作过程：

1、回到设计视图界面，选择“窗体”栏，新建空白“窗体”，命名为frmSelectZj；

2、选择工具栏，新建一个组合框;

3、修改窗体的属性，

①在“格式”栏命名“标题”为“请输入数据”；默认视图为“单个窗体”；
②将“其他”栏的弹出方式改为“是”;

4、修改组合框的属性，①此例我们将组合框名称命名为combo0，将“数据”栏的“行来源设置为Select DISTINCT qryXsddzj.机型 FROM qryXsddzj;

②“事件”栏，选择更新后[事件过程],在光标处写入代码为：

Dim a As String
a = "*" & Me.Combo0.Text & "*"
If IsNull(Me.Combo0) Then
Forms!usysfrmMain!frmChild.Form.RecordSource = "qryXsddzj"
Else
Forms!usysfrmMain!frmChild.Form.RecordSource = "select * from qryXsddzj where 机型 in (Select DISTINCT qryXsddzj.机型 FROM qryXsddzj Where 机型 like '" & a & "')"
End If

②“事件”栏，选择不在列表中[事件过程],在光标处写入代码为：

Dim ctl As Control
    Set ctl = Me!Combo0
    Response = acDataErrContinue
    ctl.Undo
    Me.Combo0 = b
    Me.Combo0.RowSource = "Select DISTINCT qryXsddzj.机型 FROM qryXsddzj;"
    SendKeys ("{Tab}")

②“事件”栏，选择键按下[事件过程],在光标处写入代码为：

Select Case KeyCode
    Case vbKeyUp, vbKeyDown
        Me.Combo0.OnChange = ""
    Case Else
        Me.Combo0.OnChange = "[Event Procedure]"
    End Select

②“事件”栏，选择键释放[事件过程],在光标处写入代码为：

Dim a As String
    a = "*" & Me.Combo0.Text & "*"
    Me.Combo0.RowSource = "Select DISTINCT qryXsddzj.机型 FROM qryXsddzj Where 机型 like '" & a & "';"
    Me.Combo0.Dropdown
    b = Me.Combo0.Column(0, 0)

此例是以 销售订单为例的，所以回到销售订单的子窗体frmXsddzj_Child设计界面
   到“窗体”的属性界面，

① 选择“事件”栏，选择加载[事件过程],在光标出写入代码为：
    DoCmd.OpenForm "frmSelectZj"

② 选择“事件”栏，选择关闭[事件过程],在光标出写入代码为：

   ‘如果"frmSelectSort"窗体处于打开状态，则关闭它
          If IsLoaded("frmSelectZj") Then
        DoCmd.Close acForm, "frmSelectZj"
    End If

这样就完成了该功能的实现。收工。

最后动画演示实际操作效果:

 猛击这里动画演示

 

 

相关文章:  按组合框输入条件查找  按输入日期时间段查找