egyszerű keresőmező hozzáadása a Microsoft Access űrlaphoz

lépésről lépésre útmutató egy egyszerű keresőmező hozzáadásához a Microsoft Access űrlaphoz.

nemrég fejlesztettem egy adatbázist a Microsoft Accessben; egy igazán hatékony eszköz az adatok keresésére és lekérdezésére.

létrehoztam egy űrlapot (az úgynevezett Project_Metadata amely egy azonos nevű táblán alapul, de hozzá kellett adni egy keresőmezőt, hogy az adatbázisomban konkrét projekteket azonosíthassak a projektkódjuk alapján. A projektkódok a Project_Metadata táblázat project_code nevű oszlopában találhatók.

így hoztam létre a keresőmezőt:

1.lépés

nyissa meg azt az űrlapot, amelyhez hozzá szeretné adni a keresőmezőt, majd válassza a “Design View” menüpontot a menüből a “Design” szalagon keresztül.

2.lépés

helyezzen be egy szövegmezőt az űrlap fejléc szakaszába a “vezérlők” ablaktáblából húzva.

a vezérlőszalag Képernyőfelvétele a Microsoft Access alkalmazásban
kattintson a “szövegdoboz” gombra egy szövegdoboz beszúrásához a Microsoft Access űrlap fejléc szakaszába.

3.lépés

nevezze át a szövegmező feliratát “Projektazonosító keresése” (vagy más értelmes szöveg) névre.

4.lépés

kattintson a jobb gombbal a szövegmezőre, majd válassza a “Tulajdonságok” lehetőséget a “Tulajdonságlap”megjelenítéséhez.

5. lépés

lépjen a After Update oldalra, és válassza “”:

a keresőmező tulajdonságlapján kattintson a “frissítés után” gombra, majd válassza a lehetőséget .

6.lépés

lépjen a “Tulajdonságlap” “Egyéb” fülére, és nevezze át a szövegmezőt valami értelmesre (pl. “search_project_ID”).

változtassa meg a keresőmező nevét valami értelmesre. Erre a névre a későbbi Visual Basic kódban hivatkozunk.

7.lépés

menjen vissza az “esemény” fülre, és kattintson a ...elemre a After Update mellett. Ez megjelenít egy Visual Basic ablakot az Access alkalmazásban.

kattintson a tulajdonságlapon a “frissítés után” melletti ” … ” szimbólumra a Visual Basic kódszerkesztő eléréséhez.

8. lépés

cserélje ki az összes szöveget a következőre:

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

a fenti kódot saját adatbázisához kell testreszabnia. A fenti példában:

  • search_project_ID a 6. lépésben átnevezett Szövegmező neve.
  • Project_Metadata a táblázat neve, amely tartalmazza a kereséshez szükséges adatokat.
  • project_code az oszlop a táblázatban, hogy meg kell keresni.

a Me parancsok azt az űrlapot jelentik, amely jelenleg fókuszban van, és amelynek kódja most fut, ezért használják itt.

9.lépés

ellenőrizze, hogy a keresőmező az űrlapon működik-e. Most már meg kell tudnia adni egy kifejezést, és vissza kell adnia az összes rekordot, amely tartalmazza a beírt karakterláncot.

példa egy Microsoft Access űrlap fejlécszakaszának egy részére, amely a létrehozott keresőmezőt mutatja (más gombok mellett).

Leave a Reply

Vélemény, hozzászólás?

Az e-mail-címet nem tesszük közzé.