Kusura bakmayin, biraz daha detay vermem gerekirse, mevcut durumda su sekilde cikti aliyoruz:

Private Sub PrintTimeCard_Click()

On Error GoTo Err_PrintTimeCard_Click



    Dim stDocName As String



    stDocName = "TimeCardReport"

    

     DoCmd.OpenReport stDocName, acNormal



Exit_PrintTimeCard_Click:

    Exit Sub



Err_PrintTimeCard_Click:

    MsgBox Err.Description

    Resume Exit_PrintTimeCard_Click

    

End Sub

Bu cok ugrastirici. Herkes icin tek tek PrintTimeCard butonuna basmamiz gerekiyor. Bunu toplu bir sekilde herkes icin bir TIK ile nasil yapabilecegimi ogrenmek istiyorum.