Newsgroup: it.comp.appl.access
Titolo: Stampare più report

Ciao a tutti
ho realizzato una maschera che mi visualizza i dati presi di una query
e tramite un bottone (per ciascun record) mi stampa il report
relativo.
Avrei bisogno di realizzare (nella stessa maschera) un pulsante che mi
permetta di stampare in automatico tutti i report che genera la
query....
....ho cercato anche su sitocomune ma non ho trovato nulla..a tal
proposito volevo fare una domanda....Ma i post del sitocomune sono
fermi al 2000????
grazie 1000


Ciao,
immagino che il recorsource non sia lo stesso per la maschera e per il
report giusto?
immagino che al report tu passi un "parametro" (che puo' essere un ID,
piuttosto che altro) che e' il report che gli passi .
Se e' cosě devi fare sul bottone un loop sul recordset della query del tipo:
While Not RecordsetQueryMaschera.eof
          docmd.openreport "nomereport"
          RecordsetQueryMaschera.movenext
Whend
Ciao e fammmi sapere se va
Alessandro

 Ciao e fammmi sapere se va
ho provato ma mi risponde "necessario oggetto"
ma  il RecordsetQueryMaschera che cosa č ?????
Grazie 1000 dell'aiuto Alessandro
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 Grazie 1000 dell'aiuto Alessandro
Ciao,
Il  RecordsetQueryMaschera e' ilre cordsetche devi aprire utilizzando la
query che e' origine della maschera
Sempre sul click del bottone
Dim rs as recordset
dim db as database
set db = currentdb
set rs = currentdb.openrecordset "Select........ecc....."   -----> questa
deve essere la query della maschera
rs.movefirst
poi quello che ti ho postato prima.
Cosi' dovrebbe andare fammi sapere ciao e figurati e' un piacere

 Cosi' dovrebbe andare fammi sapere ciao e figurati e' un piacere
Ciao Alessandro 
ho seguito le tue istruzioni ma mi da sempre errore di sintassi......ho
copiato SQL generato dalla mia Query
    set rs = CurrentDb.openrecordset "SELECT Contratto.Codcontratto,
Contratto.DataInizio, Contratto.DataFine, Clienti.Nome, Clienti.Cognome,
Contratto.IDappartamento, Contratto.Clientitour FROM Appartamento INNER
JOIN (Clienti INNER JOIN Contratto ON Clienti.ID = Contratto.ID_Cliente)
ON Appartamento.IDappartamento = Contratto.IDappartamento WHERE
(((Contratto.DataInizio)>=[Forms]![SceltaPeriodoXRicevute]![datainizioPeriodo]
And
(Contratto.DataInizio)<=[Forms]![SceltaPeriodoXRicevute]![DatafinePeriodo]))"
e mi da sempre errore di sintassi......
ho provato anche a fare:
    set rs = CurrentDb.openrecordset "MiaQuery"
ma il risultato non cambia.....
ma dove sbaglio?????
grazie


 grazie
Ciao,
dunque e' male impostata la query per essere passata da codice(le righe che
ti ho segnato con * le ho corrette)
strsql = strsql & "SELECT Contratto.Codcontratto, "
strsql = strsql & "Contratto.DataInizio, Contratto.DataFine, Clienti.Nome,
Clienti.Cognome, "
strsql = strsql &  "Contratto.IDappartamento, Contratto.Clientitour "
strsql = strsql &  "FROM Appartamento "
strsql = strsql &  "INNER JOIN (Clienti INNER JOIN Contratto ON Clienti.ID =
Contratto.ID_Cliente) "
strsql = strsql &  "ON Appartamento.IDappartamento =
Contratto.IDappartamento "
*strsql = strsql &  "WHERE (((Contratto.DataInizio)>= # " &
format$([Forms]![SceltaPeriodoXRicevute]![datainizioPeriodo],"mm/dd/yy") &
"# And "
*strsql = strsql &   "(Contratto.DataInizio)<=#  " &
format$([Forms]![SceltaPeriodoXRicevute]![DatafinePeriodo],],"mm/dd/yy"))) &
"#;"
set rs = CurrentDb.openrecordset  (strsql, dbopensnapshot )
Ciao e spero di averti aiutato
Alessandro

 news:VQht8.17051$SR5.4...@twister1.libero.it...
OK ho scoperto l'errore di sintassi (mancavano le parentesi prima della
Qry)
Ho eseguito l'operazione ma mi dice che il tipo di oggetto non è
definito
(credo si riferisca a: Dim db as database)
e se tolgo le due righe 
Dim db as database
Set db = currentDb
Mi dice che sono previsti due parametri....
...non ci sto capendo + nullaaaaaaaaaaaa
Ciao e grazie di nuovo


 Ciao e grazie di nuovo
Ciao,
Vai sull'editor di VBA
e da Strumenti-->Riferimenti-->Flagga la libreria "Microsoft Dao 3.51 object
library"
e riaggiungi le due righe
Ciao
Alessandro

 Alessandro
Okkappa avevo letto sulla guida ma andavo a cercare dal menů strumenti
di access....che pirlotto..
comunque mi chiede sempre i 2 Parametri, come se non li prendesse nella
Query....eppure la maschera che passa tali parametri
č aperta.....????
Ciao


 Ciao
Ciao,
Prova ad inserire un punto di interruzione alla fine della creazione della
stringa e nella finestra "immediata" verifica il contenuto della stringa(
?nomestringa)
poi prova apostarla che vediamo il problema
Ciao Alessandro

 Ciao Alessandro
Scusa Alessandro la mia ....ehm....durezza....
allora....ho inserito invece della stringa la query che genera la
maschera
(che per incisovisualizza tutti i dati) 
Set rs = CurrentDb.openrecordset("QListaXricevute")
e mi chiede sempre i due parametri (che credo siano quelli della mia
query)
Poi ho sostituito in nome della query con la tua ultima stringa ma mi
dava errori di sintassi al formato della data
togliendolo non da problemi ma in esecuzione mi risponde un popup
NECESSARIO OGGETTO
eppure ho dimensionato tutto anche la stringa..
Provo a postarti la routine che scrive:
Private Sub stpricevute_Click()
On Error GoTo Err_stpricevute_Click
    Dim stDocName As String
    Dim strsql As String
    Dim rs As Recordset
    Dim db As Database
    strsql = strsql & "SELECT Contratto.Codcontratto, "
strsql = strsql & "Contratto.DataInizio, Contratto.DataFine,
Clienti.Nome,"
Clienti.Cognome , ""
strsql = strsql & "Contratto.IDappartamento, Contratto.Clientitour "
strsql = strsql & "FROM Appartamento "
strsql = strsql & "INNER JOIN (Clienti INNER JOIN Contratto ON
Clienti.ID = Contratto.ID_Cliente) "
strsql = strsql & "ON Appartamento.IDappartamento ="
Contratto.IDappartamento ""
strsql = strsql & "WHERE (((Contratto.DataInizio)>= #
format$([Forms]![SceltaPeriodoXRicevute]![DatainizioPeriodo])# And "
strsql = strsql & "(Contratto.DataInizio)<=#
format$([Forms]![SceltaPeriodoXRicevute]![DatafinePeriodo],]))) #;"
Set db = CurrentDb
Set rs = CurrentDb.openrecordset(strsql)
 
   ' Set rs = CurrentDb.openrecordset("QListaXricevute")
 
    rs.MoveFirst
    stDocName = "Ricevute"
    While Not rs.EOF
          DoCmd.OpenReport stDocName, acPreview
          rs.MoveNext
    Wend
 
Exit_stpricevute_Click:
    Exit Sub
Err_stpricevute_Click:
    MsgBox Err.Description
    Resume Exit_stpricevute_Click
 
End Sub 
Grazie 1000


   *  strsql = strsql &
"(Contratto.DataInizio)<=#format$([Forms]![SceltaPeriodoXRicevute]![Datafine
Periodo],]))) #;"
Ciao,
Le rigne astreriscate hanno un piccolo errore, devono avere gli apici e la
concatenazione
*  strsql = strsql & "WHERE (((Contratto.DataInizio)>= # " &
format$([Forms]![SceltaPeriodoXRicevute]![DatainizioPeriodo]) & "# And "
 
        ---------                                                           
                                   --------
*  strsql = strsql & "(Contratto.DataInizio)<=#" &
format$([Forms]![SceltaPeriodoXRicevute]![DatafinePeriodo] &"#))) ;"
                                                                 ---------  
 
             ---------
Ciao Alessandro