dilerim işinize yarar
yapılan değişiklikler:

1. tablonuza yeni bir ID alanı eklendi
   
2. rapor sorgunuz yeni Id alanına göre düzenlendi
   

eklenen kodlar
1 - forma seçilen kayıtları tutması içi değişken eklendi

Public BrkLst As String '<<--Eklenen

2 - seçilen kayıtların onayını aktif yapan kodlar
eğer gelinen kayıt listedeyse onay kutusu seçilir, değilse kaldırır

Private Sub Form_Current() '<<--Eklenen

    If InStr(1, BrkLst, "|" & Me.xID & "|", vbDatabaseCompare) > 0 Then Me.Onay13 = True Else Me.Onay13 = False

End Sub

3 - onay kutusu tıklanınca kaydı listeye ekler

Private Sub Onay13_AfterUpdate() '<<--Eklenen

If Me.Onay13 = False And InStr(1, BrkLst, "|" & Me.xID & "|", vbDatabaseCompare) > 0 Then BrkLst = Replace(BrkLst, "|" & Me.xID & "|", "")

 If Me.Onay13 = True And InStr(1, BrkLst, "|" & Me.xID & "|", vbDatabaseCompare) = 0 Then BrkLst = BrkLst & "|" & Me.xID & "|"

End Sub

düzenlenen yordam
rapor yazdırma yordamına aşağıdaki kod eklenerek rapor için süzme koşulu oluşturulmuş
If Len(BrkLst & "") > 0 Then Kriter = "ID IN (" & Replace(Replace(BrkLst, "||", ","), "|", "") & ")" Else Kriter = "" '<<--Eklenen
ve aşağıdaki koda kriter yollanmıştır DoCmd.OpenReport stDocName, acPreview, , Kriter '<<--Değişen

Private Sub Rapor_Click()

On Error GoTo Err_Rapor_Click



    Dim stDocName As String

    

    If Len(BrkLst & "") > 0 Then Kriter = "ID IN (" & Replace(Replace(BrkLst, "||", ","), "|", "") & ")" Else Kriter = "" '<<--Eklenen



    stDocName = "BarkodRaporu"

    DoCmd.OpenReport stDocName, acPreview, , Kriter '<<--Değişen



Exit_Rapor_Click:

    Exit Sub



Err_Rapor_Click:

    MsgBox Err.Description

    Resume Exit_Rapor_Click

    

End Sub