Macro per l' accesso all'applicazione di database sono programmi che consentono di automatizzare attività quali la ricerca dei record o chiudere le finestre . Accesso utenti possono sviluppare questi programmi utilizzando il Visual Basic for Applications o VBA , ambiente di sviluppo . Un passo fondamentale per la creazione di macro per l'accesso è specificare lo scopo desiderato di compiere , come ad esempio l'eliminazione di record che soddisfano determinati criteri . La creazione di macro di Access consente di eseguire attività di gestione dei dati del tuo team di lavoro più velocemente e con meno errori rispetto ai metodi manuali. Istruzioni
1
Open Access e creare un nuovo database con il tasto " Ctrl " + " N." Fare clic su " Database vuoto ", quindi premere " Alt " + " F11 " per entrare nell'ambiente di sviluppo VBA integrato o IDE . Qui potrete creare le macro che mostrano le operazioni di database comuni di creazione di una tabella e di inserimento e il recupero dei dati da una tabella .
2
Clicca comando " Module" del menu Inserisci per effettuare una nuova finestra per l'inserimento codice della tua macro. Incolla il seguente subroutine nella finestra. Questa subroutine crea una definizione di query con il " CreateQueryDef " chiamata di funzione . La query "CREATE TABLE " il codice definisce utilizza la stessa sintassi SQL disponibili in griglia di struttura della query di Access. L'affermazione " dbase.QueryDefs (1). Eseguire" esegue la query tavolo -creazione.
Public Sub createTable ( ) per
Dim qdef Come DAO.QueryDef
Dim dbase come DAO.Database
Dim s As String
dbase = CurrentDb
s = " creare Kidsbooks tavola ( bookname testo ( 50 ) , autore del testo ( 50 ) ) "
qdef = dbase.CreateQueryDef ( " qCreateTable " , s ) per
dbase.QueryDefs ( 1) . esegui
End Sub
3
Clicca una dichiarazione nella subroutine , quindi premere " F5 " per eseguire " createTable . " Premere il tasto " Alt " + " F11 " per tornare all'interfaccia utente di accesso standard.
4
Chiudere e riaprire il riquadro di navigazione , fare clic freccia icone sua barra di titolo. Il riquadro visualizza la tabella Kidsbooks la subroutine creato .
5
Premete " Alt " + " F11 " per tornare alla vostra subroutine nell'IDE . Incolla il seguente nuovo sottoprogramma sotto la subroutine createTable . Le addTableRow sub inserisce una riga di dati nella tabella del programma createTable fatti . Questo nuovo programma funziona aprendo un oggetto recordset e chiamare il metodo AddNew di tale oggetto .
Public Sub addTableRow ( ) per
Dim dbase Come DAO.Database
Dim rst come DAO.Recordset
dbase = CurrentDb
Set rst = dbase.OpenRecordset ( " Kidsbooks " ) per
rst.AddNew
rst ! bookname = " il mago di Oz "
rst ! Autore = " Frank Baum "
rst.Update
End Sub
6
eseguire il nuovo programma come avete fatto quello precedente . Tornare ad Access , quindi chiudere la tabella Kidsbooks facendo clic destro sulla scheda e facendo clic su " Chiudi ". Fare doppio clic su " Kidsbooks " nel pannello di navigazione per riaprire il tavolo e vedere la nuova voce della rubrica del programma aggiunto .
7
Incolla, nell'IDE , il seguente nuovo programma di seguito i due precedenti . Questo programma visualizzerà tutti i dati contenuti nella tabella Kidsbooks . Questo programma si apre un oggetto Recordset , come ha fatto il programma precedente . Questa volta , tuttavia, la funzione chiamata di MoveNext . Questa funzione sposta un indice interno per ciascuna delle righe della tabella Kidsbooks .
Public Sub showData ( ) per
Dim dbase Come DAO.Database
Dim rst come DAO . recordset
dbase = CurrentDb
Set rst = dbase.OpenRecordset ( " Kidsbooks " ) per
Dim s As String
Do While Not rst.EOF
s = " titolo del libro : " & RST [ BookName ] & "Autore: ". ! & RST [ Autore ]
MsgBox ( s ) per
rst.MoveNext !
loop
rst.Close
dbase.Close
End Sub
8
eseguire il programma come è stato eseguito il altri due. Il programma visualizza una finestra di messaggio che mostra la voce " Mago di Oz" .
