Microsoft Access 掲示板

大変遅くなり申し訳ございません。
現状のVBAは以下になります。
【UP1】
Private Sub 抽出ボタン_Click()
Dim filter As String
    filter = ""
If Me!開始 <> "" And Me!終了 <> "" Then
    If Me!開始 > Me!終了 Then
        MsgBox "期間指定が不適切です。再入力してください。", vbCritical + vbOKOnly, "期間指定不備"
        Exit Sub
    End If
End If
If Me!開始 <> "" Then
       If Me!開始 <> "" Then
        filter = "日付 >= #" & Me!開始 & "# and 日付 <= #" & Me!終了 & "#"
    Else      
        filter = "日付 >= #" & Me!開始 & "#"      
    End If      
ElseIf Me!終了 <> "" Then
    filter = "日付 <= #" & Me!終了 & "#"     
End If

行の関係上、続きは別途UPします。