If Me.开始日期 > Me.截止日期 Then
MsgBox "您选择的开始日期晚于截止日期!", vbExclamation, "错误"
Else
Dim strWhere As String
strWhere = True
If Not IsNull(Me.开始日期) Then
If Not IsNull(Me.截止日期) Then
strWhere = strWhere & " and [车辆注册日期] between #" & Me!开始日期 & "# and #" & Me.截止日期 & "#"
Else
strWhere = strWhere & " and [车辆注册日期] >= #" & Me.开始日期 & "#"
End If
Else
If Not IsNull(Me.截止日期) Then
strWhere = strWhere & " and [车辆注册日期] <= #" & Me.截止日期 & "#"
End If
End If
If Not IsNull(Me.车号) Then
strWhere = strWhere & " and [车号] Like '*" & Me.车号 & "*'"
End If
If Not IsNull(Me.车型) Then
strWhere = strWhere & " and [车型] = '" & Me.车型 & "'"
End If
With Forms!主控面板!Child0.Form!车辆信息_child.Form
.Filter = strWhere
.FilterOn = True
End With
DoCmd.Close acForm, Me.Name, acSaveNo