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.

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 “”:

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”).

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.

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.
