Discussion :

[Gaston62]

Bonjour à tous,
Je suis relativement novice en VBA, cependant j'aimerais rajouter une fonction de recherche multicritères à ma base de donnée.



Il s'agit d'une base de donnée de films : il y a plusieurs champs booléen qui déterminent le type de support (VHS, LD, DVD, BD, etc...), ainsi que la version (VO). Ce que je voudrais obtenir, c'est un sous-formulaire, dans lequel on coche les différents supports et ou version, qui servirait à créer dynamiquement une requête sur base des champs choisi pour me restituer la liste des enregistrements où la valeur de ces champs est "Vrai".



Par exemple, si je coche LD et BD, la requête m'affiche les films que je possède en LD ET en BD.

D'avance merci pour votre aide,
Gaston

[hyperion13]

Salut
Il y a un module "recherche" sur DEV. Ça tombe bien, nul besoin d'être novice, initié ou expert en vba.
ici et là.

[Gaston62]

Merci hyperion13,

J'avais déjà consulté la recherche multicritères de Charles A., mais ce n'est pas vraiment ce que je recherche. Je regarde l'article de Jean Ballat et je reviens vers vous.

[hyperion13]

Sans passer par une req.
A tester et à adapter à ton IHM

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
29
30
31
32
33
34
35
36
37
38
39
40
Sub FilterForm()
Dim strWhere As String
If Me.chkvhs = True Then
    strWhere = "AND [vhs] = True"
End If
If Me.chkld = True Then
    strWhere = strWhere & " AND [ld] = True"
End If
If Me.chkdvd = True Then
    strWhere = strWhere & " AND [dvd] = True"
End If
If Me.chkbd = True Then
    strWhere = strWhere & " AND [bd] = True"
End If
If Me.chkcopie = True Then
    strWhere = strWhere & " AND [copie] = True"
End If
If Me.chkvo = True Then
    strWhere = strWhere & " AND [vo] = True"
End If
If strWhere = "" Then
    Me!frm_film_sf.Form.FilterOn = False
Else
    strWhere = Mid(strWhere, 5)
    Me!frm_film_sf.Form.Filter = strWhere
    Me!frm_film_sf.Form.FilterOn = True
End If
End Sub
Private Sub btnfiltre_Click()
FilterForm
End Sub
Private Sub btnreset_Click()
Me!frm_film_sf.Form.FilterOn = False
Me.chkvhs = False
Me.chkld = False
Me.chkdvd = False
Me.chkbd = False
Me.chkcopie = False
Me.chkvo = False
End Sub

[Gaston62]

Un grand merci pour ton aide hyperion13, mais je suis un peu perdu (je suis novice en la matière).
Je suppose que FilterForm est le formulaire principal et frm_film_sf le sous-formulaire et que tout le code est mis dans le formulaire principal ?

[hyperion13]

Re
Sub FilterForm() est une proc. qu'il faut coller dans le form principal.
frm_film_sf est effectivement le sform.

[Gaston62]

J'obtiens l'erreur suivante :

[hyperion13]

Vérifier le nom de l'objet inséré dans le form

[Gaston62]

Ça commence à prendre forme, mais dans mon sous-formulaire j'obtiens seulement un record à la place d'une liste des films qui répondent aux critères.

[hyperion13]

...mais dans mon sous-formulaire j'obtiens seulement un record à la place d'une liste des films qui répondent aux critères.

Sauf si vous avez plusieurs enregistrements de l'Odyssée de l'Espace au format vhs, bd, copie, vo avec le filtre vous ne pouvez avoir qu'un seul résultat.
en attache un exemple modifié

[Gaston62]

OK, ça marche. Voici les fautes que j'avais commises sur frm_film

chkvhs source contrôle : vhs
chkld source contrôle : ld
etc...

Là, je ne sais pas comment mais les champs pères et champs fils de frm_film_sf étaient mis à N°

Un tout grand merci pour ton aide hyperion13.

Dernière petite question, je voudrais que le sous-formulaire s'ouvre dans une autre fenêtre.
Comment faut-il procéder ?

Cordialement,
Gaston

[hyperion13]

Un truc comme ça

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
29
Private Sub btnfiltre_Click()
Dim strWhere As String
strWhere = ""
If Not IsNull(Me.cbofilm) And Me.cbofilm <> "" Then
    strWhere = "AND [film] = '" & Me.cbofilm & "'"
End If
If Me.chkvhs = True Then
    strWhere = strWhere & " AND [vhs] = True"
End If
If Me.chkld = True Then
    strWhere = strWhere & " AND [ld] = True"
End If
If Me.chkdvd = True Then
    strWhere = strWhere & " AND [dvd] = True"
End If
If Me.chkbd = True Then
    strWhere = strWhere & " AND [bd] = True"
End If
If Me.chkcopie = True Then
    strWhere = strWhere & " AND [copie] = True"
End If
If Me.chkvo = True Then
    strWhere = strWhere & " AND [vo] = True"
End If
If strWhere <> "" Then
    strWhere = Mid(strWhere, 5)
End If
DoCmd.OpenForm "frm_film1", acViewNormal, , strWhere
End Sub

[Gaston62]

Quelle est la source de cbofilm ?
Doit-elle être crée dans le nouveau formulaire frm_film1 ?

[hyperion13]

Event Gotfocus() de la cbo

Quelle est la source de cbofilm ?

ben non.

Doit-elle être crée dans le nouveau formulaire frm_film1 ?

[Gaston62]

Je comprends ton étonnement (), mais mes connaissances en VBA sont limitées.
J'ai beau chercher, mais je ne vois pas d'où viennent le combo "cbofilm" et le formulaire "frm_film1"

[hyperion13]

Alt F11 pour ouvrir l'environnement VBA
Un peu de lecture pour comprendre le vba sous Access. L'histoire commence ici.

le postulat initial filtrer un sform selon un jeu booléen
le postulat change à votre initiative, vous voulez afficher le résultat dans un autre form.
j'ai donc créer cet autre form que j'ai nommé frm_film1 en affichage datasheet.
la combobox remplace votre textbox, plus simple pour récupérer une valeur que de saisir la valeur surtout avec 2001, L'odyssée de l'espace. Combien vont oublier de saisir la virgule après 2001 ?

[Gaston62]

Le frm_film1 en affichage datasheet est exactement ce qu'il me fallait.

La raison pour laquelle je voulais un formulaire séparé est le manque de place sur le formulaire père ; l'affiche du film prend la moitié de l'écran. Désolé d'avoir changé de postulat en cour de route.

J'ai appris pas mal de chose avec cette discussion, je ne regrette pas de m'être inscrit sur ce forum.

Encore merci pour ta patience,
Gaston