[Access - VBA] Open Report altro db

[VanessaInfo]

Salve a tutti,

devo poter aprire un report di un altro database, come si fa?

Avevo utilizztato, per contare i report di un db esterno, il seguente codice; ma poi per modificare alcune proprietà ho bisogno di aprire il report ed ovvimente il programma non lo trova perché temo che docmd.openreport sia locale.

Set db = OpenDatabase(Application.CurrentProject.Path & "\XX.mdb")
For IntRep = 0 To db.Containers("Reports").Documents.Count - 1       
<istruzioni>
Next IntRep

Attendo voi

Grazie

[VanessaInfo]

Forse questo va, per ora si blocca e non so perché ma in effetti il file poi lo apre:



Dim objAccess As Access.Application
Set objAccess = CreateObject("Access.Application")
objAccess.OpenCurrentDatabase (Application.CurrentProject.Path & "\xxx.mdb"), False
objAccess.DoCmd.OpenReport Nome_Rep
Set objAccess = Nothing

[VanessaInfo]

Originariamente inviato da VanessaInfo
Forse questo va, per ora si blocca e non so perché ma in effetti il file poi lo apre:



Dim objAccess As Access.Application
Set objAccess = CreateObject("Access.Application")
objAccess.OpenCurrentDatabase (Application.CurrentProject.Path & "\xxx.mdb"), False
objAccess.DoCmd.OpenReport Nome_Rep
Set objAccess = Nothing

si blocca alla exe della seconda riga, se termino il programma in uso poi l'mdb me lo apre.

Bo..attendo vs risposte

grazie

[VanessaInfo]

Le istruzioni sono queste:

Set objAccess = CreateObject("Access.Application")
objAccess.OpenCurrentDatabase ("percorso mdb")
Set db = objAccess.CurrentDb

o piùsemplicemente

Set db = OpenDatabase(Percorso_File)


Il problema era che il programma richiedeva l'accesso per cui finché nn davo l'accesso nn era aperto!


Grazie

Il problema dell'open report rimane, docmd.openreport apre in locale...come aprire un report d altro db? objAccess.docmd.openreport?

[VanessaInfo]

Come intuito in effetti

objAccess.DoCmd.OpenReport

è l'istruzione giusta.