Veta hur man söker genom poster från en databas tabell med en fråga i Microsoft Office Access kan spara tid när du söker efter specifik text i en kolumn . Visual Basic for Applications , även känd som VBA är ett programmeringsspråk som används för att automatisera rutinuppgifter i Microsoft Access och andra MS Office-program . Access är en relationsdatabas management system som används för att konstruera små databaser . En fråga används för att hämta information från en databastabell. Instruktioner
1
Öppna Northwind Microsoft Office Access-databas . Northwind-databasen ingår i Microsoft Office-paketet .
2
Klicka på " Databas Verktyg " och välj sedan " Visual Basic " för att öppna Microsoft Visual Basic Window . Klicka på " Infoga "-fältet och välj " Modul . " Addera 3
Skriv följande för att skapa en ny subrutin :
Private Sub searchRecords ( ) katalog
Tryck på " Enter ".
4
Skriv följande för att skapa den " rst " variabel , du kommer att använda den för att öppna ett nytt Recordset :
Dim rst som Recordset
Skriv följande för att skapa den " dbs " variabel , du kommer att använda den för att identifiera den aktuella databasen :
Dim dbs som databas
Skriv följande för att skapa den " stringToSearch " variabel , du kommer att använda den för att hålla tecken som du kommer att leta efter i rekord sökning :
Dim stringToSearch As String
Skriv följande för att ställa in aktuell databas som databas för användning i denna subrutin :
Set dbs = CurrentDb
5
Skriv följande för att definiera den sträng du ska använda för att söka efter poster som returneras av frågan , med namnet " Daniel " som ett exempel :
stringToSearch = " Daniel "
6
Skriv följande för att öppna ett nytt Recordset och fråga " Kunder " table :
Set rst = dbs.OpenRecordset ( " SELECT Kunder * FROM kunder . " ) katalog
Redigera följande kodrad att fråga en annan tabell :
Set rst = dbs.OpenRecordset ( " SELECT * FROM < . , tabellnamn > " ) katalog Skriv följande för att flytta till den första posten i frågeresultatet :
rst.MoveFirst
7
Skriv följande i slingan genom Postmängd genom uppräkning Recordset position och sök efter " Daniel " i " förnamn " kolumnen :
Do While Not rst.EOF
p Om rst.Fields ( " Förnamn " ) . Värde = stringToSearch Sedan
MsgBox "Hittade " & stringToSearch & " i rekordmånga : " & rst.AbsolutePosition
rst.MoveLast
Else
rst.MoveNext
End If
Loop
vill söka efter andra uppsättningar av tecken i en annan kolumn , redigera följande kodrader :
stringToSearch = " "
p Om rst.Fields ( " " ) . Value = stringToSearch Sedan
8 Skriv följande för att frigöra variabler från minnet :
rst.Close
dbs.Close
Tryck " F5 " för att köra din subrutin Addera ditt < . br >
