Esporta report pdf cliente e nome personalizzato

Monster88

il 02 ago 2019, 23:08

44 risposte

44 Risposte - Pagina 3

Monster88

Utente Attivo

Iscritto da: mag, 2018

Messaggi:: 72

Re: Esporta report pdf cliente e nome personalizzato

04 set 2019, 16:08

Buongiorno willy55,
ho corretto il codice con l'errore che mi hai segnalato. Precedentemente avevo provato a modificare il codice in quanto credevo che il nome Report potesse dare problemi così l'ho modificato in Report1, ma continua a darmi lo stesso errore e il debug si apre sulla riga che ho messo in grassetto.
Ti riporto nuovamente il codice


Private Sub cmdexport_Click()

Dim DBCorrente As DAO.Database
Dim variabile As DAO.Recordset
Set DBCorrente = CurrentDb
Set variabile = DBCorrente.OpenRecordset("Query1", dbOpenDynaset)
Do Until variabile.EOF
    DoCmd.OpenReport "Report1", , , "[IDCliente] = " & variabile![IDCliente]
  [b]  DoCmd.OutputTo acOutputReport, "Report1", acFormatPDF, "C:\Users\Luca Masenelli\Desktop\test stampa\" & Format(Reports![Report1]![IDCliente]) & ".pdf", True[/b]
    DoCmd.Close "Report1"
    variabile.MoveNext
Loop
variabile.Close
DBCorrente.Close
End Sub

Non riesco a capire dove sbaglio

O
OsvaldoLaviosa
Super Famoso
Iscritto da
apr, 2012
Messaggi:
7433
Re: Esporta report pdf cliente e nome personalizzato
05 set 2019, 11:01
Format(Reports![Report1]![IDCliente])
Siamo sicuri che questa sintassi ha un senso? Sebbene la funzione Format non prevede l'obbligo di compilare gli argomenti successivi, ma...a me qualcosa non torna. Io scriverei qualcosa come
Format(Reports![Report1]![IDCliente], "00000")
leggi anche qui
https://docs.microsoft.com/it-it/dotnet/standard/base-types/custom-numeric-format-strings
P
Philcattivocarattere
Utente Famoso
Iscritto da
giu, 2014
Messaggi:
2142
Re: Esporta report pdf cliente e nome personalizzato
05 set 2019, 12:15
Monster88 ha scritto:
DoCmd.OpenReport "Report1", , , "[IDCliente] = " & variabile![IDCliente] DoCmd.OutputTo acOutputReport, "Report1", acFormatPDF, "C:\Users\Luca Masenelli\Desktop\test stampa\" & Format(Reports![Report1]![IDCliente]) & ".pdf", True
Vai a leggere un valore da un report? Ce l'hai già lì, in variabile![IDCliente], da completare con la proprietà Value, a scanso di equivoci.
Se poi quel codice cliente deve avere un formato particolare, allora si ragiona con il format.
Poiché va a formare il nome del file, quel valore non deve contenere caratteri vietati che puoi ottenere cercando di rinominare un file a tua scelta (ovviamente che non sia uno di quelli di sistema o simili) inserendo il punto interrogativo (ad esempio) e vedrai l'elenco dei caratteri vietati. Se è possibile che siano presenti in IDCliente bisogna andare di Replace.

Nel db che avevi caricato come demo (magari adesso l'hai modificato) query1 voleva una data: in un modo o nell'altro gliela devi passare altrimenti non si riuscirà mai ad aprire un report associato a quella query.
M
Monster88
Utente Attivo
Iscritto da
mag, 2018
Messaggi:
72
Re: Esporta report pdf cliente e nome personalizzato
06 set 2019, 19:31
Grazie Osvalto e grazie Phil,
ho corretto la sintassi come suggerito da Osvaldo, ora la domanda è: come faccio a fargli rilevare la data?
Ho una maschera chiamata Mdatariferimento che viene aperta quando apro il report, tramite una macro e un modulo.

Ho provato con il
```
DoCmd.RunMacro"Macro1"
```
ma non funziona
O
OsvaldoLaviosa
Super Famoso
Iscritto da
apr, 2012
Messaggi:
7433
Re: Esporta report pdf cliente e nome personalizzato
06 set 2019, 23:06
Conviene prelevare sempre i valori da maschera, quindi
Forms!NomeMaschera!NomeCampoData restituirà la data nel formato "predefinito". Se hai bisogno di "scriverlo" in un formato a te più congeniale, la funzione Format torna nuovamente comoda. Altrimenti prova
Reports!NomeReport!NomeCampoData
M
Monster88
Utente Attivo
Iscritto da
mag, 2018
Messaggi:
72
Re: Esporta report pdf cliente e nome personalizzato
08 set 2019, 16:08
Grazie Osvaldo, la sintassi è chiara, quello che non mi è chiaro è dove inserirla
O
OsvaldoLaviosa
Super Famoso
Iscritto da
apr, 2012
Messaggi:
7433
Re: Esporta report pdf cliente e nome personalizzato
09 set 2019, 10:42
Monster88 ha scritto:
Grazie Osvaldo, la sintassi è chiara, quello che non mi è chiaro è dove inserirla
Non ci hai mai detto dove e in quale codice vuoi inserirla.

Monster88

Utente Attivo

Iscritto da: mag, 2018

Messaggi:: 72

Re: Esporta report pdf cliente e nome personalizzato

10 set 2019, 19:44

Dovrei inserirla nel codice precedente; quando l'utente clicca su export pdf singoli dovrebbe aprire la maschera per impostare la data della query e poi generare un pdf singolo per ogni cliente


Private Sub cmdexport_Click()

Dim DBCorrente As DAO.Database
Dim variabile As DAO.Recordset
Set DBCorrente = CurrentDb
Set variabile = DBCorrente.OpenRecordset("Query1", dbOpenDynaset)
Do Until variabile.EOF
    DoCmd.OpenReport "Report1", , , "[IDCliente] = " & variabile![IDCliente]
  [b]  DoCmd.OutputTo acOutputReport, "Report1", acFormatPDF, "C:\Users\Luca Masenelli\Desktop\test stampa\" & Format(Reports![Report1]![IDCliente]) & ".pdf", True[/b]
    DoCmd.Close "Report1"
    variabile.MoveNext
Loop
variabile.Close
DBCorrente.Close
End Sub

O
OsvaldoLaviosa
Super Famoso
Iscritto da
apr, 2012
Messaggi:
7433
Re: Esporta report pdf cliente e nome personalizzato
11 set 2019, 13:13
Se hai un campo Data da qualche parte, sfrutta quello.
Se le query (come vedo) vengono generate tutte lo stesso giorno, che poi si tratta del giorno "in corso", ti basta sfruttare l'espressione Date() che significa "data odierna".
M
Monster88
Utente Attivo
Iscritto da
mag, 2018
Messaggi:
72
Re: Esporta report pdf cliente e nome personalizzato
11 set 2019, 14:00
Ho il campo data nella tabella rifornimenti, ma devo prelevare la data richiesta in quanto non sempre è la data odierna, a volte è del giorno precedente o di 2 giorni precedenti, per quello la query è generata da questa tabella e ha la data di riferimento come criterio
O
OsvaldoLaviosa
Super Famoso
Iscritto da
apr, 2012
Messaggi:
7433
Re: Esporta report pdf cliente e nome personalizzato
11 set 2019, 14:41
Non puoi aggiungere un campo [data richiesta] nella tabella Rifornimenti?
M
Monster88
Utente Attivo
Iscritto da
mag, 2018
Messaggi:
72
Re: Esporta report pdf cliente e nome personalizzato
13 set 2019, 22:14
Potrei, ma perde di utilità, la query filtra la data
O
OsvaldoLaviosa
Super Famoso
Iscritto da
apr, 2012
Messaggi:
7433
Re: Esporta report pdf cliente e nome personalizzato
14 set 2019, 14:24
1. Tu includi [data richiesta] nella tabella e nella query.
2. variabile è un Recordset e il valore variabile![data richiesta] può essere tranquillamente prelevato, quindi aggiunto nella sintassi finale del nome file PDF da esportare.
M
Monster88
Utente Attivo
Iscritto da
mag, 2018
Messaggi:
72
Re: Esporta report pdf cliente e nome personalizzato
15 set 2019, 21:35
Forse mi sono spiegato male, il campo data e data riferimento dovrebbero essere uguali quindi ci sarebbero dati ridondanti.
Il problema non sta nel output di un file con il nome della data di riferimento ma il filtro sulla query.
Quando l'utente clicca il bottone Export PDF singoli si dovrebbe aprire la maschera Mdatariferimento in cui impostare la data e cliccando OK venga inserita come criterio della query.
Quindi l'idea era usare DoCmd.OpenForm per aprire la maschera Mdatariferimento prima che venga eseguito il codice indicato in precedenza e, dopo aver inserito la data nella textbox come suggerito da te in precedenza, cliccando su OK impostare il valore che genera il filtro della query che poi verrà lavorato dal Do...Loop generando i singoli Report.
Il mio problema è che non so come scrivere questa parte del codice e dove inserirlo.
O
OsvaldoLaviosa
Super Famoso
Iscritto da
apr, 2012
Messaggi:
7433
Re: Esporta report pdf cliente e nome personalizzato
16 set 2019, 15:53
Non ti serve scrivere altro codice. Si tratta solo di trasformare la tua query in "query parametrica", ossia nel Criterio del campo Data scriverai qualcosa come
[Digita la Data da filtrare]
Ti apparirà una piccola finestra dove devi inserire la Data da filtrare. Tutto il resto del codice VBA resta inalterato.
N.B.: Quando vai a digitare la data, assicurati di farlo nello stesso FORMATO previsto dal campo stesso. Anche una piccola omissione o imprecisione di caratteri compromette l'eseguibiltà del parametro, quindi della query, quindi del report, quindi dell'export PDF.

Devi accedere o registrarti per scrivere nel forum

44 risposte