Newsgroup: it.comp.appl.access
Titolo: associare report in sendobject

c'è qualcuno che mi può dire come dovrei fare per associare al report
,che ha come origine dati la sottomaschera da cui prendo i dati per il
ciclo, solo il record a cui sto spedendo?non voglio spedire tutto il
report a tutti ma solo quello con i dati del record
grazie anche solo per un consiglio
Set rst = Me.[Sottomaschera].Form.RecordsetClone
rst.MoveFirst
Do Until rst.EOF
  email = rst.Fields("e-mail")
 
  DoCmd.SendObject acReport, "prova", acFormatRTF, email, "
t...@io.it
",
"
n...@io.it
", "report da access", "ti invio il report di access", True,
""
  rst.MoveNext
Loop
rst.Close
Set rst = Nothing

 ha scritto nel messaggio
news:32b66fac.03082...@posting.google.com...

Creati un report ad hoc e invia quello
MAssimiliano

 MAssimiliano
Ehm qualcosa ad hoc cosa intendi dire... se fossi su maschera potrei
inviare una cosa tipo docmd.openreport "NomeReport",,, "[ID] = " &
[Forms]![Nome
sottomaschera]![id]
ma in questo caso .. come dovrei comportarmi?
Elisa

 >

L'origine del report avrà come criterio proprio
forms!tuamaschera!tuasottomaschera!id
quindi già il report vedrà solo quello.
Alla fine invii questo report e non quello che cmq mantieni e presenta tutti
gli id
Posta se hai ancora problemi
ciao MAssimiliano

 ciao MAssimiliano
In effetti un altro problema ce l'avrei..ed è sicuramente più
difficile
in una situazione simile all'altra maschera con sottomaschera di
ricerca ma ora il record lo devo spedire in automatico alla sua e-mail
hai qualche indicazione da darmi mi sarebbe molto utile per ora sono
in alto mare
grazie ancora Elisa

 ha scritto nel messaggio
news:32b66fac.03082...@posting.google.com...

Ti ripeto sperando di essere + chiaro.
Tu hai la tua maschera con sottomaschera. Il cursore è sul record della
sottomaschera che ha l'id contatore 123.
Ti crei il report con la stessa query che è origine della sottomaschera,
solo che nella struttura della query del report ci inserisci sotto il campo
id il criterio forms!tuamaschera!tuasottomaschera!id.
Il report avrà solo quel record attivo: la selezione l'hai fatta sul report,
non c'è bisogno di filtrare col sendobject, infatti dovrai mandare tutto il
report già filtrato alla fonte.
MAssimiliano

 MAssimiliano
Grazie del chiarimento, mi è sicuramente d'aiuto ma ho bisogno di
risolvere anche questo problema:
ho una maschera di ricerca
ho una sottomaschera con i risultati…..fin qui tutto ok!la
sottomaschera è in foglio dati non so se serve
a questo punto per ogni record della ricerca , cliccando un pulsante ,
deve partire il proprio report verso il proprio indirizzo e-mail
quindi anche per quelli in cui il cursore non è posizionato
Mi sono accorta di non essermi spiegata bene prima...
Elisa

Un grazie a Massimiliano che mi ha fatto pensare...
la soluzione non è elegante ma la posto visto le mie difficoltà,mi ha
fatto sputare sangue ,e a qualcuno magari serve..
Dim prova As Report
Dim rst, rstfilter As Recordset
Set rst = Me.[Sottomaschera ricerca strutture unità
operative].Form.RecordsetClone
rst.MoveFirst
Do Until rst.EOF
  email = rst.Fields("e-mail")
  uo = rst.Fields("unità operative")
  Dim stCriteri As String
    stCriteri = "[unità operative]='" & uo & "'"
 
    stDocName = "prova"
    DoCmd.OpenReport stDocName, acPreview, , stCriteri
 
 
  DoCmd.SendObject acReport, "prova", acFormatRTF, email, "
t...@io.it
",
"
n...@io.it
", "report da access", "ti invio il report di access", True,
""
DoCmd.Close acReport, stDocName, acSaveNo
  rst.MoveNext
Loop
rst.Close
Set rst = Nothing
Ciao a tutti Elisa

 Ciao a tutti Elisa
ciao MAssimiliano