Newsgroup: it.comp.appl.access
Titolo: visualizzare access da excel

ciao a tutti, ho un problema a cui non ho trovato soluzione nemmeno in
rete.
da access apro un file di excel e ci scrivo dei dati (lo uso come anteprima
di stampa ed eventuale stampa per questione di formattazione)
una volta deciso se stampare o meno il file di excel in primo piano devo
visualizzare nuovamente access per registrare i dati.
il codice per aprire il file di excel da access
	Dim oApp As Excel.Application
    Dim oWks As Excel.Workbook
        Set oApp = CreateObject("Excel.Application")
    Set oWks = oApp.Workbooks.Add("C:\xxxxxxxx.xlt")
        oApp.Visible = True
modificato coni riferimenti ad access invece che excel 
Dim oApp As Object
 
 Set oApp = CreateObject("Access.Application")
 
 Set obd = oApp.OpenCurrentdatabase
    oApp.Visible = True
Set oApp = Nothing
non genera errori ma non mi porta in primo piano access
sapete darmi una soluzione
ciao 
dario

"dario" <it.comp.appl.access> ha scritto nel messaggio 
news:1me87eau9bgdr.bxknwzr38kmh$.dlg@40tude.net...

Non ho ben capito il problema ma guardati questo esempio:
http://www.donkarl.com/it/
 - sito download CISA 1+2 - Automazione di Excel
Ciao.
-- 
Sergio MAZZA 

at last they were obliged to take
to boats in the mouth of the Mississippi and live there perpetually,
seldom stepping foot on land.
Now we are the better able to understand exactly what took place with
an aboriginal tribe in China. These aborigines were, centuries ago,
pushed southward by an on-coming civilization until at last, by
imperial decree, they were forbidden to live anywhere except on boats
in the mouth of the Canton river, floating up and down that stream,
and sailing about Hong Kong and Macao in the more open sea.
They must have been always a hardy people, for the river population
about Canton numbers today nearly 200,000 souls. In 1730, the severity
of the laws regulating their lives was relaxed somewhat by imperial
decree, and since then some of them have dwelt in villages along the
river bank. But to the present day these people, known as the Tanka
Tribe, or the "saltwater" people, by the natives, may not inter-marry
with other Chinese, nor are they ever allowed to attain to official
honors.
Living always on boats near the river's mouth, these were the first
Chinese to come in contact with foreign sailing vessels which
approached China in the earliest days. They sold their wares to the
foreigners; they piloted their boats into port; they did the laundry
work for the ships. In many ways they showed friendliness to the
foreigners while as yet the landsman viewed the new-comers with
suspicion. Their women were grossly corrupted by contact with the
foreign voyagers and sailors.
Hong Kong was a long way off at the beginning of the nineteenth
century, when Great Britain began to send Government-manufactured
opium from India to China, and when China prohibited the trade the
drug was smuggled in. When Chinese



Ho semplicemente la necessità, tramite la pressione di un pulsante
disegnato nel foglio di excel, di riportare in primo piano Access e avviare
una routine di access.
Automazione di Excel di CISA1 mi è servito da spunto per chiamare excel da
access, ma non ho visto come fare il contrario
ciao

 ciao
Il "contrario" lo fai (quasi) allo stesso modo ma poi devi pilotare tu excel 
in base a cosa vuoi fare con access.
Di solito si "pilota" una sola di applicazione dall'altra.
Comunque per avviare una routine di access da (es.) excel puoi fare:
'---
Dim oApp As Access.Application
Set oApp = CreateObject("Access.Application")
oApp.OpenCurrentDatabase "c:\documenti\nomeFile.mdb"
oApp.Run "nomeFunction/Sub"
oApp.Quit acQuitSaveNone
Set oApp = Nothing
'---
Ciao.
-- 
Sergio MAZZA 



Ok grazie
ciao