レコード抽出
Me.Filter = 抽出条件
Me.FilterOn = True

抽出解除
Me.FilterOn = False


二つのオプショングループ(担当者 と 完了)から抽出を行う

Private Sub cmd抽出_Click()

    Dim bln完了 As Boolean

    Select Case Me.fr完了.Value

        Case 1 '未完了
            bln完了 = False

        Case 2 '完了
            bln完了 = True

    End Select
        
    Select Case fr担当者.Value
    
        Case 1 '全員
            If bln完了 = True Then
                Me.Filter = "完了 = true"
                Me.FilterOn = True
            Else
                Me.FilterOn = False
            End If
            
        Case 2 '担当者1
            Me.Filter = "担当者ID = 1 and 完了 = " & bln完了
            Me.FilterOn = True
        
        Case 3 '担当者2
            Me.Filter = "担当者ID = 2 and 完了 = " & bln完了
            Me.FilterOn = True
    
        Case 4 '担当者3
            Me.Filter = "担当者ID = 3 and 完了 = " & bln完了
            Me.FilterOn = True
    
    End Select
    
End Sub

Private Sub cmd抽出解除_Click()
    Me.fr担当者.Value = 1
    Me.fr完了.Value = 1
    Me.FilterOn = False
End Sub

Private Sub Form_Load()
    Me.fr担当者.Value = 1
    Me.fr完了.Value = 1
End Sub


 ↓ facebook のフォローで応援してください。お願いします。



Microsoft Office ブログランキングへ