Visual Basic for Applications (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 di database, Access. Alcune attività in Access si prestano naturalmente all'automazione con codice VBA, ad esempio di calcolare i valori per i controlli aggiunti dall'utente nelle relazioni. Al contrario, visualizzazione struttura della query di Access non espone prontamente le opportunità per il miglioramento con VBA. Ancora, un esempio applicato di una particolare funzionalità VBA vi mostrerà come VBA può aiutarti a lavorare con visualizzazione struttura della query.

Istruzioni

1

Aprire Access e creare una piccola tabella di indirizzi email. Se non hai uno esistente, utilizzare la tabella seguente. Immettere la prima riga dei dati seguenti come intestazione della singola colonna della tabella.

Posta elettronica
[email protected]
[email protected]
[email protected]

2

Salvare la tabella premendo "CTRL-S" e digitare "EmailAddresses" per il nome della tabella. Salvare il database stesso premendo "Alt-F" e selezionando "Salva Database come." Digitare "VBAFromAccessQuery" per il nome del database.

3

Iniziare a creare una funzione personalizzata per l'utilizzo in una query prime abilitazione macro nel database. Premere "Alt-F" per esporre la voce di menu "Opzioni", quindi fare clic su tale elemento.

4

Premere l'elemento di "Trust Center" nella finestra di dialogo "Opzioni di accesso", quindi fare clic sul pulsante "Impostazioni Centro protezione". Premere la voce "Impostazioni Macro" nella finestra di dialogo "Trust Center", quindi scegliere l'opzione che recita "Attiva tutte le macro". (Essere sicuri di ritornare in questa finestra di dialogo di disattivare le macro, una volta che hai finito la procedura descritta in questo articolo).

Premere "OK" su tutte le finestre di dialogo aperte per tornare all'accesso.

5

Premere l'elemento di barra degli strumenti "Strumenti di Database", quindi fare clic su "Visual Basic" per inserire l'ambiente di sviluppo integrato di Visual Basic (IDE), che consente di creare funzioni personalizzate.

6

Premere "Inserisci", seguita da "Modulo" sulla barra degli strumenti dell'IDE, per creare un nuovo spazio per inserire il codice nel programma. Incollare il seguente codice di programma ovunque in quel nuovo spazio:

Public Function GetDomainName(emailAddress)
Dim m
m = Len(emailAddress) - InStr (emailAddress, "@")
GetDomainName = destra (emailAddress, m)
End Function

7

Premere "CTRL + S" per salvare il programma e il modulo di nome "CustomFunctions" quando viene richiesto da Access. Torna a Access premendo "Alt + F11" oppure cliccando la piccola icona di accesso nella parte sinistra della barra degli strumenti dell'IDE.

8

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

9

Doppio clic sull'elemento "EmailAddresses" nella finestra di dialogo «Show Table» per creare una piccola finestra di visualizzazione di tutti i campi della tabella degli indirizzi di posta elettronica. Premere "Chiudi" nella finestra di dialogo.

10

Pulsante destro del mouse sulla riga con etichettata "campo:" in una qualsiasi 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

Doppio clic sulla voce "Funzioni" nel riquadro "Elementi di espressione" per espandere tale nodo, quindi singolo clic il nome del database ("VBAFromAccessQuery") per esporre la funzione creata per il database.

12

Si noti che il riquadro "I valori dell'espressione" viene visualizzata la funzione di "GetDomainName" è stato incollato in precedenza nell'IDE di Visual Basic. Fare doppio clic su questa voce, quindi digitare "[e-mail]" al posto del testo "<< emailAddress >>" nel riquadro superiore della finestra di dialogo.

13

Premere "OK" per chiudere "Generatore di espressioni," poi tasto destro del mouse sulla scheda della query e selezionare "Visualizzazione foglio dati" per eseguire la query. (O, premere "Design" e scegliere "Esegui" nella barra degli strumenti.)

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

Consigli & Avvertenze

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