Lägg till en enkel sökruta i ett Microsoft Access-formulär

en steg-för-steg-guide för att lägga till en enkel sökruta i ett Microsoft Access-formulär.

jag har nyligen utvecklat en databas i Microsoft Access; ett riktigt kraftfullt verktyg för att söka och fråga data.

jag skapade ett formulär (kallat Project_Metadata som är baserat på en tabell med samma namn, men behövde lägga till en sökruta så att jag kunde identifiera specifika projekt i min databas med deras projektkod. Projektkoderna finns i en kolumn i tabellen Project_Metadata som heter project_code.

så här skapade jag sökrutan:

Steg 1

öppna formuläret som du vill lägga till sökrutan till och välj ”Designvy” från menyn via ”Design” – bandet.

steg 2

infoga en textruta i rubriken i formuläret genom att dra den från rutan ”kontroller”.

skärminspelning av kontrollbandet i Microsoft Access — klicka på knappen ”textruta” för att infoga en textruta i rubrikavsnittet i Microsoft Access-formuläret.

steg 3

Byt namn på textrutan till ”sök projekt-ID” (eller annan meningsfull text).

steg 4

högerklicka på textrutan och välj ”Egenskaper” för att avslöja ”Egenskapsblad”.

Steg 5

gå till After Update och välj ””:

klicka på ”efter uppdatering” i Egenskapsbladet för sökrutan och välj .

steg 6

gå till fliken ”Övrigt” i ”Egenskapsblad” och byt namn på textrutan till något meningsfullt (t.ex. ”search_project_ID”).

ändra namnet på sökrutan till något meningsfullt. Detta namn kommer att refereras i senare Visual Basic-kod.

Steg 7

gå tillbaka till fliken ”händelse” och klicka på ... bredvid After Update. Detta kommer att visa ett Visual Basic-fönster i Access.

klicka på symbolen ” … ”bredvid” Efter uppdatering ” i Egenskapsbladet för att komma åt Visual Basic code editor.

steg 8

ersätt all text med följande:

Option Compare DatabasePrivate Sub Search_Exp_AfterUpdate()If search_project_ID <> "" Then query = "SELECT * FROM Project_Metadata WHERE project_code='" & search_project_ID & "'" & "" Me.RecordSource = query Me.RefreshElse Me.RecordSource = "SELECT * FROM Project_Metadata" Me.RefreshEnd IfEnd Sub

du måste anpassa ovanstående kod för din egen databas. I exemplet ovan:

search_project_ID är namnet på textrutan som vi döpte om i steg 6.
Project_Metadata är namnet på tabellen som innehåller de data som vi behöver söka.
project_code är kolumnen i vår tabell som vi behöver söka.

kommandona Me står för det formulär som för närvarande är i fokus och vars kod nu körs, varför den används här.

steg 9

kontrollera att sökrutan fungerar i ditt formulär. Du bör nu kunna ange en term och returnera alla poster som innehåller strängen som du anger.

My Race