1 - önce referanslardan Microsoft ActiveX Data Object x.x library eklenmeli
2 - raporları Access dosyası hangi klasörde ise oraya kaydeder
kodlar
Private Sub Komut41_Click()
Dim rs As ADODB.Recordset
Dim xSQL As String
xSQL = "select * from tablo1 where [ad]='" & Me.Açılan_Kutu23.Column(1) & _
"' and [soyad]='" & Me.Açılan_Kutu23.Column(2) & "' and [aln_id]='" & Me.Açılan_Kutu39.Column(1) & "'"
Set rs = New ADODB.Recordset
rs.Open xSQL, CurrentProject.Connection, 3, 1
xAdrs = CurrentProject.Path & "\"
If rs.RecordCount = 0 Then GoTo 10
rs.MoveLast
rs.MoveFirst
DoCmd.OpenReport "rpr_1", acViewDesign, , , acHidden
Do While Not rs.EOF
ySQL = xSQL & " and [alan]='" & rs(5) & "'"
Reports("rpr_1").RecordSource = ySQL
DoCmd.OutputTo acOutputReport, "rpr_1", _
acFormatPDF, xAdrs & rs(1) & " " & rs(2) & " Okuduğu Kitap " & rs(5) & ".pdf"
rs.MoveNext
Loop
DoCmd.Close acReport, "rpr_1", acSaveNo
10
rs.Close
End Sub
