erreur d'execution 2185 lors de l'execution d'une sub vba

Version imprimable

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:

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.

12/10/2011, 04h27
robyseb

Bonjour!
Premièrement ces bizarre tu dit :

Citation:

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

et ta procédure porte ce nom :

Code:

Private Sub txtNumProd_Change()

nous devrions voir quelques chose comme :

Code:

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:

montextbox.Enabled

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

cordialement
12/10/2011, 09h28
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:

1 2 3 4 txtNumProd.Enabled = True txtNomProd.Enabled = True txtNomProducteur.Enabled = True
Mais ça me renvoi la meme erreur :(
12/10/2011, 13h08
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:

Me.txtNumProd.Text

à la place de

Code:

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

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:

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

12/10/2011, 14h52
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:

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.
12/10/2011, 15h08
robyseb

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

ces la même chose que enabled soit

Code:

me.montextbox.visible

merci pour le me. et l'indication du .value phillipe c'est bon à savoir :mouarf:
12/10/2011, 15h33
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 :aie:

mc.schmer peux tu me donner un exemple de BuildCriteria utilisé avec une listbox?
12/10/2011, 15h40
mc.schmer

@ jubourbon

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

Re,

Bon voila, les tests ne sont pas concluants... :cry:
à 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:

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:

[MonChamp]="A"

Donc

Code:

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.:oops:

Désolé pour la fausse piste. Mea culpa

12/10/2011, 17h16
jubourbon

Citation:

Envoyé par mc.schmer

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?
12/10/2011, 22h34
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?
13/10/2011, 02h26
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
13/10/2011, 11h45
jubourbon

Citation:

Envoyé par 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?

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.
02/10/2013, 09h50
Delioneras

Même problème, recherche, et finalement, solution
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:

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 ...
02/10/2013, 19h35
Tofalu

Ou tout simplement :

maTextBox.Value= maValeur