Raporu Liste kutusunda gösterilen veriler ile açılması.
Private Sub Komut17_Click()
Dim Secim As String, LisSy As Long
For LisSy = 1 To Me.Liste11.ListCount - 1
    Secim = Secim & ", " & Me.Liste11.Column(0, LisSy)
Next LisSy
DoCmd.OpenReport "rpr_bordro", acViewPreview, , "id In(" & Mid(Secim, 3) & ")", acWindowNormal
End Sub

Private Sub odeme_lis_AfterUpdate()
Me.Liste11.RowSource = Secim(Me.donem_listesi.Column(0), Me.odeme_lis.Column(0))
End Sub

Private Sub donem_listesi_AfterUpdate()
Me.Liste11.RowSource = Secim(Me.donem_listesi.Column(0), Me.odeme_lis.Column(0))
End Sub

Public Function Secim(Dnm As String, KimO As Long) As String
Dim Kosul, SQLa As String
SQLa = "SELECT tbl_veri.id, tbl_veri.uzman_id, tbl_veri.adisoyadi, tbl_veri.tckn, tbl_veri.sicil, tbl_veri.unvan, tbl_veri.kurum, tbl_veri.dsy_no, tbl_veri.tarihi, tbl_veri.tutar, Format([tarihi],'yyyymm') AS Dönem FROM tbl_veri || ORDER BY Format([tarihi],'yyyymm') DESC"
Kosul = IIf(Dnm <> "0" Or KimO <> 0, " WHERE ", vbNullString) & IIf(Dnm = "0", vbNullString, "Format([tarihi],'yyyymm')='" & Dnm & "'") & IIf(Dnm = "0" Or KimO = 0, vbNullString, " And ") & IIf(KimO = 0, vbNullString, "uzman_id=" & KimO)
Secim = IIf(Not IsNull(Kosul), Replace(SQLa, "||", Kosul), vbNullString)
'Debug.Print Secim
End Function