Codice VBA per eseguire una query di Access (con immagine)
Che cos'è?
Questo codice VBA consente di eseguire il programma Accesso da qualsiasi strumento supportato da VBA, come MS Excel, Word ecc.
Perché?
È possibile evitare il processo di apertura del DB ed esecuzione manuale della query; questo codice verrà eseguito anche da un Excel foglio senza aprire Access DB manualmente.
Se si utilizza l'opzione Importa Risultati della query di accesso Il codice discusso nel post precedente consente anche di ottenere i risultati della query in Excel, il tutto con un solo clic.
Codice VBA per importare dati di tabelle/query di Access in Excel
Come utilizzare il codice VBA per eseguire una query di Access
(adsbygoogle = window.adsbygoogle || []).push({});
Passo 1: Copiare e incollare il codice sottostante nel proprio modulo.
Dim myDB come database
Impostare myDB = OpenDatabase("C:\MYDATABASE.mdb") Indicare il percorso del DB e sostituire 'MYDATABASE' con il nome del DB di Access.
myDB.Esegui "myQuery" Sostituire 'myQuery' con il nome della query di Access.
myDB.close Usare questa opzione solo se si desidera chiudere il DB
Impostare myDB = OpenDatabase("C:\MYDATABASE.mdb") Indicare il percorso del DB e sostituire 'MYDATABASE' con il nome del DB di Access.
myDB.Esegui "myQuery" Sostituire 'myQuery' con il nome della query di Access.
myDB.close Usare questa opzione solo se si desidera chiudere il DB
Passo 2: Fare clic sul pulsante Esegui o su F5 per eseguire la query di Access.
2 Responses
Hello Anson, try to find out how, but I can’t….. (aaargggghhh)
I have a simple MDB (accessDB) with one table LoginUserDB
There are 3 fields: UserName UserShortName LastLogIn
UserShortName = a date field, the other two (UserName & UserShortName) are text fields
What will be the best way, if I want to search for all:
UserName = anson.antony
and update on that all, the field: UserShortName to XXX
and the field LastLogIn to Format(Now, “DD.MM.YYYY”) (actual date)
Sorry for bothering you, but I test so different ways without result….
Thanks in advance
Pedro
Resolved = Thanks and sorry !