Microsoft Access har et skriptspråk , Visual Basic for Applications ( VBA ) , som du kan bruke til å utføre database operasjoner som velger og oppdatere spørringer. VBA programmer som utfører disse operasjonene gjør det med virtuelle objekter , inkludert de som representerer den gjeldende databasen , rekord settene , spørring definisjoner og annen database elementer . Gjør oppdateringer eller noen form for database drift i VBA innebærer å forstå hvordan man skal håndtere disse objektene , som er samlet inn i en trelignende hierarki kalt "objekt -modellen . " Utføre oppdatering søk med Visual Basic tillater utviklerne å endre database innhold raskt og med færre muligheter for brukerfeil . Du trenger
Microsoft Access
Vis flere instruksjoner
en

Open Access og opprette følgende prøven tabellen, som Visual Basic programmet vil gjøre en oppdatering operasjon på : opprette et felt " Felt1 " i en tabell kalt " tabell 1 ", skriv deretter inn en post i dette feltet : " . xyz "
2

Trykk " Alt- F11 " for å gå inn i Visual Basic integrert utviklingsmiljø (IDE ), klikk deretter på "Sett inn " -menyen er " Module "-kommandoen . Denne handlingen vil skape et nytt rom for deg å legge inn et VB program
3

Kopier eller skriv inn følgende program inn koden modul: .

Public Sub doUpdate ( )

Konst tabname = " Table1 "

Dim dBS Som DAO.Database

Dim rst Som DAO.Recordset

Set dBS = CurrentDb
< p> Set rst = dbs.OpenRecordset ( tabname )

rst.MoveFirst

inntil rst.EOF
p Hvis rst ! Felt1 = " ZXY " Da
< p> rst.Edit

rst ! Felt1 = " abc "

rst.Update

rst.Close

dbs.Close
< p > Exit Sub

End If

rst.MoveNext

Loop

End Sub

" OpenRecordset " statement åpner " Table1 "table for endring, og setter en referanse til det bordet med" rst "variable . Den blokk av utsagn som begynner med " Do Frem " og slutter med " Loop " beveger seg gjennom " RST " data , søker etter en rekord hvis verdi er " xyz ". Programmet bruker "Edit " og " Oppdater " metoder for " rst " for å endre denne posten verdi , når den finner det " xyz " record .
4

Kjør programmet ved å klikke på noe av sin uttalelser, deretter trykke "F5 ". Trykk " Alt- F8 " for å returnere til Access . Du vil se " xyz " verdien du angav tidligere nå endret til " abc ".
5

Trykk "Alt -F8 " for å gå tilbake til IDE . Skriv inn følgende nye uttalelser etter den siste " Dim " statement i programoversikten : en

f = InputBox ( "Hva verdien ønsker du å søke ")

v = InputBox ( " Hva verdien ønsker du å bytte til ? ")

Disse uttalelsene spørre brukeren for en verdi skal se etter, og en ny verdi for å endre til .
6

Skriv over uttalelsen " Hvis rst Felt1 = " ZXY "Da " med denne nye uttalelsen : en p Hvis rst Felt1 = f Deretter

denne uttalelsen og den i neste trinn vil bruke den nye "f ! "og" v " variabler å finne og oppdatere riktig post i tabellen
7

Skriv over uttalelsen . " rst Felt1 = " abc " "med dette utsagnet : !

rst ! Felt1 = v
8

Kjør programmet som du gjorde i trinn 4 . Svarer på forespørslene når da vises , skrive " abc " for verdien til å søke, og " xyz " for verdien å endre til. Den reviderte programmet vil endre " abc " til " xyz ".