MailMerge moze da posluzi ali moze i na druge nacine sve zavisi kako treba da izgleda taj pdf sto se tice podataka koji se generisu.
Brzinski na prvu u kodu je problem polje PIB koje se koristi za naziv file jer ga nema u recordsetu koji je otvoren pa je pozljeno dodati i to polje u upit ili povuci sva polja.
Code:
'Set rs = CurrentDb.OpenRecordset("SELECT BrojPoziva FROM PoziviKT")
Set rs = CurrentDb.OpenRecordset("SELECT * FROM PoziviKT")
Evo celog koda za Command Button koji je ispravljen malo da bi radilo.
Code:
Dim rs As DAO.Recordset
Dim sFolder As String
Dim sFile As String
On Error GoTo Error_Handler
sFolder = Application.CurrentProject.Path & "\"
'Set rs = CurrentDb.OpenRecordset("SELECT BrojPoziva FROM PoziviKT")
Set rs = CurrentDb.OpenRecordset("SELECT * FROM PoziviKT")
With rs
.MoveFirst
Do While Not .EOF
sFile = Nz(![BrojPoziva], "") & "-" & Nz(![PIB], "") & ".pdf"
sFile = sFolder & sFile
'DoCmd.OpenReport "PoziviKT", acViewReport, , "[BrojPoziva]=" & ![BrojPoziva]
DoCmd.OpenReport "PoziviKT", acViewReport, , "[BrojPoziva]='" & ![BrojPoziva] & "'", acHidden
DoCmd.OutputTo acOutputReport, "PoziviKT", acFormatPDF, OutputFile:=sFile, OutputQuality:=acExportQualityPrint
DoCmd.Close acReport, "PoziviKT"
DoEvents
.MoveNext
Loop
End With
Application.FollowHyperlink sFolder
Error_Handler_Exit:
On Error Resume Next
If Not rs Is Nothing Then
rs.Close
Set rs = Nothing
End If
Exit Sub
Error_Handler:
If Err.Number <> 2501 Then
MsgBox "The following error has occured" & vbCrLf & vbCrLf & _
"Error Number: " & Err.Number & vbCrLf & _
"Error Source: cmd_GenPDFs_Click" & vbCrLf & _
"Error Description: " & Err.Description & _
Switch(Erl = 0, "", Erl <> 0, vbCrLf & "Line No: " & Erl) _
, vbOKOnly + vbCritical, "An Error has Occured!"
End If
Resume Error_Handler_Exit
[Ovu poruku je menjao bokinet dana 20.11.2021. u 14:07 GMT+1]