Microsoft Access har ett skriptspråk , Visual Basic for Applications ( VBA ) , som du kan använda för att utföra databasåtgärder som väljer och uppdatera frågor . VBA -program som utför dessa operationer gör det med virtuella föremål, inklusive de som företräder den aktuella databasen , sätter rekord , frågedefinitioner och andra element databas . Göra uppdateringar eller någon form av databas operation i VBA innebär att förstå hur man ska hantera dessa objekt , som samlas i en trädliknande hierarki kallas " objektmodellen . " Utföra uppdateringar frågor med Visual Basic tillåter utvecklare att ändra databasens innehåll snabbt och med färre chanser för felanvändning . Saker du behöver
Microsoft Access
Visa fler instruktioner
1
Open Access och skapa följande provbord , som Visual Basic program kommer att göra en uppdatering operation på : Skapa ett fält " Field1 " i en tabell som heter " Tabell1 ", skriv sedan en post i detta fält : " . xyz "
2
Tryck " Alt - F11 " för att gå in i Visual Basic integrerad utvecklingsmiljö ( IDE ) , klicka sedan på " Infoga " -menyn är " Module " -kommandot . Denna åtgärd kommer att skapa ett nytt utrymme för dig att skriva ett VB program
3
Klistra in eller skriv följande program i kodmodulen : .
Public Sub doUpdate ( )
Const tabName = " Tabell1 "
Dim dbs Som DAO.Database
Dim rst Som DAO.Recordset
Set dbs = CurrentDb
Set rst = dbs.OpenRecordset ( tabName ) katalog
rst.MoveFirst
göra tills rst.EOF
p Om RST ! Fält1 = " ZXY " Då
< p> rst.Edit
rst ! Fält1 = "abc "
rst.Update
rst.Close
dbs.Close
Exit Sub
End If
rst.MoveNext
Loop
End Sub
" OpenRecordset " uttalande öppnar " Tabell1 " bord för modifiering , och ställer in en referens till tabellen med " RST " variabel . Det block av påståenden som börjar med " Do Until " och slutar med "loop" rör sig genom "RST " data , söka efter en post vars värde är " xyz ". Programmet använder " Redigera " och " Uppdatera " metoder " rst " för att ändra denna postens värde , när den finner det " xyz" rekord .
4
Kör programmet genom att klicka på någon av dess uttalanden , sedan trycka " F5 ". Tryck på " Alt-F8 " för att återvända till Access . Du kommer att se " xyz" värde du angav tidigare nu ändrats till " abc ".
5
Press " Alt-F8 " för att återgå till IDE . Skriv följande nya uttalanden efter den sista " Dim " uttalande i programmet notering :
f = InputBox ( " ? Vilket värde vill du söka " ) katalog
v = InputBox ( " Vad värdet skulle du vilja ändra på? " ) katalog
Dessa uttalanden fråga användaren om ett värde att leta efter , och ett nytt värde att byta till .
6
typ över uttalandet " Om rst Fält1 = ! " ZXY " Då " med denna nya uttalande :
p Om RST Fält1 = f Sedan
detta uttalande och en i nästa steg kommer att använda den nya " F ! " och " V " variabler att hitta och uppdatera rätt post i tabellen
7
typ över uttalandet . " rst Fält1 = " abc " " med detta uttalande :
RST ! Fält1 = v
8
Kör programmet som du gjorde i steg 4 . Svara på frågorna när sedan visas , skriver " abc " för värdet att söka , och " xyz " för värdet att byta till . Det reviderade programmet kommer att förändra " abc " till " xyz . " Addera
