Discussion :

[Z[ee]k]

Bonjour !

Je souhaiterai effectuer un filtre sur des requêtes, les filtres étant connu d'avance ! je m'explique, je dois effectuer un certain nombre de requetes qui dépendent de beaucoup de paramètres ( en exemple : il faut tous les clients d'un département ( 1re filtre ), ayant moins de 40 ans ( 2ème filtre ) ) enfin, pas mal de paramètres ^^ ( pour info je possède une base complète, il me suffit "simplement" de faire des requetes avec mes données ). Faut il passer par un formulaire ? faut il faire des requetes paramétrées ? faut il sauter par la fenetre ? faut il tout trier à la main ? ou encore placer stratégiquement des cases à cocher ?

Voilà, je suis paumé dans tout ce bazar, je vous remercie pour vos réponses !

[Z[ee]k]

up du midi !

[Meduse]

Ben...tu as l'embarras du choix !
Ca dépend de tes préférences, et entre autres :
Est-ce que tu as déjà un formulaire montrant tout le contenu de ta requête ?
Est-ce que c'est pour ton usage perso ou est-ce que ça sera utilisé par des gens qui ne connaissent pas Access ?
Est-ce que tu maitrises un peu VBA ou est-ce que tu y es allergique ?
...

[Z[ee]k]

Est-ce que tu as déjà un formulaire montrant tout le contenu de ta requête ?

Euh nop, j'y ai pensé, mais je ne sais pas du tout comment le concevoir et / ou mettre les renseignements dedans :/

Est-ce que c'est pour ton usage perso ou est-ce que ça sera utilisé par des gens qui ne connaissent pas Access ?

Alors, l'utilisation sera faite par des personnes n'ayant aucune notion dans Access, c'est pour cela que je cherche à faire le plus simplement du monde !

Est-ce que tu maitrises un peu VBA ou est-ce que tu y es allergique ?

Si je suis guidé, ok, sans ça, j'suis paumé...tu vois le niveau =)

Merci pour ta réponse ^^

[Z[ee]k]

Ca sent le "up" cette histoire >_<

[Meduse]

Commence déjà par créer un formulaire continu lié à ta requête qui contient toutes les données que tu veux (utilise l'assistant si tu penses que c'est plus simple) .
Tiens-moi au courant, je peux t'aider mais je bosse aussi !!
Ensuite dans l'en-tête du formulaire il y aura les critères de recherche et un bouton 'rechercher' avec un tout petit peu de VBA.

[Z[ee]k]

Ok ok, je te remercie de me consacrer de ton temps, et je test à partir de demain !
Le seul truc qui me chagrine, c'est que les critères de requetes sont fixes, mais la demande sera variante, on peut demander tel secteur avec tel age pour le client, ou bien tel chose avec une autre, et je ne vois pas cela dans un formulaire, enfin c'est dur d'imaginer la chose, je n'ai pas vraiment d'idée

[Meduse]

Mais si c'est possible:
l'idée c'est que quand l'utilisateur pressera le bouton Rechercher une procédure événementielle réécrira la propriété Recordsource (ou la propriété Filter, au choix) du formulaire et mettra à jour l'affichage. Crée déjà le formulaire (cf image jointe) et je t'aiderai pour le code du bouton rechercher.

[Z[ee]k]

Je te remercie pour ce début très prometteur !

Alors j'ai quelques questions par rapport à ton image jointe, tout d'abord que veux dire "Unbound" ? ( j'pense que tu as une version anglaise de access ! ) ensuite il y a, dans le haut du formulaire "Nom, numéro, age" et en dessous pareil, je serai tenté de croire que pour une partie ce sont les entêtes et de l'autre les étiquettes où sont les données !

Sinon, ce matin même je commence ce formulaire, et je suis pret à recevoir le code pour le bouton rechercher !

En te remerciant encore

[Z[ee]k]

up ?!!

[Meduse]

Ah bon, j'attendais que tu nous envoie une image de ton formulaire.
Enfin, voilà le code du bouton Rechercher pour celui dont je t'ai envoyé l'image :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
Private Sub cmdRechercher_Click()
 
Dim sCritere As String
 
'Ecrit le critere de recherche en fonction de ce qu'a rempli l'utilisateur
 
If IsNull(Me.txtCritereNom)=False And Me.txtCritereNom<>"" Then 
    sCritere = "Nom LIKE '" & Me.txtCritereNom & "' AND "
    'LIKE permet d'utiliser les caracteres de remplacement * et ?
End If
 
If Not IsNull(Me.txtAgeMin) Then sCritere = sCritere & "Age>" & Me.txtAgeMin & " AND "
If Not IsNull(Me.txtAgeMax) Then sCritere = sCritere & "Age<" & Me.txtAgeMax & " AND "
 
If Not IsNull(Me.txtCritereDepartement) Then sCritere = sCritere & "Departement=" & Me.txtCritereDepartement & " AND "
 
 
If sCritere = "" Then       'Aucun critere de recherche -> affiche tout
    Me.RecordSource = "MaTable"
Else
    'Retire le dernier AND
    sCritere = Left(sCritere, Len(sCritere) - 5)
    'Applique le filtre
    Me.RecordSource = "SELECT * FROM MaTable WHERE " & sCritere
End If
'Rafraichit le formulaire
Me.Requery
End Sub

Il faut aussi remettre à zéro l'affichage à l'ouverture du formulaire, avec une procédure événementielle :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Private Sub Form_Load()
Me.RecordSource = "MaTable"
End Sub

A toi d'adapter à ton propre formulaire, c'est pas difficile.

[Z[ee]k]

Je te remercie !

Cette solution est à tester, ensuite, j'ai découvert un autre petit truc c'est "filtrer" et ca correspond aussi à la même demande, alors je vais étudier les deux, et te tiens au courant !

Encore merci