Weten hoe u gegevens in een query in Microsoft Office Access met behulp van Visual Basic for Applications ( VBA ) kunt u tijd besparen wanneer u het nodig om gegevens in tabellen voortdurend actualiseren actualiseren bijwerken . Access is een relationele database management systeem vaak gebruikt voor kleinere lokale databases . Een query wordt gebruikt om gegevens in een database tabel te bekijken . VBA is een programmeertaal gebruikt om routinematige taken in Access te automatiseren . Instructies
1 Start Microsoft Office Access , selecteer " Database Tools" en klik op " Visual Basic . " Selecteer in het menu "Invoegen " , klik op "Module . "
Copy 2 en plak de volgende code in de module : Private Sub updateQuery
( ) op Dim db als Database Dim rst
als Recordset Dim SQLString
als Koord Dim rstCnt
als Geheel Set db = CurrentDb
SQLString = " CREATE TABLE tableToUpdate (Eerste TEKST , Last TEXT ) " DoCmd.SetWarnings
False DoCmd.RunSQL
( SQLString ) strSQL = " INSERT INTO
tableToUpdate WAARDEN ( ' Oscar ' , ' Gonzalez ' ) " DoCmd.RunSQL ( strSQL ) strSQL
= " INSERT INTO tableToUpdate VALUES ( ' Kitzia ' , ' Ramos ' ) "
DoCmd.RunSQL ( strSQL ) strSQL = " INSERT INTO tableToUpdate VALUES ( ' John ' , ' Smith ' ) " DoCmd.RunSQL ( strSQL )
strSQL
= " INSERT INTO tableToUpdate VALUES ( ' Anna ' , ' Williams' ) " DoCmd.RunSQL ( strSQL ) op
Set rst = db.OpenRecordset ( " SELECT * FROM tableToUpdate tableToUpdate ; . " ) < br rst.MoveLast
rst.MoveFirst
rstCnt > = 0 Om rst.RecordCount - 1
Als rst.Fields ( 0 ) Value = " . Oscar " dan rst.Edit rst.Fields
( 0 ) . Value = " Emilio " rst.Update End
Als
rst.MoveNext
Volgende rstCnt End Sub
Druk op " F5 " Goedkope 3 naar de " updateQuery " subroutine uitgevoerd . De subroutine een nieuwe tabel , voegt nieuwe rijen gegevens , queries de tafel gemaakt en actualiseert het eerste veld .
|
