Microsoft Access 掲示板

ちなみに、自分がするなら、

テキストボックスの定型入力プロパティに
000000;;_
と設定しておいて下記のコードにします。

Private Sub btn_検索_Click()
    Dim StartDueDate As String
    Dim EndDueDate As String
    StartDueDate = Trim(Nz(Me.txb_納期検索1.Value, ""))
    EndDueDate = Trim(Nz(Me.txb_納期検索2.Value, ""))
    
    If StartDueDate & EndDueDate = "" Then
        MsgBox "納期期限の開始日または終了日を入力してください。"
        Me.txb_納期検索1.SetFocus
        Exit Sub
    End If
    
    If Not IsDate(Format("20" & StartDueDate, "0000/00/00")) Then
        MsgBox "日付としてありえない値です。yymmddの書式で日付を入力してください。"
        Me.txb_納期検索1.SetFocus
        Exit Sub
    End If
    If Not IsDate(Format("20" & EndDueDate, "0000/00/00")) Then
        MsgBox "日付としてありえない値です。yymmddの書式で日付を入力してください。"
        Me.txb_納期検索1.SetFocus
        Exit Sub
    End If
    
    Me.Refresh
    
    Dim strFilter As String
    If StartDueDate <> "" Then
        strFilter = " And [納期] >='" & StartDueDate & "'"
    End If
    
    If EndDueDate <> "" Then
        strFilter = strFilter & " And [納期] <='" & EndDueDate & "'"
    End If
            
    Me.Filter = Mid(strFilter, 6)
    Me.FilterOn = (strFilter <> "")
    
    Me.btn_解除.SetFocus
End Sub