Dodaj proste pole wyszukiwania do formularza Microsoft Access

przewodnik krok po kroku, jak dodać proste pole wyszukiwania do formularza Microsoft Access.

ostatnio rozwijam bazę danych w Microsoft Access; naprawdę potężne narzędzie do wyszukiwania i zapytań do danych.

utworzyłem Formularz (o nazwie Project_Metadata, który jest oparty na tabeli o tej samej nazwie, ale musiał dodać pole wyszukiwania, aby móc zidentyfikować konkretne projekty w mojej bazie danych po ich kodzie projektu. Kody projektów są zawarte w kolumnie w tabeli Project_Metadata o nazwie project_code.

oto jak utworzyłem pole wyszukiwania:

Krok 1

Otwórz formularz, do którego chcesz dodać pole wyszukiwania, i wybierz „Widok projektu” z menu za pomocą wstążki „projekt”.

Krok 2

Wstaw pole tekstowe do sekcji nagłówka formularza, przeciągając je z panelu „sterowanie”.

zrzut ekranu wstążki kontrolek w programie Microsoft Access
kliknij przycisk „pole tekstowe”, aby wstawić pole tekstowe do sekcji nagłówka formularza Microsoft Access.

Krok 3

Zmień nazwę podpisu pola tekstowego na „wyszukaj identyfikator projektu” (lub inny znaczący tekst).

Krok 4

kliknij prawym przyciskiem myszy pole tekstowe i wybierz „Właściwości”, aby wyświetlić „arkusz właściwości”.

Krok 5

przejdź do After Update i wybierz „”:

w arkuszu właściwości pola wyszukiwania kliknij „po aktualizacji” i wybierz .

Krok 6

przejdź do zakładki „inne” w „arkuszu właściwości” i zmień nazwę pola tekstowego na coś znaczącego (np.

Zmień nazwę pola wyszukiwania na coś znaczącego. Nazwa ta będzie odwoływana w późniejszym kodzie Visual Basic.

Krok 7

wróć do zakładki „wydarzenie” i kliknij ... obok After Update. Spowoduje to wyświetlenie okna Visual Basic w programie Access.

kliknij symbol ” … „obok” After Update ” w arkuszu właściwości, aby uzyskać dostęp do edytora kodu Visual Basic.

Krok 8

Zamień cały tekst na następujący:

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

będziesz musiał dostosować powyższy kod do własnej bazy danych. W powyższym przykładzie:

  • search_project_ID jest nazwą pola tekstowego, którego nazwa została zmieniona w kroku 6.
  • Project_Metadata to nazwa tabeli, która zawiera dane, które musimy przeszukać.
  • project_code to kolumna w naszej tabeli, którą musimy przeszukać.

polecenia Me oznaczają formularz, który jest obecnie w centrum uwagi i którego kod jest teraz uruchomiony, dlatego jest tutaj używany.

Krok 9

sprawdź, czy pole wyszukiwania działa w Twoim formularzu. Teraz powinno być możliwe wprowadzenie wyrażenia i zwrócenie wszystkich rekordów zawierających wprowadzony ciąg znaków.

przykład części sekcji nagłówka w formularzu Microsoft Access, pokazującej utworzone pole wyszukiwania (obok innych przycisków).

Leave a Reply

Dodaj komentarz

Twój adres e-mail nie zostanie opublikowany.