Microsoft Access è il programma di database della suite Microsoft Office. Gli sviluppatori di personalizzare questa suite, scrivendo programmi nel suo linguaggio di programmazione, Visual Basic, Applications Edition (VBA). Programmazione di accesso comporta l'uso di VBA per creare e manipolare oggetti di database, comprese le relazioni, tabelle, query e moduli di immissione dati. Ad esempio, VBA può compilare automaticamente il campo "genere" in un modulo per l'inserimento di informazioni abbonati rivista, quando la persona che utilizza il modulo entra nomi comuni nel campo "nome di battesimo". Programmazione di accesso ti dà la possibilità di fare attività di data-entry e recupero più facile per gli utenti della tua squadra.

istruzione

1 Open Access e premere il tasto "Alt-F11" per entrare nell'ambiente di codifica (chiamato "IDE" per "ambiente di sviluppo integrato") per l'accesso.

2 Fare clic sulla voce "Modulo" del menu "Inserisci" per creare una nuova finestra per l'inserimento del codice.

3 Incollare nella finestra del codice il seguente codice di programma, che crea una tabella con VBA:

Sub makeATable ()

db fioco come database, td Come TableDef, F come campo

Set db = CurrentDb

Set TBL = dbs.CreateTableDef ( "Userinfo")

Set FLD = tbl.CreateField ( "Nome", dbText)

tbl.Fields.Append f

dbs.TableDefs.Append tb

'dbs.TableDefs.Refresh

End Sub

4 Eseguire il programma facendo clic su qualsiasi dichiarazione in esso e premendo il tasto "F5".

5 Premere il tasto "Alt-F11" per tornare all'interfaccia di accesso principale, quindi fare clic sul pulsante del pannello di navigazione "<<", poi il suo pulsante ">>". Vedrete una nuova tabella creata dal programma. Per saperne di più informazioni sulla creazione di tabelle con VBA sulla pagina di MSDN "Creazione ed eliminare tabelle" pagina.

6 Tipo un paio di nomi di esempio nella nuova tabella di fornire i dati per la query VBA si creerà la prossima.

7 Premere il tasto "Alt-F11" per tornare all'ambiente codifica e incolla questo nuovo sub-routine di sotto il primo che ha scritto:

Public Sub makeQuery ()

db fioco come DAO.Database

qd fioco come DAO.QueryDef

Dim str As String

Set db = CurrentDb

On Error GoTo DontDelete

db.QueryDefs.Delete "QUSER"

DontDelete:

str = "SELECT * FROM Userinfo;"

Set qd = DB.CreateQueryDef ( "QUSER", str)

End Sub

8 Eseguire il nuovo sub-routine di come avete fatto il primo, per poi tornare ad Access e cerca la nuova query il codice creato. Si chiama "QUSER."

9 Fare doppio clic su "QUSER" per eseguire la query. L'accesso visualizzerà tutti i nomi inseriti nella tabella "Userinfo".

10 Creare un report facendo clic sulla voce "Userinfo" nel pannello di navigazione, quindi facendo clic su "Report" sulla barra degli strumenti. Potrai scrivere un programma VBA che filtra il rapporto per un valore specifico immesso al punto 6.

11 Fare clic sulla scheda del nuovo rapporto e selezionare "visualizzazione struttura". Fare clic sulla freccia rivolta verso il basso nel caso "On Load" della scheda di "Evento" del rapporto a destra dello schermo. Questa azione si tornerà alla VBA.

12 Incollare il seguente codice nel IDE. Sostituire il testo "<inserire il valore di una fila PARTICOLARE>" con qualsiasi particolare valore immesso nel passaggio 6.

Private Sub Report_Load ()

Me.Filter = "firstName =" "<inserire il valore di una fila PARTICOLARE>" ""

Me.FilterOn = True

End Sub

13 Eseguire il report premendo il tasto "Alt-F11" per tornare ad Access, fare clic sulla scheda e selezionando il rapporto "Report View." Access visualizzare il report, che mostrerà solo il record digitato per il filtro nel passaggio 12. Per saperne di più su come utilizzare VBA relazioni sulla pagina Rapporti di accesso.