Newsgroup: it.comp.appl.access
Titolo: Unico Report

Salve a tutti.
Ho un Report in cui nell'origine dati nel campo data documento ho
messo il criterio che mi deve restituire i record maggiori di una data
e minori di un'altra.
Su evento su apertura del report ho messo l'apertura di una form dove
inserire le due date e funziona tutto.
Per consentire dalla maschera di inserimento la stampa del report
limitatamente al record su cui si è terminato l'inserimento ho
inserito un pulsante che apre il report con il criterio
dell'IdDocumento.
Come faccio in questo caso a non far aprire la maschera  dove inserire
le date?
Devo creare due report uguali ma uno con l'evento su apertura e
l'altro no o c'è un modo per usare un unico report che si apre in base
alla form da cui si lancia il comando?
Spero di essere stato chiaro.
Grazie.
Giuseppe.

"Giuseppe"  ha scritto nel messaggio 
news:1c486ebd-9fc9-49fc...@i14g2000yqe.googlegroups.com...

_______________Risposta:
Cambia a volo l'origine del report in base a come vuoi fare
MA

 Cambia a volo l'origine del report in base a come vuoi fare
Scusa MA  ma come si cambia a volo l'origine, devo scrivere l'origine
in Vba della maschera da cui parte il comando di apertura?
E modificarla anche nell'altra che deve far aprire la form  dove
inserire le date?
Giuseppe.

"Giuseppe"  ha scritto nel messaggio 
news:9f3ade75-27e8-44b2...@x1g2000yqb.googlegroups.com...


_______Risposta:
Per cambiare origine
Dim strOrigine as string
dim strFiltro as string
select case idDocumento
case 1
strfiltro = ""
case 2
    strfiltro = "Where tuadata between clng(" & inputbox ("inserisci la data 
inizio", "Ciao", date) & ") AND clng(" & inputbox ("inserisci la data 
inizio", "Ciao", date) & ")"
end select
    DoCmd.OpenReport "report1", acViewDesign, , , acHidden
Reports!report1.RecordSource = "SELECT * FROM tuatabella " & strfiltro
    DoCmd.OpenReport "report1", acViewPreview
Il report quindi è sempre uno
ciao
MA

 MA
Ciao Massimiliano e grazie per l'aiuto.
Qualche domanda.
Questo codice lo devo inserire sull'evento apertura del report?
E devo elimiare sempre su evento su apertura il codice che mi faceva
aprire la form dove inserire le date?
Nei criteri del campo non devo mettere niente?
Grazie e ciao.
Giuseppe.

"Giuseppe"  ha scritto nel messaggio 
news:903db290-b92c-40fa...@w21g2000yqm.googlegroups.com...


___Risposta:
se sei nella fattispecie 2 lui ti mostra gli inputbox che ti servono.
Togli ogni altro criterio
MA

 "Giuseppe"  ha scritto nel messaggionews:903db290-b92c-40fa...@w21g2000yqm.googlegroups.com...

Ricapitolando-
Ho creato una query come origine senza criteri.
Ho inserito su evento su apertura del report
Dim strOrigine As String
Dim strFiltro As String
Select Case idDocumento
Case 1
strFiltro = ""
Case 2
    strFiltro = "Where datadocumento between clng(" &
InputBox("inserisci la data inizio", "Ciao", Date) & ") AND clng(" &
InputBox("inserisci la data inizio", "Ciao", Date) & ")"
End Select
    DoCmd.OpenReport "AllegatoGi", acViewDesign, , , acHidden
Reports!AllegatoGi.RecordSource = "SELECT * FROM qryAllegatoG " &
strFiltro
    DoCmd.OpenReport "AllegatoGi", acViewPreview
dove datadocumento è il nome del campo data, qry allegatoG la query
origine del report e AllegatoGi il nome del report.
Se apro il report mi dò il seguente messaggio di errore
Errore di run-time '2585':
Impossibile eseguire questa azione durante l'elaborazione di un evento
di maschera o report.
Cosa c'è di sbagliato?
Scusa MA, un ultimo aiuto.
Grazie. Giuseppe.

"Giuseppe"  ha scritto nel messaggio 
news:1ce5402a-0292-4909...@q12g2000prb.googlegroups.com...




________________Risposta:
Ciao tu vuoi aprire un report (tra l'altro in design) sull'apertura dello 
stesso report.
Mettilo nel pulsante che apre il report
MA

 MA
Ciao MA.
Ho messo il codice sul pulsante che deve aprire il report chiedendomi
da che data a data deve mostrarli e invece senza chiedermi il criterio
apre il report e mi mostra tutti i record.
Ho messo il codice sul pulsante della form che aprendo il report mi
deve aprire solo quello corrsipondente e me li apre tutti.
Il codice è:
 Dim strOrigine As String
Dim strFiltro As String
Select Case Id
Case 1
strFiltro = ""
Case 2
    strFiltro = "Where datadocumento between clng(" &
InputBox("inserisci la data inizio", "Ciao", Date) & ") AND clng(" &
InputBox("inserisci la data inizio", "Ciao", Date) & ")"
End Select
    DoCmd.OpenReport "AllegatoGi", acViewDesign, , , acHidden
Reports!AllegatoGi.RecordSource = "SELECT * FROM qryAllegatoG " &
strFiltro
    DoCmd.OpenReport "AllegatoGi", acViewPreview
Ho solo cambiato
Select Case Iddocumento
in Select Case Id
perchè id è il nome del campo e del controllo nella form.
Scusami ma non ci riesco a risolverlo da solo.
Grazie.
Giuseppe.

"Giuseppe"  ha scritto nel messaggio 
news:35da370d-2ab1-48b5...@r6g2000vbo.googlegroups.com...







_______________Risposta:
Guarda additem come metodo della combo
MA

 "Giuseppe"  ha scritto nel messaggionews:35da370d-2ab1-48b5...@r6g2000vbo.googlegroups.com...

Scusa MA ma la combo finora non l'avevo considerata.
Poi non so su cosa fare la combo e come applicare il metodo additem.
Non c'è un esempio sul sito comune o da qualche altra parte? O, visto
che l'apertura del report la posso fare da due maschere, indicare per
entrambi l'origine e il criterio sul pulsante che apre il report
secondo la necessità?
Scusami ancora MA ma il tuo metodo sicuramente più efficace non riesco
ad applicarlo.
Grazie.
Giuseppe.

"Giuseppe"  ha scritto nel messaggio 
news:77e9212a-c97b-4a0a...@a11g2000pro.googlegroups.com...


____Risposta:
Ops Giuseppe, scusa ma ho sbagliato post.
Per farmi perdonare se mi mandi il db (scremato di tutto) te lo sistemo
MA

 MA
Massimiliano te l'ho inviato.
Ciao.
Giuseppe.