查询按钮代码设置

RRGG001

不行，点击按钮没任何反应

qp370982

谢谢老师，
      我想在麻烦您一下，如在原窗体中增加一个日期范围查询，就是针对某一段时间内的考勤情况进行查询，同时增加对“备注”文本框里的内容进行模糊查询，其他条件不变。该如何编写代码？
谢谢老师，麻烦您了

[ 本帖最后由 qp370982 于 2008-12-30 23:20 编辑 ]

qp370982

鄙人在这里先谢谢各位老师的帮助，十分谢谢

Henry D. Sy

将原日期控件删掉

Private Sub Command16_Click()
    Dim strCriteria As String
    For Each ctl In Me.Controls
        If TypeOf ctl Is TextBox Or TypeOf ctl Is ComboBox Then
            If Not IsNull(ctl) Then
                Select Case ctl.Name
                Case "所在班组"
                    If ctl <> "车间" Then
                        strCriteria = strCriteria & ctl.Name & " like '" & ctl _
                                    & "' And "
                    End If
                Case "考勤情况"
                    If ctl <> "违反劳动纪律" Then
                        strCriteria = strCriteria & ctl.Name & " like '" & ctl _
                                    & "' And "
                    Else
                        strCriteria = strCriteria & ctl.Name & _
                                    " in ('迟到','早退','旷工') And "
                    End If
                Case "日期开始"
                    strCriteria = strCriteria & "日期>=#" & ctl & "# And "
                Case "日期结束"
                    strCriteria = strCriteria & "日期<=#" & ctl & "# And "
                Case Else
                    strCriteria = strCriteria & ctl.Name & " like '" & ctl & _
                                  "' And "
                End Select
            End If
        End If
    Next
    If strCriteria <> "" Then
        strCriteria = Left(strCriteria, Len(strCriteria) - 5)
    End If
    Me.考勤管理子窗体.Form.Filter = strCriteria
    Me.考勤管理子窗体.Form.FilterOn = True
End Sub

qp370982

老师，如何在上面查询的基础上增加对“备注”文本框里的内容进行模糊查询

Henry D. Sy

不用再做任何增加，你可以先试试查询备注看看呀。

boy1

If TypeOf ctl Is TextBox Or TypeOf ctl Is ComboBox Then 这句什么意思？有什么作用？

Henry D. Sy

原帖由 boy1 于 2009-1-9 16:09 发表
If TypeOf ctl Is TextBox Or TypeOf ctl Is ComboBox Then 这句什么意思？有什么作用？

如果控件的类型是文本框或组合框，那么

明镜

受益匪浅

雨后的天空

先看看