Visual Basic, Applications Edition (VBA) è un linguaggio di programmazione utilizzato in applicazioni stand-alone, e anche per estendere la funzionalità dei programmi di Microsoft Office, compreso il programma di creazione del database, Access. Alcune attività in Access si prestano naturalmente a automazione con codice VBA, come ad esempio il calcolo dei valori per i controlli aggiunti dall'utente nei rapporti. Al contrario, vista di struttura della query di Access non esporre prontamente 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.

istruzione

1 Open Access e creare un piccolo tavolo di indirizzi e-mail. Utilizzare la seguente tabella se non si dispone di uno esistente. Inserire la prima fila dei seguenti dati, come il titolo della singola colonna della tabella.

e-mail
[email protected]
[email protected]
[email protected]

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

3 Iniziare a creare una funzione personalizzata per l'uso in una query prima consentendo le macro nel database. Premere il tasto "Alt-F" per esporre la voce di menu "Opzioni", quindi fare clic su tale elemento.

4 Premere la voce "Centro protezione" nella finestra di dialogo "Opzioni di Access", quindi fare clic sul pulsante "Impostazioni Centro". Premere la voce "Impostazioni macro" nella finestra di dialogo "Centro protezione", quindi selezionare l'opzione che dice "Attiva tutte le macro". (Essere sicuri di tornare a questa finestra di dialogo per disattivare le macro, una volta che hai finito la procedura descritta in questo articolo.)

Premere il tasto "OK" su tutte le finestre di dialogo aperte per tornare Access.

5 Premere la voce della barra degli strumenti "Strumenti di database", quindi su "Visual Basic" per accedere al Visual Basic ambiente di sviluppo integrato (IDE), che è dove si creano funzioni personalizzate.

6 Premere il tasto "Insert", seguito da "modulo" a barra degli strumenti della IDE, per creare un nuovo spazio per inserire il codice del programma in Incollare il seguente codice di programma in qualsiasi parte che nuovo spazio.:

Getdomainname Funzione pubblica (emailAddress)
Dim m
m = Len (emailAddress) - InStr (emailAddress, "@")
Getdomainname = Destra (emailAddress, m)
End Function

7 Premere il tasto "Ctrl + S" per salvare il programma, e il nome del modulo "CustomFunctions" quando richiesto da Access. Ritorno a L'accesso sia premendo "Alt + F11" o facendo clic sull'icona di accesso piccola nella parte sinistra della barra degli strumenti del IDE.

8 Creare una nuova query per la tabella degli indirizzi di posta elettronica facendo clic prima sul nome della tabella ( "EmailAddresses") nella finestra di navigazione a sinistra della finestra di accesso principale. Quindi premere "Crea" seguito da "query" nella barra degli strumenti di accesso. Se si utilizza Access 2003, creare la query premendo "oggetti", quindi "Query", quindi "Nuovo".

9 Fare doppio clic sulla voce "EmailAddresses" nella finestra di dialogo "Mostra tabella" per creare una piccola finestra che visualizza tutti i campi della tabella degli indirizzi e-mail. Premere il tasto "Chiudi" nella finestra di dialogo.

10 Pulsante destro del mouse sulla riga etichettata "Campo:" in una delle colonne della griglia della query. Selezionare la voce "Build" per visualizzare la finestra di dialogo "Generatore di espressioni", che consente di creare query che utilizzano formule.

11 Fare doppio clic sulla voce "Funzioni" nel riquadro "elementi di espressione" per espandere tale nodo, quindi un solo clic sul nome del database ( "VBAFromAccessQuery") per esporre la funzione è stato creato per il database.

12 Si noti che il riquadro "valori di espressione" visualizza la funzione "getdomainname" si è incollato in Visual Basic IDE in precedenza. Fare doppio clic su questa voce, quindi digitare "[email]" al posto del testo "<< >> emailAddress" nel riquadro superiore della finestra di dialogo.

13 Premere il tasto "OK" per chiudere "Generatore di espressioni," quindi fare clic sulla scheda della query e selezionare "specifica tecnica" per eseguire la query. (Oppure, premere "Design" e scegliere "Esegui" sulla barra degli strumenti.)

Si noti che i risultati della query mostrano solo i nomi di dominio degli indirizzi e-mail, che è il risultato del vostro codice VBA applicando con successo alla domanda visualizzazione di progettazione di Access.

Consigli e avvertenze

• Le istruzioni contenute in questo articolo riguardano la modifica delle impostazioni di sicurezza di accesso. Eseguire queste istruzioni solo con una piena consapevolezza e responsabilità per i rischi associati a questo cambiamento.