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