Private Sub cmd印刷_Click()
On Error GoTo Err_cmd印刷_Click

    Dim stDocName As String

    stDocName = "rpt個人確定申告管理"
    DoCmd.OpenReport stDocName, acPreview
        
    With Reports(stDocName)
    
        Select Case fr担当者.Value
    
            Case 1 '全員
                .FilterOn = False
    
            Case 2 '担当者1
                .Filter = "担当者ID = 1"
                .FilterOn = True
    
            Case 3 '担当者2
                .Filter = "担当者ID = 2"
                .FilterOn = True
    
            Case 4 '担当者3
                .Filter = "担当者ID = 3"
                .FilterOn = True
    
        End Select
    
    End With

Exit_cmd印刷_Click:
    Exit Sub

Err_cmd印刷_Click:
    MsgBox Err.Description
    Resume Exit_cmd印刷_Click
    
End Sub

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



Microsoft Office ブログランキングへ