Nos fils RSS

Nos Newsletters

@pcastuces

Filtre multi-critères sur un formulaire - Access

Auteur de l'article : Baptiste Dumouchel

Lorsque vous ouvrez un formulaire sous Access basé sur une table ou une requête, par défaut vous avez l'ensemble des données d'affichées. Il est intéressant de pouvoir filtrer cet ensemble afin de faire ressortir les données recherchées aisément et rapidement. Nous allons donc vous apprendre à faire un petit module de recherche à plusieurs critères, quatre dans notre exemple.

• Création de la table :

Pour modèle, nous allons prendre une table dans laquelle sont stockées une liste de livres. Les différents champs sont :

- Un numéro automatique qui servira de clé primaire et unique à chaque enregistrement
- Un titre (texte)
- Un auteur (texte)
- Une date d'entrée en stock (date de type JJ/MM/AA)
- Une description succincte (texte)


Vous pouvez bien sûr en ajouter d'autres, mais ces champs suffiront à traiter différents types de filtre.
Une fois la création de la table terminée, ouvrez cette table et insérez-y quelques enregistrements.

• Création du formulaire :

A l'aide de l'assistant, créez un formulaire en mode Tableau, ayant pour source de données la table Livres.

Ensuite, ajoutez 5 champs textes indépendants en haut de votre formulaire, qui serviront de champs de recherche. Nommez-les Rtitre, Rauteur, Rdesc, Rdate1 et Rdate2. Ajoutez également un bouton OK nommé CmdFiltre.

• Création du filtre :

Pour chaque champ texte indépendant créé non vide, nous allons vérifier s'il existe un équivalent dans la table Livres, et ceci au moment du clic sur le bouton. A chaque zone de saisie de plus, cela sera un critère de plus de filtrage (condition logique ET).

Nous avons deux types de données : une date et du texte. Pour la date, le filtre se fera sur une comparaison entre les deux dates saisies dans le filtre. Pour les textes, nous allons employer deux méthodes à titre d'exemple : le titre et la description pourront être saisis partiellement tandis que l'auteur devra être saisi à l'exactitude.

Saisissez donc ce code sur l'événement SurClic du bouton OK :

f = ""
If Not IsNull(Me.RTitre) And Me.RTitre <> "" Then
f = "titre LIKE ""*" & Me.RTitre & "*"""
End If
If Not IsNull(Me.Rauteur) And Me.Rauteur <> "" Then
If f <> "" Then
f = f & " AND auteur = """ & Me.Rauteur & """"
Else
f = "auteur = """ & Me.Rauteur & """"
End If
End If
If Not IsNull(Me.RDesc) And Me.RDesc <> "" Then
If f <> "" Then
f = f & " AND Description LIKE ""*" & Me.RDesc & "*"""
Else
f = "Description LIKE ""*" & Me.RDesc & "*"""
End If
End If
If Not IsNull(Me.Rdate1) And Me.Rdate1 <> "" And Not IsNull(Me.Rdate2) And Me.Rdate2 <> "" Then
If f <> "" Then
f = f & " AND clng([date stock]) BETWEEN " & CLng(Me.Rdate1) & " AND " & CLng(Me.Rdate2) & ""
Else
f = "clng([date stock]) BETWEEN " & CLng(Me.Rdate1) & " AND " & CLng(Me.Rdate2) & ""
End If
End If
Me.Filter = f
Me.FilterOn = True

• Explications :

Tout d'abord, on vide la variable f qui servira à construire le filtre. Ensuite, pour chaque zone de recherche existante, on vérifie si ce champ contient ou non des données. Si oui, on crée le filtre relatif au champ saisi. Enfin, on affecte la variable f au filtre du formulaire, que l'on active.

• Spécificités :

- Les champs auteur et description peuvent être saisis partiellement : c'est pourquoi dans le code nous mettons LIKE au lieu du signe égal, ainsi que les astérisques afin de comparer cette saisie à n'importe quel endroit du champ stocké.
- Les dates sont converties en format numérique (fonction clng) afin de pouvoir les comparer sans erreur (différents formats par exemple).

Voici le résultat :

Abonnez-vous gratuitement à la Newsletter Fiches pratiques :

Pour être informé gratuitement des nouvelles Fiches pratiques sur PC Astuces, veuillez saisir ci-dessous votre adresse e-mail:

Comment se désabonner ?

Nos Newsletters - Plus de 226 000 inscrits ! Inscrivez-vous et recevez gratuitement nos newsletters par e-mail : La newsletter quotidienne de PC Astuces (1 fois par jour) La lettre des bonnes affaires (1 à 2 fois par semaine). Les fonds d'écran publiés sur PC Astuces (1 fois par semaine). Une notification à chaque nouveau bon plan. + 5700 astuces archivées Archives des lettres quotidiennes   Changer d'adresse e-mail Se désabonner Protection de vos données personnelles

Les derniers dossiers Bureautique Ouvrir les fichiers Microsoft Office avec la suite Google Word, Excel, PowerPoint : ces applications font partie de la suite bureautique la plus populaire, à savoir Microsoft Office. Vous l'utilisez probablement au bureau, à l'école, mais peut être pas à la maison. Pour travailler avec des fichiers DOC, DOCX, XLS, XLSX, PPT, PPTX, vous pouvez passer par le service en ligne Google Suite. Ce dernier permet de bénéficier d'outils bureautique complets : Google Docs, Google Sheets, Google Slide et d'un espace de stockage dans votre navigateur Web et accessibles depuis n'importe où. Voici comment ouvrir directement les fichiers Microsoft Office dans Google Suite. Sélectionner du texte au clavier A l'aide de raccourcis clavier, vous pouvez facilement sélectionner un mot, une phrase, un paragraphe, ou même un document en entier ! Pratique si vous avez du mal à sélectionner un texte à la souris ou pour gagner du temps dans certaines situations. 45 astuces pour Google Documents 45 astuces pratiques pour Google Docs et Google Sheets, les outils bureautique en ligne de Google et qui peuvent servir d'alternatives à Word ou Excel. Partitionner un disque dur avec Windows 10 Avec les outils intégrés à Windows 10, vous pouvez découper votre disque dur ou SSD en plusieurs partitions sans perdre vos données ! Vous pourrez ainsi mieux organiser vos dossiers et fichiers et les protéger contre d'éventuels dysfonctionnements de votre ordinateur. 164 astuces pour Microsoft Excel 164 astuces vous attendent pour améliorer la mise en page sous Excel, optimiser votre travail dans vos feuilles de calcul ainsi que vos impressions dans le tableur de la suite Office. Essayer Chrome OS Chrome OS est un système d'exploitation développé par Google que l'on trouve sur des ordinateurs portables appelés Chromebooks. Vous en avez probablement vu au catalogue des différents commerçant high tech à des tarifs aguicheurs. Sur Chrome OS, tout se fait à partir du navigateur Internet Google Chrome et d'applications Web à télécharger. S'ils permettent de faire la quasi-totalité de ce que les gens font aujourd'hui avec un ordinateur, nous vous conseillons d'essayer Chrome OS en toute sécurité sur votre ordinateur grâce à la virtualisation. Transformer son téléviseur en smart TV avec la Amazon Fire TV Stick Amazon commercialise depuis peu son premier produit destiné à votre TV : la clé HDMI Fire TV Stick. Cette clé vous permettra de transformer facilement et à moindre frais votre téléviseur en Smart TV sous Android TV. Lutter contre le démarchage téléphonique avec Bloctel Bloctel est un service d'opposition au démarchage téléphonique dans lequel vous pouvez déclarer vos numéros de téléphone à ne pas importuner. Les professionnels ont l'obligation de respecter cette liste. Comme partout, il y en a qui ne jouent pas le jeu et dans ce cas, vous pourrez les signaler. Cela ne bloquera pas ce fléau, mais cela devrait supprimer une bonne partie des appels non sollicités. Quelques astuces pratiques Supprimer les lignes vides Insérer du texte ou une image en filigrane Obtenir la définition d'un mot Effacer la mise en forme Mettre en avant les nombres négatifs Activer la sauvegarde automatique Insérer sa signature dans un document Créer un tableau d'amortissements

Les derniers bons plans Bol en verre Pyrex 2 l avec son couvercle à 5,99 € 5,99 € 17 € -65% Lot de 4 prises connectées Meross (16A, Alexa, Google, IFT) à 35,84 € 35,84 € 45 € -20% Carte mémoire Samsung 512 Go MicroSDXC Evo Select U3 (130 Mo/s) à 48,99 € 48,99 € 75 € -35% Carte mémoire Samsung 128 Go MicroSDXC Evo Select U3 (130 Mo/s) à 19,99 € 19,99 € 25 € -20% SSD Kingston A400 960 Go à 59,66 € € livré 59,66 € 75 € -20% Carte mère Gigabyte B550 AORUS Elite V2 (AM4, DDR4, M.2, USB 3.1, PCIe 4, LAN 2.5 GbE) à 144,86 € livrée 144,86 € 165 € -12% Smartphone Poco M5 (6,58'', Full HD+, 8 coeurs, 4 Go Ram, 64 Go, FR) à 133,18 € livré 133,18 € 189 € -30% Ecran 27 pouces LG Ultragear 27GN850-B (IPS, WQHD, 165 Hz, HDR10, G-Sync/FreeSync) à 279 € 279 € 350 € -20% Souris filaire Logitech G203 LightSync à 14,99 € 14,99 € 30 € -50% Kit de 32 Go (2 x 16 Go) de mémoire DDR4 Kingston Fury Beast 3200 MHz à 81,31 € livré 81,31 € 110 € -26% PC portable 15.6 pouces Gigabyte Aorus 15P (FHD 240 Hz, Core i7-11800H, 32 Go RAM, SSD 1 To, GeForce RTX 3080, Windows 10) à 1699,99 € 1699,99 € 2399,99 € -29% Système de sécurité Amazon Ring Alarm Kit 5 pièces à 179,98 € 179,98 € 250 € -28% Kit de 16 Go (2 x 8 Go) de mémoire DDR4 Corsair Vengeance LPX 3600 MHz à 51,19 € 51,19 € 75 € -32% Processeur AMD Ryzen 7 5800X à 225,65 € livré 225,65 € 300 € -25% Disque dur externe Western Digital My Book 12 To USB 3.0 à 238,39 € livré 238,39 € 285 € -16% >> Tous les Bons Plans <<