夜未央 发表于：2013-05-17 16:53:46
Private Sub Btn_query_Click()
On Error GoTo Err_btn_query_click
Dim str As String
str = ""
If Not IsNull(Me.txt_ygnumber) Then
str = str & "([txt_ygnumber] like '*" & Me.txt_ygnumber & "*') AND "
End If
If Not IsNull(Me.Txt_name) Then
str = str & "([txt_name] like '*" & Me.Txt_name & "*') AND "
End If
If Not IsNull(Me.txt_idnumber) Then
str = str & "([txt_idnumber] like '*" & Me.txt_idnumber & "*') AND "
End If
If Not IsNull(Me.txt_date1) Then
str = str & "([txt_date1] >= #" & Format(Me.txt_date1, "yyyy-mm-dd") & "#) AND "
End If
If Not IsNull(Me.txt_date2) Then
str = str & "([txt_date2] >= #" & Format(Me.txt_date2, "yyyy-mm-dd") & "#) AND "
End If
If Len(str) > 0 Then
str = Left(str, Len(str) - 5)
End If
Me.人员资料查询子窗体.Form.Filter = str
Me.人员资料查询子窗体.Form.FilterOn = True
