Voeg een eenvoudig zoekvak toe aan een Microsoft Access-formulier

een stap-voor-stap handleiding om een eenvoudig zoekvak toe te voegen aan een Microsoft Access-formulier.

ik heb onlangs een database in Microsoft Access ontwikkeld; een echt krachtig hulpmiddel voor het zoeken en opvragen van gegevens.

ik heb een formulier aangemaakt (Project_Metadata genaamd) dat gebaseerd is op een tabel met dezelfde naam, maar dat nodig is om een zoekvak toe te voegen zodat ik specifieke projecten in mijn database kan identificeren aan de hand van hun projectcode. De projectcodes zijn opgenomen in een kolom in de tabel Project_Metadata, genaamd project_code.

zo heb ik het zoekvak aangemaakt:

Stap 1

Open het formulier waaraan u het zoekvak wilt toevoegen en selecteer “Design View” in het menu via het “Design” lint.

Stap 2

plaats een tekstvak in het kopgedeelte van het formulier door het te slepen vanuit het deelvenster “besturingselementen”.

schermopname van het Besturingslint in Microsoft Access — klik op de knop “Tekstvak” om een tekstvak in te voegen in het kopgedeelte van het Microsoft Access-formulier.

Stap 3

hernoem de titel van het tekstkader naar “Project-ID zoeken” (of andere betekenisvolle tekst).

Stap 4

Klik met de rechtermuisknop op het tekstvak en selecteer “Eigenschappen” om het “eigenschappenvenster”te onthullen.

Stap 5

Ga naar After Update en selecteer “”:

in het eigenschappenvenster voor het zoekvak, klik op “na Update” en selecteer .

Stap 6

Ga naar het tabblad ” Overige “in het” eigenschappenvenster “en hernoem het tekstvak naar iets betekenisvols (bijvoorbeeld”search_project_ID”).

Wijzig de naam van het zoekvak naar iets betekenisvols. Naar deze naam wordt later verwezen in Visual Basic-code.

Stap 7

Ga terug naar het tabblad” gebeurtenis ” en klik op ... naast After Update. Dit zal een Visual Basic venster in Access.

klik op het ” … “symbool naast” Na Update ” in het eigenschappenvenster om toegang te krijgen tot de Visual Basic code editor.

Stap 8

de gehele tekst vervangen door de volgende tekst::

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

u moet de bovenstaande code aanpassen voor uw eigen database. In het voorbeeld hierboven:

search_project_ID is de naam van het tekstvak dat we hernoemd hebben in Stap 6.
Project_Metadata is de naam van de tabel die de gegevens bevat die we moeten doorzoeken.
project_code is de kolom in onze tabel die we moeten doorzoeken.

de Me commando ‘ s staan voor het formulier dat momenteel in beeld is en waarvan de code nu draait, daarom wordt het hier gebruikt.

stap 9

Controleer of uw zoekvak in uw formulier werkt. Je zou nu in staat moeten zijn om een term in te voeren en alle records terug te geven die de string bevatten die je invoert.

My Race