Forespørger data fra en database tabel ved hjælp jokertegn i Microsoft Access er ikke så hårdt som du måske tror . I Access kan du bruge Visual Basic for Applications ( VBA ) til at automatisere processer såsom forespørge data. I VBA kan du opbygge SQL-sætninger til at forespørge en tabel for at finde værdier , der matcher et mønster , du angiver. Den " Like" operatør kan bruges i SQL-sætninger til at angive et kriterium som "Like" D * " ", som vil returnere alle feltværdier begynder med bogstavet D. Ting du skal
Northwind database
< br > Vis Flere Instruktioner
1

klik på " Database Tools " fanen , klik på " Visual Basic ", og klik på "Indsæt "-menuen. Klik på " Modul " for at indsætte en ny kode modul
2

Opret en ny sub procedure ved at skrive følgende : .

Private Sub useLikeCommand ()
< br > 3

erklære variabler, du vil bruge til at søge en database tabel ved at tilføje følgende VBA-kode : Hej

Dim dataString As String

Dim dbs som database

Dim rst Som Recordset

Dim X As Integer

Set dbs = CurrentDb
4

Definer den streng, du vil passere til SQL-sætningen : Hej

dataString = " a * "
5

Indtast følgende kode til at åbne en Recordset ved hjælp af en SQL-sætning , der bruger operatoren Like : Hej

Set rst = dbs.OpenRecordset (" SELECT Medarbejdere . [ Efternavn ] , Medarbejdere . [First Name] " _

&" FROM Medarbejdere "_

&" WHERE ((( Employees. [ Fornavn ] ) Ligesom ' "& ( dataString ) & ") ) " )
6

Opret en "For ... Loop " for at vise resultater, der returneres af forespørgslen vha. Immediate -vinduet : Hej

rst . MoveFirst

for x = 0 til rst.RecordCount

Debug.Print rst.Fields ( " [First Name]" ) . Værdi

Debug.Print rst.Fields ( " [Sidste Name]" ) Value

rst.MoveNext

Næste X
7

Afslut proceduren ved at tilføje følgende kode : .
< p > rst.Close

dbs.Close

End Sub
8

Tryk på " Ctrl" og "G " for at vise Immediate -vinduet. Tryk på " F5 " for at køre proceduren.