レコード抽出
Me.Filter = 抽出条件
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 ブログランキングへ