Visual Basic, Applications Edition (VBA ) è un linguaggio di programmazione utilizzato in applicazioni stand-alone , e anche per estendere le funzionalità dei programmi di Microsoft Office , tra cui il programma di creazione del database , Access. Alcune attività in Access si prestano naturalmente ad automazione con codice VBA , come ad esempio il calcolo di valori per i controlli aggiunti dall'utente nei rapporti. Al contrario, vista di struttura della query di Access non facilmente esporre le opportunità di valorizzazione con VBA . Eppure , un esempio applicato di una particolare caratteristica VBA vi mostrerà come VBA può aiutare a lavorare con la vista di struttura della query . Istruzioni
1

Open Access e creare una piccola tabella di indirizzi di posta elettronica . Utilizzare la tabella seguente , se non si dispone di uno esistente . Inserisci la prima fila dei seguenti dati come titolo della colonna singola della tabella.

Emaildsk@yahoo.comIndianaJones @ @ Hollywood.comHarryBelafonte Caribbean.com
2

Salvare la tabella di premendo il tasto " Control- S , " e digitare " EmailAddresses " per il nome della tabella . Salvare il database stesso premendo il tasto " Alt- F ", quindi selezionando " Salva database con nome . " Tipo " VBAFromAccessQuery " per il nome del database.
3

iniziare a creare un funzione personalizzata per l'utilizzo in una query prima macro che permettono nel database. Premere il tasto " Alt- F" per esporre il punto di menu " Opzioni" , quindi fare clic su tale voce.
4

Premere la voce " Centro protezione " nella finestra di dialogo " Opzioni di Access " , quindi fare clic sul pulsante " Impostazioni Centro protezione " . Premere la voce " Macro Settings " nella finestra di dialogo " Centro protezione " , quindi scegliere l'opzione che dice " Attiva tutte le macro ". ( Assicurati di tornare a questa finestra di dialogo per disattivare le macro , una volta che hai finito il passaggi in questo articolo . ) per

Premere " OK " su tutte le finestre di dialogo per tornare ad Access.
5

premere il pulsante " Strumenti database " barra degli strumenti oggetto , quindi fare clic su " , Visual Basic . " per entrare nell'ambiente di Visual Basic integrato di sviluppo ( IDE ) , che è dove si creano funzioni personalizzate
6

Press " Inserisci ", seguito da" modulo "a l'IDE di barra degli strumenti , per creare un nuovo spazio per inserire il codice del programma dentro Incolla il seguente codice di programma da nessuna parte in questo nuovo spazio :

Public Function getdomainname ( emailAddress ) Dim. mm = Len ( emailAddress ) - InStr ( emailAddress " @ " ) getdomainname = Right ( emailAddress , m ) End Function
7

Premere" Ctrl + S "per salvare il programma e il nome modulo" CustomFunctions " quando richiesto da Access . Tornare ad Access sia premendo "Alt + F11 " o cliccando sull'icona di accesso piccola nella parte sinistra della barra degli strumenti dell'IDE .
8

Creare una nuova query per la tabella degli indirizzi e-mail facendo clic sullo nome della tabella ( " EmailAddresses " ) nella finestra di navigazione a sinistra della finestra principale di Access . Quindi premere "Crea " seguito da " query " sulla barra degli strumenti di accesso . Se si utilizza Access 2003 , creare la query con " oggetti", "Query ", quindi quindi "Nuovo ".
9

doppio clic " EmailAddresses " , elemento della finestra di dialogo " Mostra tabella " per creare una piccola finestra che visualizza tutti i campi della tabella degli indirizzi di posta elettronica. Premere il tasto " Chiudi" nella finestra di dialogo
10

pulsante destro del mouse sulla riga denominata "Campo : " . In una delle colonne della griglia della query . Selezionare la voce "Build" per visualizzare la finestra di dialogo " espressioni " , che consente di creare query che utilizzano formule .
11

Fare doppio clic sulla voce "Funzioni" nel " espressione Elementi "pane per espandere tale nodo , quindi un solo clic sul nome del vostro database ( " VBAFromAccessQuery " ) per esporre la funzione creata per il database.
12

noti che la " Expression valori " riquadro mostra la " funzione getdomainname " incollato nell'IDE di Visual Basic in precedenza . Fare doppio clic su questa voce , quindi digitare " [ email] " al posto del " << emailAddress >> " testo nel riquadro superiore della finestra di dialogo .
13 < p > Premere il tasto " OK " per chiudere " espressioni ", quindi fare clic sulla scheda della query e selezionare " specifica tecnica " per eseguire la query . ( In alternativa , premere il tasto " Design" e ​​scegliere " Esegui" sulla barra degli strumenti . ) Per

noti che i risultati della query vengono visualizzati solo i nomi di dominio degli indirizzi e-mail , che è il risultato della vostra applicazione con successo codice VBA di accesso di visualizzazione struttura della query .