Newsgroup: it.comp.appl.access
Titolo: Mi presento e parto con un quesito!

Dopo alcuni giorni che vi leggo rompo gli indugi e mi presento:
Stefano, il ,mio contatto con l'informatica è nato con una calcolatrice HP e
il tentativo di allunare!!!!
passando dallo Spectrum all'Amiga 1000 per approdare ad un 386 e poi su, su
su fino al mio attuale Dual AMD 1800!
Non ho mai studiato informatica ma ho iniziato a ciapinare col Basic E lo
spectrum, mi piace pistolare DB dal DB3 a Paradox e oggi Access.
Quando mi imbatto in fogli di Excel mi viene la mania di trasformarli in DB
cosa che faccio anche sul lavoro.
Ora ecco un problemino.
Eredito un DB da un colllega, io l'ho proseguito dividendolo in tre
(originario dati interni 2002, mio dati interni 2003, interni 2004, esterni
globali, database di unione con maschere per gestire il rilascio di
certificati e report con tabelle collegate dai vari DB denominato Globale)
Ecco il problema da interno 2002, 2003, 2004 occorre lanciare un report che
è situato su globale, il mio tentativo è stato:
 #questo è il codice per il lancio del Report sullo stesso DB
Private Sub Scheda_Docente_Click()
On Error GoTo Err_Scheda_Docente_Click
    Dim stDocName As String
    stDocName = "rpt_scheda_docente"
    DoCmd.OpenReport stDocName, acPreview
Exit_Scheda_Docente_Click:
    Exit Sub
Err_Scheda_Docente_Click:
    MsgBox Err.Description
    Resume Exit_Scheda_Docente_Click
    
End Sub
Private Sub Comando77_Click()
On Error GoTo Err_Comando77_Click
    Dim stDocName As String
    stDocName = "report.rpt_scheda_docente!H:\DB_ECM\Globale_DB_ECM.mdb:"
    DoCmd.OpenReport stDocName, acPreview
    
    
Exit_Comando77_Click:
    Exit Sub
Err_Comando77_Click:
    MsgBox Err.Description
    Resume Exit_Comando77_Click
    
End Sub
Oviamente non funziona!
Dove ho sbagliato!

 ha scritto nel messaggio
news:vJF1d.5166$LV3....@nntpserver.swip.net...

Ciao Stefano,
benvenuto in questo NewsGroup.
Azzardo una risposta:
che io sappia, non è possibile da Access lanciare un report contenuto in un
altro Database Access (non l'ho  mai visto, ma attendo smentite!)
Secondo me hai  2 possibilità:
1) Importi il report nei db da cui lo devi stampare e colleghi le tabelle
che ti servono
2) Lo apri in un altra istanza di Access via Ole AutoMation usando  un
codice di questo tipo:
   Dim accApp As New Access.Application
    accApp.OpenCurrentDatabase "H:\DB_ECM\Globale_DB_ECM.mdb"
    accApp.DoCmd.OpenReport "rpt_scheda_docente", acViewNormal
    accApp.CloseCurrentDatabase
    Set accApp = Nothing
Spero di esserti stata di aiuto!
Se trovi qualche altra soluzione faccelo sapere!
Ciao
Cinzia

[CUT]
PS. Ho dimenticato di dirti nel post precedente che, onde evitare tirate di
orecchie da parte di tutti, č bene mettere un oggetto piů significativo che
so:
Stampare un report contenuto in un database esterno.
Questo non per bizzarria dei frequantatori ma per almeno 2  motivi:
1. chi risponde dal subject intuisce se sa rispondere evitando di leggersi
tutti i testi dei messaggi
2. chi cerca di risolvere un problema che ha dal titolo  puň intuire se il
messaggio puň essere significativo per lui oppure no!
Visto che sei nuovo per questa volta l'hai passata liscia! :)
Per tua informazione guarda le regole sull'uso del NewsGroup contenute sul
SitoComune.
Saluti
Cinzia

 ha scritto nel messaggio
news:ci7e07$ben$1...@lacerta.tiscalinet.it...

Potrebbe inserire il DB in questione nei Riferimenti del DB Master
come Libreria esterna ne acquisirebbe Metodi, Proprietà ovviamente
Pubblici ed Oggetti(Report in questo caso)
E' un'alternativa, ma trovo che non sempre sia buona cosa e non sempre
fattibile.
La tua 2° soluzione rimane la più diffusa.
Ciao
-- 
@Alex (Alessandro Baraldi)
---------------------------------------------------------------------------
http://www.sitocomune.com/
http://www.mantuanet.it/alessandro.baraldi/
---------------------------------------------------------------------------


Interessante!
Alla prima occasione  sperimento!
Hai per caso qualche esempio da segnalarmi che me lo studio?
Grazie
Cinzia

 Cinzia
No purtroppo di comodo nulla....ma sicuramente non avrai problemi.
Metti una form in un ExtMDB, lo inserisci come riferimento nel tuoMDB
e vedrai che dal visualizzatore Oggetti se selezioni come Libreria "ExtMDB"
ti appariranno Metodi Proprietà ecc........!!!
Per AXP le Classi vanno modificate, vale a dire devi esportarle in un TXT
e modificare alcuni attributi, quindi reimportarle:
Attribute VB_Name = "NomeClasse"
Attribute VB_GlobalNameSpace = False
'///    Se non modifichi questo non riesci ad ISTANZIARE la Classe
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
'///    Questo serve per renderla Esposta
Attribute VB_Exposed = True
P.S. in A97 bastava l'ultimo attributo Exposed, in XP no...!!
Ciao.


Cinzia ha scritto:

Il suggerimento di Alessandro l'ho utilizzo in questo modo.
In un modulo appartenente al DB contenente i reports inserisco:
 Public Function OpenReportExt(NomeReport As String)
 DoCmd.OpenReport NomeReport, acViewPreview
 End Function
Nel DataBase aperto richiamo da una maschera con una combo SceltaReport ed
un pulsante il report che mi interssa:
Private Sub PulsanteAnteprima_Click()
 On Error GoTo Err_PulsanteAnteprima_Click
    Dim stDocName As String
    stDocName = Me.SceltaReport
    OpenReportext stDocName
Exit_PulsanteAnteprima_Click:
    Exit Sub
Err_PulsanteAnteprima_Click:
    MsgBox Err.Description
    Resume Exit_PulsanteAnteprima_Click
End Sub
Logicamente inserisco il DB dei report nei Riferimenti.
--
rgrds
SC
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

 ha scritto nel messaggio news:vJF1d.5166$LV3....@nntpserver.swip.net...

Altra possibilità:
es.
Dim xReport As Report
'-- inizio riga lunga
Set xReport = Workspaces(0).OpenDatabase("c:\documenti\altroMdb.mdb").Containers!Reports!nomeReport
'-- fine riga lunga
xReport.Print
Set xReport = Nothing
Ciao.
-- 
Sergio MAZZA

 ha scritto nel messaggio
news:ci7ejl$buu$1...@lacerta.tiscalinet.it...
Per Alessandro: mi meraviglio di te!
Per Cinzia: oltre a rispondere a questo subject, anche sul quoting selvaggio
niente male!!!
Antonio

 ha scritto nel messaggio
news:ci7eff$br3$1...@lacerta.tiscalinet.it...

si č difesa in zona cesarini ...


Ciao Antonio e ben tornato!
Non voglio riaprire l'ennesima discussione sul quoting, ne ho appena chiusa
una la scorsa settimana! ma mi sembra sempre più evidente che ognuno
interpreta le regole del "quoting" alla sua maniera e io non ho ancora
trovato il modo per mettervi d'accordo tutti! Ma abbiate fede prima o poi ci
arrivo!
Per quanto  riguarda il subject hai certamente ragione, ma come avrai
sicuramente notato, gli ho anche fatto la "reprimenda" e sono sicura che la
prossima volta si comporterà "bene"!
Saluti
Cinzia

 prossima volta si comporterà "bene"!
Si, si, anch'io voglio fare "reprimenda"...mi piace, mi piace...
A parte gli scherzi (una risatina ogni tanto non fa male), al Subject
errato non si da risposta, ma si "reprimenda" solo, chiedendo che il 3d
venga ripostato correttamente...questo come ormai sai per una sorta di
"educazione" nell'utilizzo che sarà di sicuro utile a noi e a chi sbaglia
per le prime volte.
Ciao Cinzia.
:-)
PS.
Nel gruppo "YAHOO" vi sono delle proposte...abbiamo bisogno del parere e
della collaborazione di tutti gli iscritti...dagli un occhiata.
-- 
Pablitomf (Maurizio Facciuti)
“Quando non ti eserciti ricorda che qualcuno in qualche posto si sta
allenando e, quando lo incontrerai, ti batterà”.
Ed Macauley 



Ciao Pablito,
lo farei volontieri, ma mi manca l'invito!!!
Saluti
Cinzia

 Cinzia
Pablitomf prego...o Maurizio... :-D (scherzo)
il tuo indirizzo? Dai ti invito io.



Grazie Maurizio!
Togli No_Spam_please da quello che compare nei miei messaggi!
Cinzia

 il tuo indirizzo? Dai ti invito io.
Maurizio è sufficiente l'email non ti allargare ed
inizi a chiedere numero di telefono...
da dove scrivi...
che fai stasera...
l'inidirizzo mail e basta.
MAssimiliano

 MAssimiliano
Se, se... così ha detto la padrona!!!
.. già me la sento col fiato sul collo pronta eventualmente ad affondare
i canini. :-)
Maurizio


 Cinzia
Interessa un invito a cena?
Antonio

 arrivo!
La regola è questa: togliere tutto ciò che non è strettamente inerente alla
tua risposta per la comprensione del post.
Tu in questo caso hai dato una tua risposta con del tuo codice e il codice
postato da lui non c'entrava nulla. Quello poteva essere tagliato lasciando
magari la richiesta d'aiuto
Antonio

 Antonio
Azz... poi MA parla di me... questo è tacchinaggio!!!! :-)
Ciao Antò


 SitoComune.
 CHIEDO VENIA!!! 
Sono 5 anni che non bazzico più i News e mi ero scordato queste semplici
regole!!!!!
Ste