Newsgroup: it.comp.appl.access
Titolo: Ricavare la Query che è Origine Record di un Report

Vorrei memorizzare in una tabella il nome del Report , la query di
Origine Record e altre cose
Ho creato una maschere con una combobox che ricava i nomi dei report
presenti nel DB (da MsysObjects)
Seleziono nalla Combo il report di interesse e vorrei che in una
casella testo  apparisse il nome della Query di Origine
(ad esempio sfruttando l'evento afterUptate)
Qualcuno ha una soluzione )
Grazie Carlo

 ha scritto nel messaggio 
news:1129633768.1...@g44g2000cwa.googlegroups.com...

Una soluzione c'è ma implica l'apertura e le successiva chiusura di ciascun 
report.
Il problema non è tanto aprire i report ma eventuali parametri dipendenti da 
maschere creerebbero degli intoppi.
Questo un esempio:
Sub ElecaSourceReport()
    Dim rpt As Report
    Dim rcs As Recordset, i As Integer
    Set rcs = CurrentDb.OpenRecordset("SELECT MSysObjects.Type, 
MSysObjects.Name FROM MSysObjects WHERE (((MSysObjects.Type)=-32764));")
 rcs.MoveLast
 rcs.MoveFirst
    For i = 1 To rcs.RecordCount
    DoCmd.OpenReport rcs!Name, acViewPreview
'qui puoi aprirlo in struttura se usi la versione full e non runtime
    For Each rpt In Reports
        'qui metti il tuo codice per la visualizzazione
    Debug.Print rpt.RecordSource
    Next rpt
    DoCmd.Close acReport, rcs!Name
    rcs.MoveNext
Next i
rcs.Close
Set rcs = Nothing
End Sub
Ciao, Carlo 

 wrote in message
news:1129633768.1...@g44g2000cwa.googlegroups.com

Per la memorizzazione Carlo Costarella ti ha dato il suggerimento
più idoneo, se invece vuoi anche una cosa Runtime dinamica puoi
implementare come sotto.
Devi perforza aprire il Report, pertanto su evento
AfterUpdate io farei così:
Docmd.Openreport Me!ComboReport,acViewPreview,,acHidden
Me!NomeTextBox=Reports(Me!ComboReport).RecordSource
Docmd.Close acReport,Me!ComboReport
Ciao
@Alex
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 ha scritto nel messaggio 
news:1129633768.1...@g44g2000cwa.googlegroups.com...

ciao,
usando il codice che già ti hanno suggerito io aprirei i report in modalità 
struttura (acViewDesign anzichè acViewPreview), sempre nascosti, in modo che 
le query sottostanti non vengano eseguite con risparmio di tempo ed evitando 
gli eventuali errori relativi a parametri che fanno riferimento a maschere 
chiuse di cui diceva Carlo.
Ciao,
Mat. 


Stò sercando di ampliare le funzionalità di una maschera che
attraverso filtri in cascata  permette all'utente (attraverso un gruppo
di opzioni)  di visualizzare report in anteprima, stamparli, o inviarli
tramite email in formato Snapviewer.  (sono arrivato con successo fino
a qui)
Per fare ciò ho creato una tabella "tblMessaggi" nella quale memorizzo
- ID contatore
- il nome report
- il formato di esportazione (Snapviewer)
- Il campo TO (per invio e.mail)
- il campo CC (per invio e.mail)
- il campo CCN (per invio e.mail)
- il campo Oggetto ( precompilato  a:  invio eport (nome Report) del
(data corrente)
- il campo testoMessaggio ( precompilato  a " bla bla ..."
Ho creato una routine che a seconda della Opzione "Anteprima, Stampa,
Email"  legge  tblmessaggi ed effettua l'invio del Report in "Anteprima
o Stampa o Email"
L'invio tramite
          DoCmd.SendObject acReport, mioreport, formatoXls,............
non si presta ad un successivo riutilizzo  data l'impaginazione del
report
Ho preso spunto dall'esmpio di Carlo Costarella dal Sito Comune :
Esportazione Selettiva  e volevo ampliare le fuzionalità  dei pulsanti
di comando della mia maschera  anche all'esportazione di dati in excel
.
Pensavo come indicato nel precedente Post di poter leggere la Query
origine record del report  e memorizzarla nella tabella tblMessaggi
Putroppo come già indicato da Carlo Costarella  le query che filtrano
la Maschera di selezione dei dati hanno dei parametri dipendenti e la
routine di Carlo Costarella  si  ferma in attesa di parametri .
Altre idee ??

 ha scritto nel messaggio 
news:1129643104....@o13g2000cwo.googlegroups.com...










Altre idee ??
si, apri i report in modalità struttura
Mat.

Potone ha scritto:

Proverò intanto grazie per i suggerimenti

Problema risolto .
Grazie al suggerimento di ALEX  e la precisazione di POTONE