If Me.開(kāi)始日期 > Me.截止日期 Then
        MsgBox "您選擇的開(kāi)始日期晚于截止日期！", vbExclamation, "錯(cuò)誤"
    Else
        Dim strWhere As String
        strWhere = True

        If Not IsNull(Me.開(kāi)始日期) Then
            If Not IsNull(Me.截止日期) Then
                strWhere = strWhere & " and [車輛注冊(cè)日期] between #" & Me!開(kāi)始日期 & "# and #" & Me.截止日期 & "#"
            Else
                strWhere = strWhere & " and [車輛注冊(cè)日期] >= #" & Me.開(kāi)始日期 & "#"
            End If
        Else
            If Not IsNull(Me.截止日期) Then
                strWhere = strWhere & " and [車輛注冊(cè)日期] <= #" & Me.截止日期 & "#"
            End If
        End If

        If Not IsNull(Me.車號(hào)) Then
            strWhere = strWhere & " and [車號(hào)] Like '*" & Me.車號(hào) & "*'"
          
        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

(責(zé)任編輯：admin)

• ·Access窗體居中顯示技巧
• ·Access中Tab鍵的使用說(shuō)明【技巧】
• ·Access粘貼對(duì)象到Tab選卡上的技巧
• ·Access在窗體上顯示當(dāng)前記錄和總記錄數(shù)
• ·Access隱藏組合框的小箭頭
• ·Access窗體屬性表
• ·【技巧】Access選項(xiàng)組邊框變?yōu)閳A角邊框
• ·Access函數(shù)me.sfmsub.form 提示子窗體
• ·Access中使用縮放對(duì)話框顯示文本框文字
• ·access技巧-中文顯示星期幾的簡(jiǎn)單方法
• ·Access控件是否可見(jiàn),可編輯,鎖定的技巧
• ·根據(jù)查找窗體設(shè)定的條件篩選主窗體的數(shù)
• ·父子窗體的語(yǔ)法介紹
• ·access實(shí)現(xiàn)組合框聯(lián)動(dòng)詳細(xì)教程
• ·Web Service在Access中的應(yīng)用技巧
• ·Access窗體最大化，最小化等操作