Discussion :

[jubourbon]

Bonjour,

J'ai un formulaire avec une listebox affichant le resultat d'une requete. Je souhaite filtrer les résultat depuis le formulaire. Pour cela j'ai créé 3 textbox ou l'utilisateur peut saisir du texte pour filtrer.
Ensuite l'utilisateur clique sur un bouton.
Sur l’événement de clique j'ai une procédure associé:

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
 
Private Sub txtNumProd_Change()
    Dim sReq As String
    sReq = "SELECT Produits.nom, Produits.Description, Fournisseurs.nom "
    sReq = sReq & "FROM Fournisseurs INNER JOIN Produits ON Fournisseurs.IDFournisseur=Produits.IDFournisseurs "
 
    If (txtNumProd <> "") Then
        sReq = sReq & " Where Produits.nom like '" & txtNumProd.Text & "' "
    Else
        sReq = sReq & " Where true=true "
    End If
 
    If (txtNomProd <> "") Then
       sReq = sReq & " AND Produits.Description like '%" & txtNomProd.Text & "%' "
    Else
        sReq = sReq & " AND true=true "
    End If
 
    If (txtNomProducteur <> "") Then
        sReq = sReq & " AND Fournisseurs.nom like '" & txtNomProd.Text & "' "
    Else
        sReq = sReq & " AND true=true "
    End If
 
    sReq = sReq & "ORDER BY Produits.MaterialNumberLong;"
    sReq = sReq & " "
 
    lstResult.RowSource = sReq
    lstResult.Requery
 
    If (lstResult.ListCount) > 0 Then
        lstResult.Selected(0) = False
    End If
End Sub

J'ai précédé le nom de mes textbox par txt et le nom de ma listbox par lst

Quand le code s’exécute il me renvoi l'erreur suivante:
"erreur d’exécution 2185" impossible de faire référence à une propriété ou de la définir pour un contrôle si ce dernier n'est pas activé

Je ne comprend pas ce message, tous mes contrôles existe, le nom est le bon.

Bref je suis preneur de tous conseils, même si je m'y prend mal et que quelqu'un a une autre solution.

Par avance merci pour votre aide.

[robyseb]

Bonjour!
Premièrement ces bizarre tu dit :

Sur l’événement de clique j'ai une procédure associé:

et ta procédure porte ce nom :

Code :

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

Private Sub txtNumProd_Change()

nous devrions voir quelques chose comme :

Code :

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

Private Sub txtNumProd_Click()

Ensuite ton erreur semble venir du fait que un de tes contrôle ne soit pas activé lors du déroulement de ton code alors vérifie ca ... avec la fonction

Code :

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

montextbox.Enabled

d'un contrôle tu peut l'activer au moment opportun

cordialement

[jubourbon]

Bonjour,

Oui le nom de la procédure et du au fait que j'ai changé l'association de l’événement et de la procédure, mais cela n'a pas d'incidence sur l’exécution du code.

J'ai ajouté au debut de ma procedure:

Code :

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

1
2
3
4
 
    txtNumProd.Enabled = True
    txtNomProd.Enabled = True
    txtNomProducteur.Enabled = True

Mais ça me renvoi la meme erreur

[Invité]

Bonjour

Lorsque tu écris txtNumProd , c'est comme si tu écrivais txtNumProd.Value car c'est la propriété par défaut d'une zone de texte.

Hors sur un évènement change il faut utiliser la propriété text.

Donc essayes :

Code :

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

Me.txtNumProd.Text

à la place de

Code :

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

txtNumProd

De plus, laisses le mot Me, comme quoi le code est dans le formulaire, c'est (je trouve) plus clair dans du code.

Philippe

[jubourbon]

J'ai remis ma fonction attaché à l’événement changement de valeur du txtNumProd.

Merci pour les conseils de bonne pratique je les également appliqués.

Lorsque le code s’exécute et qu'il arrive sur les autres textbox du formulaire (ceux qui n'ont pas déclenché) et qui sont vide (rien n'est saisi dedans) il me renvoi toujours la même erreur

Voici mon code à présent:

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
 
Private Sub txtNumProd_Change()
    Dim sReq As String
    sReq = "SELECT Produits.nom, Produits.Description, Fournisseurs.nom "
    sReq = sReq & "FROM Fournisseurs INNER JOIN Produits ON Fournisseurs.IDFournisseur=Produits.IDFournisseurs "
 
    If (Me.txtNumProd.Text <> "") Then
        sReq = sReq & " Where Produits.nom like '" & txtNumProd.Text & "' "
    Else
        sReq = sReq & " Where true=true "
    End If
 
    If (Me.txtNomProd.Text <> "") Then
       sReq = sReq & " AND Produits.Description like '*" & txtNomProd.Text & "*' "
    Else
        sReq = sReq & " AND true=true "
    End If
 
    If (Me.txtNomProducteur.Text <> "") Then
        sReq = sReq & " AND Fournisseurs.nom like '" & txtNomProd.Text & "' "
    Else
        sReq = sReq & " AND true=true "
    End If
 
    sReq = sReq & "ORDER BY Produits.MaterialNumberLong;"
    sReq = sReq & " "
 
    lstResult.RowSource = sReq
    lstResult.Requery
 
    If (lstResult.ListCount) > 0 Then
        lstResult.Selected(0) = False
    End If
End Sub

[mc.schmer]

Bonjour à tous,

Pour ma part, dans un cas similaire, j'utilise la méthode BuildCriteria sur un formulaire afichant ma requête afin de construire mon filtre à partir d'un text box.

Code :

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

1
2
Me.Filter = BuildCriteria("[MonChamp]", dbText, txtNumProd & "*")
    Me.FilterOn = True

Peut-être une piste à explorer en remplacant Me.filter par ta variable string sReq...

Amicalement.

[robyseb]

Salut est-ce que tes textbox sont visible ? si non ca ne fonctionne pas

ces la même chose que enabled soit

Code :

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

me.montextbox.visible

merci pour le me. et l'indication du .value phillipe c'est bon à savoir