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

[jubourbon]

Merci à tous,

Tous est visible, mais dans le code c'est le 3eme txtbox qui pose problème et renvoi tjs la même erreur. Je m'arrache les cheveux

mc.schmer peux tu me donner un exemple de BuildCriteria utilisé avec une listbox?

[mc.schmer]

@ jubourbon

Je vais proceder à quelques test et je reviens vers toi...

[mc.schmer]

Re,

Bon voila, les tests ne sont pas concluants...
à titre indicatif, voila pourquoi :
Considerons un textbox nommé "txt_filtre", une variable string "str_filtre" pour récupérer le résutat de BuidCriteria, une variable string str_sql servant à construire ton instruction SQL et la méthode BuildCriteria suivante:

Code :

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

1
2
3
4
5
6
7
Dim str_filtre As String
Dim str_sql As String
Dim str_src As String
 
str_filtre = BuildCriteria("[MonChamp]", dbText, txt_filtre)
str_sql = "SELECT [MonChamp] FROM MaTable WHERE "
str_src = str_sql & str_filtre

Si on tape "A" dans le textbox, str_filtre nous renvoi

Code :

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

[MonChamp]="A"

Donc

Code :

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

str_src = "SELECT [MonChamp] FROM MaTable WHERE [MonChamp]="A""

Au final, je ne pense pas que cette méthode puisse t'apporter quoi que ce soit d'interessant ormis le verouillage de ta condition WHERE.

Désolé pour la fausse piste. Mea culpa

[jubourbon]

Désolé pour la fausse piste. Mea culpa

Pas de soucis, c'est super sympa d'avoir pris le temps de tester.

En revanche mon problème d'erreur est toujours présent. Quelqu'un a une piste?

[mc.schmer]

Quelques petits trucs basiques:
As-tu simplement tenter d'effacer tes textbox en question pour mieux les recréer... S'il s'agissait d'un problème de paramétrage, il pourrait bien être résolu.
As-tu tenter de les renommer?
As-tu tenter de remplacer tes texbox par des inputbox? Si oui quel réaction?

[Invité]

Bonjour

.text pour les zones de textes qui ont l'évènement Change (txtNumProd) dans ton cas et .value pour les autres.

A tester.

Philippe

[jubourbon]

Quelques petits trucs basiques:
As-tu simplement tenter d'effacer tes textbox en question pour mieux les recréer... S'il s'agissait d'un problème de paramétrage, il pourrait bien être résolu.
As-tu tenter de les renommer?
As-tu tenter de remplacer tes texbox par des inputbox? Si oui quel réaction?

Bonjour, j'ai tenter d'effacer et refaire, de le renommer, rien y fait. Quelque chose m’échappe.

J'ai trouvé une solution de contournement et créant des variable correspondant à chaque txtbox que je remplie lors du changement. Comme ca je suis sur que l'objet est actif et je requête ensuite avec ces variable.

Mais je trouve ça très surprenant, je viens du .Net et je suis un peu surpris du fonctionnement des form en vba.

[Delioneras]

Bonjour,

Je comprendrai jamais comment Microsoft peut se permettre d'avoir des philosophies de développement différentes pour une même gamme de produits.

J'ai un recordset qui me renvoie un enregistrement unique, et à partir duquel je souhaite remplir une zone de texte (textbox).

Sur Excel 2003, maTextBox.Text = maValeur marche sans problème.

Après fouille intense pour Access, j'ai finalement trouvé la solution dans l'aide associée (touche F1 sur windows) de la propriété ... Text du textbox.

Ainsi, il est bien précisé dans l'aide d'Access que le contrôle doit être actif avant de pouvoir lire ou écrire sa valeur, ce qui signifie, en VBA, qu'il faut lui assigner le focus AVANT de le lire ou de le charger.

Ce qui, accessoirement, impacte l'écran visuel puisque sélectionne le textbox en question et l'affiche, ce qui est parfois extrêmement génant (je pense notamment au contrôle onglet, quand on charge un bon paquet de valeurs ...).

Cela étant, voici le code correct pour la solution:

Code :

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

1
2
3
 
maTextBox.SetFocus
maTextBox.Text = maValeur

Clair qu'ils ont fait de gros efforts de cohérences et d'efficacité dans Visual Studio et SQL Server ...

[Tofalu]

Ou tout simplement :

maTextBox.Value= maValeur