Microsoft Office Access är en relationsdatabas management system som ingår i Microsoft Office-paketet . Visual Basic for Applications ( VBA ) används för att automatisera rutinuppgifter i Microsoft Office-program . Programmerare stöter ibland på behovet av att uppdatera värdet av en viss post i en tabell programmässigt . I några steg du kan skriva VBA-kod för att uppdatera en post i en tabell . Instruktioner
1
Välj " Databasverktyg . " Klicka på " Visual Basic " för att öppna " Microsoft Visual Basic " fönstret .
Skapa ett nytt sub genom att skriva " Private Sub editRecordSet ( ) " och trycka på " Enter ".
2
skriv följande för att skapa dina variabler och ställa in den aktuella databasen :
Dim sqlstr As String
Dim rst som Recordset
Dim dbs som databas
Set dbs = CurrentDb
3
Skriv följande för att skapa en ny tabell :
sQLString = " CREATE tABLE editRecord ( F_Name TEXT , L_Name TEXT ) "
DoCmd.SetWarnings False
DoCmd.RunSQL ( sQLString )
4
Skriv följande för att lägga till tre poster av data till tabellen :
strSQL = " INSERT INTO editRecord VALUES ( ' Sebastian' , ' PUGA ' ) "
DoCmd.RunSQL ( strSQL ) katalog
strSQL = " INSERT INTO editRecord VALUES ( 'Maria ' , ' González ) "
DoCmd.RunSQL ( strSQL ) katalog
strSQL = " INSERT INTO editRecord VALUES ( ' JOHN ' , ' LOPEZ ' ) "
DoCmd.RunSQL ( strSQL ) katalog
5
Skriv följande för att söka i tabellen och returnera alla poster :
Set rst = dbs.OpenRecordset ( " SELECT editRecord * FROM editRecord . " )
6
skriv följande för att flytta för att spela nummer tre och uppdatera " F_Name " fältet för " Juan" :
Set rst = dbs.OpenRecordset ( " SELECT editRecord * FROM editRecord . " ) katalog
RST . Flytta ( 2 ) katalog
rst.Edit
rst.Fields ( " F_Name " ) . Value = " JUAN "
rst.Update
7
Skriv följande för att stänga rekord och släpp " dbs " variabel från minnet :
rst.Close
Set dbs = Nothing
Tryck " F5 " att köra din nya subrutin .
