Newsgroup: it.comp.appl.access
Titolo: Come evitare 'sbampolamento' del video al caricamento seconda istanza Access

Dal codice di un file MDB vado a leggermi i report disponibili su un secondo 
file MDB
Uso il seguente codice
------------------------------------------------
    If Len(Dir(Application.CurrentProject.Path & "\" & nome_file_report)) > 
0 Then
        Set objAccess = New Access.Application
        objAccess.OpenCurrentDatabase Application.CurrentProject.Path & "\" 
& nome_file_report
        For count = 0 To 
objAccess.Application.CurrentProject.AllReports.count - 1
            cmbNomeReport.AddItem 
objAccess.Application.CurrentProject.AllReports(count).Name
            Next count
        objAccess.Quit: Set objAccess = Nothing
        End If
------------------------------------------------
Funziona, pero'.....
....ogni volta che viene eseguito questo codice, mi parte anche la schermata 
della form iniziale del  nome_file_report.mdb
Nessun problema funzionale, ma vorrei evitare di far vedere 'sto piccolo 
flash all'operatore
Come potrei fare ?

 ha scritto nel messaggio
news:479d9685$1...@newsgate.x-privat.org...

Prova ad usare
Docmd.Echo = False
...... tutto il codice
Docmd.Echo = True
Fai attenzione alla gestione errori perchè se non rimetti Echo = True e si
verifica un'errore è un macello...
-- 
@Alex (Alessandro Baraldi)
---------------------------------------------------------------------------
http://www.sitocomune.com/
http://www.alessandrobaraldi.it
---------------------------------------------------------------------------


Provato, ma non funzia
Sbampola
Ciao e grazie
RobertoA 

 ha scritto nel messaggio 
news:479d9685$1...@newsgate.x-privat.org...

Prova con: Application.Echo False/True
e ricorda l'avvertimento di Alessandro...
Ciao.
-- 
Sergio MAZZA 


Ho provato ma non funziona
Ciao e grazie
RobertoA 

 RobertoA
Non č per sfiducia, ma se includessi anche il codice, magari si puň capire 
se trattasi di errorio mio o tuo.
Comunque visto che stai utilizzando OLE puoi prova cosě:
...
Set objAccess = New Access.Application
objAccess.Visible False
...
Ciao.
-- 
Sergio MAZZA 

 objAccess.Visible False
Veramente avevo gia' messo il codice, comunque eccolo qua
----------------------------------------------------
    If Len(Dir(Application.CurrentProject.Path & "\" & nome_file_report)) > 
0 Then
        DoCmd.Echo False
        Set objAccess = New Access.Application
        objAccess.OpenCurrentDatabase Application.CurrentProject.Path & "\" 
& nome_file_report
        For count = 0 To 
objAccess.Application.CurrentProject.AllReports.count - 1
            cmbNomeReport.AddItem 
objAccess.Application.CurrentProject.AllReports(count).Name
            Next count
        objAccess.Quit
        Set objAccess = Nothing
        DoCmd.Echo True
        End If
----------------------------------------------------
Ma non funzia nel senso che 'sbampola' ancora
Provato anche col   objAccess.visible=false    niente di niente
Ciao e grazie
RobertoA

 ----------------------------------------------------
Ciao.
-- 
Sergio MAZZA 

 (riepilogo)
Gia' a volte le cose che sembrano stupidaggini sono le piu' fastidiose se 
non si riesce a risolverle
Ciao
RobertoA