Microsoft Office Access is een relationele database management systeem opgenomen in de Microsoft Office suite . Visual Basic for Applications ( VBA ) wordt gebruikt om routinematige taken in Microsoft Office-toepassingen te automatiseren . Programmeurs soms lopen in de noodzaak om de waarde van een specifieke record in een tabel programmatisch werken . In een paar stappen kunt u VBA-code schrijven om een record in een tabel bij te werken . Instructies
1 Selecteer " Hulpmiddelen voor databases . " Klik op " Visual Basic " om het venster " Microsoft Visual Basic " te openen .
Maak een nieuwe sub door het intikken van " Private Sub editRecordSet ( ) ' en druk op ' Enter '. Kopen van 2 typ het volgende om uw variabelen te creëren en stel de huidige database : Dim sqlstr
als Koord Dim rst
als Recordset
Dim dbs Als Database set
dbs = CurrentDb
Type 3 van de volgende opties om een nieuwe tabel te maken : SQLString
= " CREATE tABLE editRecord ( f_name TEKST , L_Name TEXT ) "
DoCmd.SetWarnings Valse
DoCmd.RunSQL ( SQLString )
Type 4 de volgende drie verslagen van de gegevens toe te voegen aan de tabel : strSQL
= " INSERT INTO editRecord VALUES ( ' SEBASTIAN ' , ' PUGA ' ) " DoCmd.RunSQL ( strSQL ) strSQL
= " INSERT INTO editRecord VALUES ( ' MARIA ' , ' GONZALEZ ' ) " < br > DoCmd.RunSQL ( strSQL ) strSQL
= " INSERT INTO editRecord VALUES ( ' JOHN ' , ' LOPEZ ' ) " DoCmd.RunSQL ( strSQL ) op < br
> Type 5 het volgende aan de tafel vragen en terug te keren alle records :
Set rst = dbs.OpenRecordset ( " SELECT * FROM editRecord editRecord . " )
6 typ het volgende om te verhuizen naar nummer drie op te nemen en werk het veld " f_name " naar " JUAN " :
Set rst = dbs.OpenRecordset ( " SELECT * FROM editRecord editRecord . " ) rst
. Move ( 2 ) rst.Edit rst.Fields ( " f_name " ) . Value
= " JUAN "
rst.Update
7 Typ het volgende om het record te sluiten en laat de variabele " dbs " uit het geheugen : rst.Close Set
dbs = Nothing Druk op " F5 "
om uw nieuwe subroutine uit te voeren.
|
