un ghid pas cu pas pentru adăugarea unei casete de căutare simplă la un formular Microsoft Access.
am dezvoltat recent o bază de date în Microsoft Access; un instrument foarte puternic pentru căutarea și interogarea datelor.
am creat un formular (numit Project_Metadata
care se bazează pe un tabel cu același nume, dar necesar pentru a adăuga o casetă de căutare, astfel încât să pot identifica proiecte specifice în baza mea de date de codul lor de proiect. Codurile proiectului sunt conținute într-o coloană din tabelul Project_Metadata
numit project_code
.
Iată cum am creat caseta de căutare:
Pasul 1
Deschideți formularul la care doriți să adăugați caseta de căutare și selectați „Vizualizare Design” din meniu prin intermediul panglicii „Proiectare”.
Pasul 2
introduceți o casetă de text în secțiunea antet a formularului glisând-o din panoul „controale”.

Pasul 3
redenumiți legenda casetei de text la „căutați ID-ul proiectului” (sau alt text semnificativ).
Pasul 4
faceți clic dreapta pe caseta de text și selectați „Proprietăți” pentru a afișa „foaia de proprietăți”.
Pasul 5
mergeți la After Update
și selectați „”:

Pasul 6
accesați fila „Altele” din „foaia de proprietăți” și redenumiți caseta de text la ceva semnificativ (de exemplu, „search_project_ID”).

Pasul 7
reveniți la fila „eveniment” și faceți clic pe ...
lângă After Update
. Aceasta va afișa o fereastră Visual Basic în Access.

Pasul 8
înlocuiți tot textul cu următorul text:
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
va trebui să personalizați codul de mai sus pentru propria bază de date. În exemplul de mai sus:
-
search_project_ID
este numele casetei de text pe care am redenumit-o la Pasul 6. -
Project_Metadata
este numele tabelului care conține datele pe care trebuie să le căutăm. -
project_code
este coloana din tabelul nostru pe care trebuie să o căutăm.
comenzile Me
reprezintă formularul care este în prezent focalizat și al cărui cod rulează acum, motiv pentru care este folosit aici.
Pasul 9
verificați dacă caseta de căutare funcționează în formularul dvs. Acum ar trebui să puteți introduce un termen și să returnați toate înregistrările care conțin șirul pe care îl introduceți.
