Aggiungi una casella di ricerca semplice a un modulo Microsoft Access

Una guida passo-passo per aggiungere una casella di ricerca semplice a un modulo Microsoft Access.

Recentemente ho sviluppato un database in Microsoft Access; uno strumento davvero potente per la ricerca e l’interrogazione dei dati.

Ho creato un modulo (chiamato Project_Metadata basato su una tabella con lo stesso nome, ma avevo bisogno di aggiungere una casella di ricerca in modo da poter identificare progetti specifici nel mio database con il loro codice di progetto. I codici di progetto sono contenuti in una colonna all’interno della tabella Project_Metadata denominata project_code.

Ecco come ho creato la casella di ricerca:

Passo 1

Apri il modulo a cui vuoi aggiungere la casella di ricerca e seleziona “Design View” dal menu tramite la barra multifunzione “Design”.

Passo 2

Inserire una casella di testo nella sezione intestazione del modulo trascinandola dal riquadro “Controlli”.

Cattura dello schermo della barra multifunzione dei controlli in Microsoft Access
Fare clic sul pulsante “casella di testo” per inserire una casella di testo nella sezione intestazione del modulo Microsoft Access.

Passaggio 3

Rinominare la didascalia della casella di testo in “Cerca ID progetto” (o altro testo significativo).

Passo 4

Fare clic con il pulsante destro del mouse sulla casella di testo e selezionare “Proprietà” per visualizzare il “Foglio delle proprietà”.

Passo 5

Vai a After Update e seleziona “”:

All’interno del foglio delle proprietà per la casella di ricerca, fare clic su “Dopo l’aggiornamento” e selezionare .

Passo 6

Vai alla scheda “Altro” nel “Foglio delle proprietà” e rinomina la casella di testo in qualcosa di significativo (ad esempio “search_project_ID”).

Cambia il nome della casella di ricerca in qualcosa di significativo. Questo nome verrà fatto riferimento nel codice Visual Basic successivo.

Passo 7

Torna alla scheda “Evento” e fai clic su ...accanto a After Update. Questo farà apparire una finestra di Visual Basic in Access.

Fare clic sul simbolo “After” accanto a “Dopo l’aggiornamento” nel foglio delle proprietà per accedere all’editor di codice di Visual Basic.

Passaggio 8

Sostituire tutto il testo con quanto segue:

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

Sarà necessario personalizzare il codice di cui sopra per il proprio database. Nell’esempio sopra:

  • search_project_ID è il nome della casella di testo che abbiamo rinominato nel passaggio 6.
  • Project_Metadata è il nome della tabella che contiene i dati che dobbiamo cercare.
  • project_code è la colonna nella nostra tabella che dobbiamo cercare.

I comandi Me rappresentano il Modulo attualmente attivo e il cui codice è ora in esecuzione, motivo per cui viene utilizzato qui.

Passo 9

Controlla che la tua casella di ricerca funzioni nel tuo modulo. Ora dovresti essere in grado di inserire un termine e restituire tutti i record che contengono la stringa immessa.

Un esempio di parte di una sezione di intestazione in un modulo Microsoft Access, che mostra la casella di ricerca che è stata creata (insieme ad altri pulsanti).

Leave a Reply

Lascia un commento

Il tuo indirizzo email non sarà pubblicato.