Å vite hvordan du skal søke gjennom poster fra en database tabell ved hjelp av en spørring i Microsoft Office Access kan spare deg for tid når du søker etter en bestemt tekst i en kolonne . Visual Basic for Applications , også kjent som VBA , er et programmeringsspråk som brukes til å automatisere rutineoppgaver i Microsoft Access og andre MS Office-programmer . Access er en relasjonsdatabase styringssystem brukes til å designe små databaser . En spørring brukes til å hente informasjon fra en database tabell . Instruksjoner
en

Åpne Northwind Microsoft Office Access database. The Northwind database er inkludert i Microsoft Office-pakken.
2

Klikk på " Database Verktøy ", velg deretter " Visual Basic " for å åpne Microsoft Visual Basic Window . Klikk på " Insert "-feltet og velg " Module ".
3

Skriv inn følgende for å opprette en ny subrutine :

Private Sub searchRecords ( )
< p > Trykk på "Enter".
4

Skriv inn følgende for å skape den " rst " variable , vil du bruke den til å åpne en ny Recordset : en

Dim rst Som Recordset

Skriv inn følgende for å lage " dbs " variable , vil du bruke den til å identifisere den gjeldende databasen : en

Dim dBS Som database

Skriv inn følgende for å skape den " stringToSearch " variable , du vil bruke den til å holde tegnene du skal se etter i posten søk:

Dim stringToSearch As String

Skriv inn følgende for å angi gjeldende database som database til bruk i denne subrutine : en

Set dBS = CurrentDb
5

Skriv inn følgende for å definere strengen du vil bruke til å søke postene som returneres av spørringen ved å bruke navnet " Daniel " som et eksempel:

stringToSearch = " Daniel "
6

Skriv inn følgende for å åpne en ny Recordset og spørring på " kunder" tabell:

Set rst = dbs.OpenRecordset ( "SELECT Kunder * FROM Kunder . ")

Rediger følgende linje med kode for å spørre en annen tabell : en

Set rst = dbs.OpenRecordset ( "SELECT * FROM < . ; tabellen navn > ")

Skriv inn følgende for å flytte til den første posten i spørringsresultatene : en

rst.MoveFirst
7

Skriv inn følgende å sløyfe gjennom Recordset ved å øke verdien på Recordset posisjon og søk etter " Daniel " i " fornavn "-kolonnen : en

Mens Ikke rst.EOF
p Hvis rst.Fields ( " fornavn ") . Verdi = stringToSearch Deretter

MsgBox "Found " & stringToSearch & " i rekordmange :" & rst.AbsolutePosition

rst.MoveLast

Else

rst.MoveNext

End If

Loop

vil søke etter andre sett av tegn i en annen kolonne , redigere følgende linjer med kode :

stringToSearch = " "
p Hvis rst.Fields ( " ") . Verdi = stringToSearch Deretter
8

Skriv inn følgende for å frigjøre variabler fra minnet :

rst.Close

dbs.Close

Trykk " F5 " for å kjøre din subrutine
bilder < . br >