Come accedere Programmazione Macro

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