Buongiorno,
uso Access 2007 (win7) per gestire schede anagrafiche e eventi diversi associati ai nominativi.
Non essendo esperto di VBA, ho setacciato la rete (e anche questo forum) alla ricerca di suggerimenti per produrre report singoli in formato pdf; dopo un po' di prove, ho messo insieme il codice che spero di inserire in modo corretto.
Private Sub Comando0_Click()
On Error GoTo Err_Comando0_Click
Dim ProviderNm As String
Dim ApeNm As String
Dim PathNm As String
Dim RptNm As String
Dim strFileNm As String
Dim Sql As String
Dim db As Object
Dim rs As Recordset
strPathNm = "C:\PROVE_DB\"
strRptNm = "r_anagrafiche"
Sql = "SELECT DISTINCT CODICE, NOMINATIVO FROM Q_anagrafiche"
Set db = CurrentDb
Set rs = db.OpenRecordset(Sql)
Do While Not rs.EOF
ProviderNm = rs!CODICE
ApeNm = rs!NOMINATIVO
strFileNm = strPathNm & ProviderNm & ApeNm & ".pdf"
DoCmd.OpenReport strRptNm, acViewPreview, , "CODICE = '" & ProviderNm & "' "
DoCmd.OutputTo acOutputReport, strRptNm, acFormatPDF, strFileNm, 0
DoCmd.Close acReport, strRptNm
DoEvents
rs.MoveNext
Loop
rs.Close
Set rs = Nothing
Set db = Nothing
Exit_Comando0_Click:
Exit Sub
Err_Comando0_Click:
La query che alimenta il report genera un solo record per ciascun nominativo.
Probabilmente si potrebbe fare di meglio, ma così funziona egregiamente.
Ora, però, vorrei creare report singoli in formato pdf partendo da una query che genera più record per nominativo e che, attualmente, alimenta correttamente un report che impagina più notizie relative allo stesso soggetto.
Ho provato a cercare suggerimenti, per ora senza fortuna.
Non cerco la "pappa fatta", ovviamente, solo qualcuno che sappia indicarmi la strada da seguire.
E che ringrazio da ora.