Salva in PDF e company

Question

Win 10

Access 2007

Buongiorno,

desidero registrare dei volontari e nella tblVolontari trovo i seguenti campi

IDVolontario Contatore

NumeroTessera numerico

Cognome

Nome

data di nascita

località di nascita

una volta compilati i dati li devo spedire in formato PDF ma all'inizio il campo NumeroTessera deve rimanere vuoto (null oppure posso anche inserirgli il valore 0).

una volta che la sede centrale riceve i dati da me comunicati, mi risponde assegnando il NumeroTessera al volontario e così posso trascriverlo nella sua scheda.

quello che vorrei realizzare è questo:

1. una volta compilata la scheda del nuovo volontario, esportarla in formato PDF per poterla inviare alla sede centrale rinominando il file con il Cognome + Nome ;
2. una volta ricevuto il NumeroTessera e aggiornata la scheda del volotnario, esportarla in formato PDF e rinominarla con il NumeroTessera e sovrascriverla al vecchio file che era stato salvato con Cognome+Nome

ho provato a procedere con la prima parte nell'esportare il file .pdf ma non riesco a risolvere il problema del percorso mi da errore sul foldrPath.

Private Sub ModuloA_Click()

DoCmd.OpenReport "ReportModuloA", acViewReport

Dim fileName As String, fldrPath As String, filePath As String

Dim answer As Integer

fileName = "ReportModuloA"

fldrPath = "\mio percorso"

filePath = fldrPath & " \ " & fileName & ".pdf"

'check if file already exists

If FileExist(filePath) Then

answer = MsgBox(prompt:="PDF file already exists: " & vbNewLine & filePath & vbNewLine & vbNewLine & "Would you like to replace existing file?", buttons:=vbYesNo, Title:="Existing PDF File")

If answer = vbNo Then Exit Sub

End If

On Error GoTo invalidFolderPath

DoCmd.OutputTo objecttype:=acOutputReport, objectName:=Me.Name, outputformat:=acFormatPDF, outputFile:=filePath

MsgBox prompt:="PDF File exported to: " & vbNewLine & filePath, buttons:=vbInformation, Title:="Report Exported as PDF"

Exit Sub

invalidFolderPath:

MsgBox prompt:="Error: Invalid folder path. Please update code.", buttons:=vbCritical

End Sub

se riuscite a capire dove sbaglio

grazie

Ivan

Answer 1

sapevo che a quest'ora arrivava la tua risposta :)

ho messo dei MsgBox lungo la strada e l'errore arriva qui:

On Error GoTo invalidFolderPath

DoCmd.OutputTo objecttype:=acOutputReport, objectName:=Me.Name, outputformat:=acFormatPDF, outputFile:=filePath

a suo tempo avevo usato questa stringa:

DoCmd.OutputTo acOutputReport, "MioReport", acFormatPDF, "PercorsoFile " & Replace(Me.IDVolontario, "/", "") & ".pdf"

e come io temevo mi restituisce:

Errore di run time 2282

Il formato definito per l'output dell'oggetto corrente non è disponibile.

ho installato sul PC il componente aggiuntivo mi microsoft per salvare i file in formato PDF e adesso la stringa

DoCmd.OutputTo acOutputReport, "MioReport", acFormatPDF, "PercorsoFile " & Replace("Modulo" & "_" & Me.Cognome & Me.Nome, "/", "") & ".pdf"

e funziona perfettamente ma ....

... ma riuscire a superare il punto 2 del mio quesito iniziale la vedo troppo dura :)

nel frattempo auguro un buon punto del 25 aprile e 1 maggio :)

ivan

Answer 2

Tramite debug devi vedere su quale riga si verifica l'errore.

Answer 3

Carletto Buongiorno,

aspettavo con ansia la tua risposta ma invece di essere una sgridata è stato un silenzioso aiuto prezioso:)

grazie

ma ho corretto il codice con i tuoi suggerimenti ma l'errore persiste....

Error: Invalid folder path. please update code.

mah

Answer 4

fileName = "ReportModuloA"

fldrPath = "\mio percorso"

filePath = fldrPath & fileName & ".pdf"