Hvordan passere en streng til en som Command i Microsoft Access

Spørring data fra en database tabell ved hjelp av jokertegn i Microsoft Access er ikke så vanskelig som du kanskje tror. I Access kan du bruke Visual Basic for Applications (VBA) til å automatisere prosesser som spørring data. I VBA kan du bygge SQL-setninger til å spørre en tabell for å finne verdier som samsvarer med et mønster du angir. Operatøren "Like" kan brukes i SQL-setninger for å angi et kriterium som "Like" D * "", som vil returnere alle feltverdier som begynner med bokstaven D.

Bruksanvisning

1 Klikk på "Database Verktøy" -kategorien, klikk på "Visual Basic," og klikk "Insert" -menyen. Klikk "Module" å sette inn en ny kode modul.

2 Opprett en ny sub prosedyre ved å skrive følgende:

Private Sub useLikeCommand ()

3 Erklærer variablene du vil bruke til å spørre en database tabell ved å legge følgende VBA-kode:

Dim dataString As String

Dim dbs som database

Dim rst As Recordset

Dim x As Integer

Sett dbs = CurrentDb

4 Definer strengen du vil sende til SQL-setning:

dataString = "A*"

5 Skriv inn følgende kode for å åpne en Recordset bruker en SQL-setning som bruker Som operatør:

Set rst = dbs.OpenRecordset("SELECT Employees.[Last Name], Employees.[First Name] " _

& "fra de ansatte" _

& "WHERE (((Medarbeidere [fornavn]) Liker". "& (DataString) &" ')); ")

6 Lag en "For ... Loop" for å vise resultatene som returneres av spørringen bruker Umiddelbar vinduet:

rst.MoveFirst

For X = 0 For å rst.RecordCount

Debug.Print rst.Fields ( "[fornavn]"). Verdi

Debug.Print rst.Fields ( "[etternavn]"). Verdi

rst.MoveNext

Neste X

7 Avslutt prosedyren ved å legge til følgende kode:

rst.Close

dbs.Close

End Sub

8 Trykk "Ctrl" og "G" for å vise det gjeldende vinduet. Trykk "F5" for å kjøre prosedyren.