Ajouter un champ de recherche simple à un formulaire Microsoft Access

Un guide étape par étape pour ajouter un champ de recherche simple à un formulaire Microsoft Access.

J’ai récemment développé une base de données dans Microsoft Access; un outil vraiment puissant pour rechercher et interroger des données.

J’ai créé un formulaire (appelé Project_Metadata qui est basé sur une table du même nom, mais qui devait ajouter une boîte de recherche pour pouvoir identifier des projets spécifiques dans ma base de données par leur code de projet. Les codes de projet sont contenus dans une colonne de la table Project_Metadata appelée project_code.

Voici comment j’ai créé la zone de recherche:

Étape 1

Ouvrez le formulaire auquel vous souhaitez ajouter la zone de recherche et sélectionnez « Vue de conception » dans le menu via le ruban « Conception ».

Étape 2

Insérez une zone de texte dans la section d’en-tête du formulaire en la faisant glisser du volet « Contrôles ».

Capture d'écran du ruban des contrôles dans Microsoft Access — Cliquez sur le bouton « zone de texte » pour insérer une zone de texte dans la section d’en-tête du formulaire Microsoft Access.

Étape 3

Renommez la légende de la zone de texte en « Rechercher l’ID du projet » (ou un autre texte significatif).

Étape 4

Faites un clic droit sur la zone de texte et sélectionnez « Propriétés » pour afficher la « Feuille de propriétés ».

Étape 5

Allez à After Update et sélectionnez « »:

Dans la feuille de propriétés de la zone de recherche, cliquez sur « Après la mise à jour » et sélectionnez.

Étape 6

Allez dans l’onglet « Autre » de la « Feuille de propriétés » et renommez la zone de texte en quelque chose de significatif (par exemple « search_project_ID »).

Changez le nom de la zone de recherche en quelque chose de significatif. Ce nom sera référencé dans le code Visual Basic ultérieur.

Étape 7

Revenez à l’onglet « Événement » et cliquez sur ... à côté de After Update. Cela fera apparaître une fenêtre Visual Basic dans Access.

Cliquez sur le symbole « After » à côté de « Après la mise à jour » dans la feuille de propriétés pour accéder à l’éditeur de code Visual Basic.

Étape 8

Remplacez tout le texte par ce qui suit:

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

Vous devrez personnaliser le code ci-dessus pour votre propre base de données. Dans l’exemple ci-dessus:

search_project_ID est le nom de la zone de texte que nous avons renommée à l’étape 6.
Project_Metadata est le nom de la table qui contient les données que nous devons rechercher.
project_code est la colonne de notre table que nous devons rechercher.

Les commandes Me représentent le formulaire actuellement au point et dont le code est en cours d’exécution, c’est pourquoi il est utilisé ici.

Étape 9

Vérifiez que votre champ de recherche fonctionne dans votre formulaire. Vous devriez maintenant pouvoir entrer un terme et renvoyer tous les enregistrements contenant la chaîne que vous entrez.

My Race