Microsoft Access ha un linguaggio di scripting, Visual Basic, Applications Edition (VBA), che è possibile utilizzare per eseguire operazioni di database come query di selezione e di aggiornamento. programmi VBA che eseguono queste operazioni fanno con oggetti virtuali, comprese quelle che rappresentano il database corrente, record, le definizioni di query e di altri elementi del database. Facendo aggiornamenti o qualsiasi tipo di operazione di database in VBA implica la comprensione come gestire questi oggetti, che vengono raccolti in una gerarchia ad albero chiamato il "modello a oggetti." Esecuzione di query di aggiornamento con Visual Basic consente agli sviluppatori di modificare il contenuto del database in modo rapido e con meno possibilità di errore dell'utente.

istruzione

1 Open Access e creare la seguente tabella di esempio, che il programma Visual Basic farà un'operazione di aggiornamento su: Creare un campo "Field1" in una tabella chiamata "Table1", quindi digitare un record in quel campo: ". Xyz"

2 Premere il tasto "Alt-F11" per accedere al Visual Basic ambiente di sviluppo integrato (IDE), quindi fare clic su comando "Module" del menu "Inserisci". Questa azione creerà un nuovo spazio per l'inserimento di un programma VB.

3 Incollare o digitare il seguente programma nel modulo di codice:

Public Sub doUpdate ()

Const TabName = "Table1"

DBS fiochi come DAO.Database

Dim primo Come DAO.Recordset

Set dbs = CurrentDb

Set rst = dbs.OpenRecordset (TabName)

rst.MoveFirst

Fare Fino rst.EOF

If rst!Field1 = "zxy" Then

rst.Edit

prima! Field1 = "abc"

rst.Update

rst.Close

dbs.Close

Exit Sub

Finisci se

rst.MoveNext

Ciclo continuo

End Sub

L'affermazione "OpenRecordset" apre la tabella "Table1" per la modifica, e imposta un riferimento a quel tavolo con la variabile "prima". Il blocco di istruzioni che inizia con "Do Until" e termina con "Loop" si muove attraverso i dati "RST", alla ricerca di un record il cui valore è "xyz". Il programma utilizza il "Modifica" e metodi "Update" di "prima" per cambiare il valore di questo disco, una volta che trova il record "xyz".

4 Eseguire il programma cliccando su una qualsiasi delle sue affermazioni, poi premendo il tasto "F5". Premere il tasto "Alt-F8" per tornare ad Access. Vedrete il valore "xyz" Hai inserito in precedenza ora cambiato in "abc".

5 Premere il tasto "Alt-F8" per tornare alla IDE. Digitare le seguenti nuove dichiarazioni dopo l'ultimo "Dim" l'istruzione nel listato del programma:

f = InputBox ( "Quale valore vorresti chiedere?")

v = InputBox ( "Quale valore vorresti cambiare?")

Queste dichiarazioni interrogare l'utente per un valore da cercare, e un nuovo valore per cambiare a.

6 Digitare sopra l'affermazione "Se prima Field1 =" ZXY "Allora", con questa nuova affermazione:

Se prima! Field1 = f Poi

Questa affermazione e quella nella fase successiva utilizzeranno il nuovo "f" e variabili "v" per trovare e aggiornare il record corretto nella tabella.

7 Digitare il "primo Field1 =" dichiarazione abc "" con questa affermazione:

prima! Field1 = v

8 Eseguire il programma come avete fatto al punto 4. Rispondere alle richieste quando l'allora apparire, digitando "abc" per il valore di cercare, e "XYZ" per il valore di passare a. Il programma riveduto cambierà il "abc" per "xyz".