Private Sub Komut9_Click()
On Error GoTo Err_Komut9_Click
 
    Dim stDocName As String
    stDocName = "HATA_LISTESI"
 
    Dim Kosul As String, Sayac As Long, v As Variant
    For Sayac = 1 To Me.Liste5.ListCount - 1
        If InStr(1, Kosul, Me.Liste5.Column(0, Sayac)) = 0 Then Kosul = Kosul & Me.Liste5.Column(0, Sayac) & ", "
    Next Sayac
    Kosul = Mid(Kosul, 1, Len(Kosul) - 2)
    DoCmd.OpenReport stDocName, acPreview, , "IRS_KODU In(" & Kosul & ")", acWindowNormal
 
Exit_Komut9_Click:
    Exit Sub
 
Err_Komut9_Click:
    MsgBox Err.Description
    Resume Exit_Komut9_Click
 
End Sub