Open Access e fare clic sul menu "Crea" intestazione , seguito da " Tabella ". Potrai creare un piccolo tavolo per eseguire una sorta di VBA su . 
 2 
 doppio clic nella colonna " di Tabella1 " intestazione e digitare "Nome ", quindi digitare diversi nomi in quella colonna . Verificare ogni nome inizia con una diversa lettera dell'alfabeto in modo da poter vedere chiaramente l'effetto del tipo di VBA che segue . Per lo stesso motivo , assicurarsi di inserire i nomi in un ordine non differenziati. Ad esempio , immettere i nomi " Carol ", " Bob " e " Amanda ", in questo ordine . 
 3 
 Premere " Ctrl " + " S ", quindi digitare " userinfo " per il nome della tabella . 
 4 
 Fare clic sul menu "Crea" voce , quindi fare clic sul pulsante nel pannello "Altro" di " progettazione query" . Potrai creare una query per il programma sorta VBA da eseguire . 
 
 5 Fare doppio clic sulla voce " userinfo " nella finestra di dialogo " Mostra tabella ", quindi fare clic sul pulsante "Chiudi" della finestra di dialogo . 
 6 
 Trascina la " * ", che rappresenta tutti i campi di una tabella , sul primo colore della griglia della query . 
 7 
 Fare clic con il " Query1 " scheda , quindi selezionare" visualizzazione SQL . " Digitare il seguente subito dopo il "FROM userinfo " clausola : . 
 
 ORDER BY " . FirstName " 
 
 ordini Questa nuova clausola i dati quando Access esegue la query 
 8 
 Premere il tasto " Ctrl " + " S ", quindi digitare " Q1 " per il nome della query. 
 9 
 Premere " Alt " + " F11 " per entrare nell'ambiente VBA integrato di sviluppo ( IDE ) , che è dove potrai entrare nel codice del programma per l'ordinamento della tabella " userinfo " 
 10 
 Clicca voce del menu "Inserisci" "Modulo" , quindi incollare il seguente codice di programma nella finestra del modulo. : 
 
pubblico doQuery Sub ( ) per
 Const qName = " q1 " 
 
 Dim db1 Come DAO.Database 
 
 Dim RS1 Come 
 DAO.Recordset 
 db1 = CurrentDb 
 
Set RS1 = db1.OpenRecordset ( qName ) per
 Do While Not rs1.EOF 
 
 Debug.Print "Nome:" & RS1 ! [Nome] 
 
 rs1.MoveNext 
 
 loop 
 
 rs1.Close 
 
 db1.Close 
 
End Sub
Programmazione © www.354353.com