Microsoft Access 掲示板

Microsoft Access 掲示板

フォーム上に複数の条件でフィルタをかけたい / 4

5 コメント
views
4 フォロー
4
hatena 2021/11/19 (金) 17:35:01 >> 1

コード例

Private Sub cmdFilter_Click()
    Dim strFilter As String
     
    If Not IsNull(Me.申込開始日検索) And Not IsDate(Me.申込開始日検索) Then
        MsgBox "日付ではありません。"
        Me.申込開始日検索.SetFocus
        Exit Sub
    End If
    If Not IsNull(Me.申込終了日検索) And Not IsDate(Me.申込終了日検索) Then
        MsgBox "日付ではありません。"
        Me.申込終了日検索.SetFocus
        Exit Sub
    End If
    If Not IsNull(Me.入金開始日検索) And Not IsDate(Me.入金開始日検索) Then
        MsgBox "日付ではありません。"
        Me.申込開始日検索.SetFocus
        Exit Sub
    End If
    
    If Not IsNull(Me.入金終了日検索) And Not IsDate(Me.入金終了日検索) Then
        MsgBox "日付ではありません。"
        Me.申込終了日検索.SetFocus
        Exit Sub
    End If
 
    If Not IsNull(Me.申込開始日検索) Then
        strFilter = strFilter & " AND 申込日 >= #" & Me.申込開始日検索 & "#"
    End If
    If Not IsNull(Me.申込終了日検索) Then
        strFilter = strFilter & " AND 申込日 <= #" & Me.申込終了日検索 & "#"
    End If
    If Not IsNull(Me.入金開始日検索) Then
        strFilter = strFilter & " AND 申込日 >= #" & Me.入金開始日検索 & "#"
    End If
    If Not IsNull(Me.入金終了日検索) Then
        strFilter = strFilter & " AND 申込日 <= #" & Me.入金込終了日検索 & "#"
    End If
     
    If Not IsNull(Me.使途検索) Then
        strFilter = strFilter & " AND 使途='" & Me.使途検索 & "'"
    End If
     
    Me.Filter = Mid(strFilter, 6)
    If strFilter = "" Then
        Me.FilterOn = False
    Else
        Me.FilterOn = True
    End If
End Sub
通報 ...