adăugați o casetă de căutare simplă la un formular Microsoft Access

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

captura de ecran a panglicii controale din Microsoft Access
Faceți clic pe butonul „casetă text” pentru a insera o casetă text în secțiunea antet a formularului Microsoft Access.

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

în foaia de proprietăți pentru caseta de căutare, faceți clic pe” după actualizare ” ș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”).

schimbați numele casetei de căutare în ceva semnificativ. Acest nume va fi menționat în codul Visual Basic ulterior.

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.

Faceți clic pe simbolul ” … „de lângă” după actualizare ” din foaia de proprietăți pentru a accesa editorul de cod Visual Basic.

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.

Un exemplu de parte a unei secțiuni antet într-un formular Microsoft Access, care arată caseta de căutare care a fost creat (alături de alte butoane).

Leave a Reply

Lasă un răspuns

Adresa ta de email nu va fi publicată.