Newsgroup: it.comp.appl.access
Titolo: report vuoto da non inviare

Ciao ragazzi,
ho creato un pezzo di codice che mi invia delle mail con allegato il
reports legato al destinatario.
Quando ho un destinatario a cui non devo inviare niente mi viene
creato lo stesso l'allegato con nessun dettaglio
più precisamente è presente l'intestazione è al posto degli dettagli
c'è un #errore.
C'è una funzione che mi permette di evitare questo ? o devo cambiare
tutto il codice:
Ho ache un altro piccolo dispiacere, i file mi vengono salvati sul
desktop e non è piacevole. E' possibile salvarli ad esempio nella c:
\TEMP
Grazie artu
qui sotto il pezzo di codice
 SetDefaultPrinter ("Adobe PDF") 'definisce la stampante di default
    While Not TABELLA_FIL.EOF
       idfiliale = TABELLA_FIL!cod_filiale
       DoCmd.OpenReport "R_Lista_da_inviare", acViewDesign 'Apro la
stampa
       Reports![R_Lista_da_inviare].Caption = "R_Lista_da_inviare_" &
idfiliale  'gli cambio etichetta
        DoCmd.Close acReport, "R_Lista_da_inviare", acSaveYes 'salvo
il report con nome+codice
        DoCmd.OpenReport "R_Lista_da_inviare", acNormal, , "FIL = " &
TABELLA_FIL!cod_filiale ' salvo su desktop
       SendMail TABELLA_FIL!Des_Filiale, corpo_mail, TABELLA_FIL!MAIL,
"", "", "", "C:\Documents and
                      Settings\pippo\Desktop\R_Lista_da_inviare_" &
TABELLA_FIL!cod_filiale & ".PDF", True ' invio con allegato
 TABELLA_FIL.MoveNext
   Wend

"Mario Marticati"  ha scritto nel messaggio 
news:4617e8b9-d8d8-4843...@s3g2000vbf.googlegroups.com...



TABELLA_FIL.MoveNext
   Wend
_______________Risposta:
Ciao
fai un test prima di creare il report
se ci sono dati invii altrimenti passi al prossimo
Non fai riferimento ai campi della tabella quindi i miei riferimenti sono 
generici
dim i as integer
While Not TABELLA_FIL.EOF
   idfiliale = TABELLA_FIL!cod_filiale
i = dcount("[tuocampo]","tuatabella", "tuoid = " & TABELLA_FIL!cod_filiale
if i >0 then
DoCmd.OpenReport "R_Lista_da_inviare", acViewDesign 'Apro la stampa
Reports![R_Lista_da_inviare].Caption = "R_Lista_da_inviare_" & idfiliale 
'gli cambio etichetta
DoCmd.Close acReport, "R_Lista_da_inviare", acSaveYes 'salvo il report con 
nome+codice
DoCmd.OpenReport "R_Lista_da_inviare", acNormal, , "FIL = " & 
TABELLA_FIL!cod_filiale ' salvo su desktop
SendMail TABELLA_FIL!Des_Filiale, corpo_mail, TABELLA_FIL!MAIL, "", "", "", 
"C:\Documents and Settings\pippo\Desktop\R_Lista_da_inviare_" & 
TABELLA_FIL!cod_filiale & ".PDF", True ' invio con allegato
end if
TABELLA_FIL.MoveNext
  Wend

 \TEMP
Non capisco perche' apri il report in Design mode
Cambia il path seguente in quello che piu' preferisci
C:\Documents and Settings\pippo\Desktop\R_Lista_da_inviare_" & 
TABELLA_FIL!cod_filiale&  ".PDF"
-- 
ac (x=y-1)

"Alessandro Cara"  ha scritto nel messaggio 
news:4fMbp.2983$2w1...@tornado.fastwebnet.it...



-- 
Cambia la caption
MA


Cambia la caption
MA
Aridaje. Rispondi prima dei trattini per favore, altrimenti TB 
intrerpreta la risposta come appartenente alla "sign".
Ho capito che cambia la caption ma per modificarla deve "per forza" 
andare in design ?
Sparare alle mosche con un cannone non mi pare molto economico.
-- 
ac (x=y-1)

 ac (x=y-1)
No, la Caption può essere cambiata anche non andando a Design, ma
forse solo su OPEN passando un parametro ARGS.
Credo che l'evento in questione, debba ancora rigenerare il PAINT,
quindi dovrebbe andare.
Se non va, si può forzare l'equivalente del requery che di certo
genera anche l'aggiornamento della Caption, in tutti i modi da fare
da dentro il Report, su Activate, nel caso non vada quello di prima.
@Alex

 ac (x=y-1)
No, la Caption puň essere cambiata anche non andando a Design, ma
forse solo su OPEN passando un parametro ARGS.
Credo che l'evento in questione, debba ancora rigenerare il PAINT,
quindi dovrebbe andare.
Se non va, si puň forzare l'equivalente del requery che di certo
genera anche l'aggiornamento della Caption, in tutti i modi da fare
da dentro il Report, su Activate, nel caso non vada quello di prima.
@Alex
____________Risposta:
Ricordavo diversamente ma effettivamente cosě funzia
Private Sub Comando0_Click()
    Dim R As Access.Report
    Set R = Reports("Tabella1")
    R.Caption = "Pluto"
    DoCmd.OpenReport "TABELLA1"
End Sub

 End Sub
Ancora più semplice..., anch'io tuttavia pensavo che non
aggiornasse... meglio così.
@Alex