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 ExcelCome utilizzare il codice VBA per eseguire una query di Access
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
Passo 2: Fare clic sul pulsante Esegui o su F5 per eseguire la query di Access.
2 risposte
Ciao Anson, provo a scoprire come, ma non ci riesco….. (aaargggghhh)
Ho un semplice MDB (accessDB) con una tabella LoginUserDB
Sono presenti 3 campi: UserName UserShortName LastLogIn
UserShortName = un campo data, gli altri due (UserName e UserShortName) sono campi di testo
Quale sarà il modo migliore, se voglio cercare tutti:
NomeUtente = anson.antony
e aggiorna il campo: UserShortName a XXX
e il campo LastLogIn to Format(Now, “DD.MM.YYYY”) (data effettiva)
Scusa se ti disturbo, ma provo modi così diversi senza risultati….
grazie in anticipo
Pedro
Risolto = Grazie e scusa!