Føj et simpelt søgefelt til en Microsoft Access-formular

en trinvis vejledning til tilføjelse af et simpelt søgefelt til en Microsoft Access-formular.

jeg har for nylig udviklet en database i Microsoft Access; et virkelig kraftfuldt værktøj til søgning og forespørgsel af data.

jeg oprettede en formular (kaldet Project_Metadata, som er baseret på en tabel med samme navn, men skulle tilføje et søgefelt, så jeg kunne identificere specifikke projekter i min database ved hjælp af deres projektkode. Projektkoderne er indeholdt i en kolonne i tabellen Project_Metadata kaldet project_code.

sådan oprettede jeg søgefeltet:

Trin 1

Åbn den formular, du vil tilføje søgefeltet til, og vælg “Designvisning” i menuen via “Design” – båndet.

Trin 2

Indsæt et tekstfelt i overskriftssektionen i formularen ved at trække det fra ruden “kontrol”.

skærmbillede af kontrolbåndet i Microsoft Access — Klik på knappen “tekstboks” for at indsætte et tekstfelt i overskriftssektionen i Microsoft Access-formularen.

Trin 3

Omdøb tekstboksens billedtekst til “Søg projekt-ID” (eller anden meningsfuld tekst).

Trin 4

Højreklik på tekstfeltet og vælg “Egenskaber” for at afsløre “egenskabsark”.

Trin 5

gå til After Update og vælg “”:

i Egenskabsarket til søgefeltet skal du klikke på “efter opdatering” og vælge .

Trin 6

gå til fanen “andet” i “egenskabsark” og omdøb tekstfeltet til noget meningsfuldt (f.eks.

Skift navnet på søgefeltet til noget meningsfuldt. Dette navn vil blive refereret i senere Visual Basic kode.

Trin 7

gå tilbage til fanen “begivenhed” og klik på ...ved siden af After Update. Dette åbner et Visual Basic-vindue i Access.

Klik på symbolet ” … “ved siden af” efter opdatering ” i Egenskabsarket for at få adgang til Visual Basic code editor.

Trin 8

erstat hele teksten med følgende:

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 skal tilpasse ovenstående kode til din egen database. I eksemplet ovenfor:

search_project_ID er navnet på det tekstfelt, som vi omdøbte i Trin 6.
Project_Metadata er navnet på tabellen, der indeholder de data, vi skal søge.
project_code er kolonnen i vores tabel, som vi skal søge.

kommandoerne Me står for den formular, der aktuelt er i fokus, og hvis kode kører nu, hvorfor den bruges her.

trin 9

Kontroller, at din søgefelt fungerer i din formular. Du skal nu kunne indtaste et udtryk og returnere alle poster, der indeholder den streng, du indtaster.

My Race