Weten hoe te zoeken door records uit een database tabel met behulp van een query in Microsoft Office Access kunt u tijd besparen bij het zoeken naar specifieke tekst in een kolom . Visual Basic for Applications , ook wel bekend als VBA , is een programmeertaal die wordt gebruikt om routinematige taken in Microsoft Access en andere MS Office-toepassingen te automatiseren . Access is een relationele database management systeem dat wordt gebruikt om kleine databases te ontwerpen . Een query wordt gebruikt om informatie op te halen uit een database tabel . Instructies
1 Open de Noordenwind Microsoft Office Access-database . De database Noordenwind is opgenomen in de Microsoft Office-suite .
Klik 2 " Database Extra " en selecteer vervolgens " Visual Basic " om de Microsoft Visual Basic venster te openen . Klik op het veld " Insert " en selecteer " Module . "
Type 3 van de volgende opties om een nieuwe subroutine maken: Private Sub searchRecords
( ) op Druk op ' Enter '.
Type 4 het volgende aan de variabele " rst " te creëren , je zal het gebruiken om een nieuwe Recordset openen : Dim rst
als Recordset
Typ het volgende om de variabele " dbs " te creëren , je zal het gebruiken om de huidige database te identificeren : Dim dbs
Als Database Typ
het volgende aan de variabele " stringToSearch " te creëren , je zal het gebruiken om tekens die u gaat op zoek naar in het record search houden : Dim stringToSearch
als Koord Typ
de volgende om de huidige database instellen als de database om te gebruiken in deze subroutine : Set dbs = CurrentDb
5 Typ
het volgende om de snaar die u zal gebruiken om de geretourneerd door de query vermeldingen zoeken , onder de naam " Daniel" als een voorbeeld te definiëren : stringToSearch
= " Daniel "
Type 6 de volgende opties om een nieuwe record set en vraag de "Klanten " open tafel :
Set rst = dbs.OpenRecordset ( " SELECT * FROM Klanten Klanten . " ) op Twitter Bewerk de volgende regel code aan een andere tafel bevragen :
Set rst = dbs.OpenRecordset ( " SELECT * FROM < . ; tabel naam > " ) Type
de volgende om naar de eerste record van de resultaten van de query : rst.MoveFirst
Type
7 het volgende aan lus door de Recordset door het verhogen van de Recordset positie en zoek op " Daniël " in de " First Name " kolom :
Do While Not rst.EOF
Als rst.Fields ( "Voornaam " ) . Value = stringToSearch MsgBox dan
" Found " & stringToSearch & " in record aantal : " & rst.AbsolutePosition rst.MoveLast
Else
rst.MoveNext End
Als Loop
Om te zoeken naar andere sets van tekens in een andere kolom , bewerkt u de volgende regels code : stringToSearch
= " "
Als rst.Fields ( " " ) . Value = stringToSearch dan
Type 8 de volgende vrij te geven variabelen uit het geheugen : rst.Close dbs.Close Druk op " F5 "
uw subroutine draaien
< . br > |
