Private Sub frm1_AfterUpdate()
    '表示を動かさない
    DoCmd.Echo False
    
    'フィルターを解除
    Me.sub1.Form.FilterOn = False
    
    'オプショングループの選択状態によりフィルター条件を変える
    Select Case Me.frm1.Value
    Case Me.opt1.OptionValue
        Me.sub1.Form.Filter = "担当者コード = '1'"
    Case Me.opt2.OptionValue
        Me.sub1.Form.Filter = "担当者コード = '2'"
    Case Me.opt3.OptionValue
        Me.sub1.Form.Filter = ""
    End Select
    
    'フィルターをかける
    Me.sub1.Form.FilterOn = True
    
    DoCmd.Echo True
End Sub


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



Microsoft Office ブログランキングへ