Erreur de compilation sur un code VBA

Version imprimable

Bonjour à tous,

Débutant sur la programmation VBA, je m'efforce de réaliser les tutoriels présents sur le site pour m'entrainer. Cependant je rencontre un obstacle avec ce code :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Private Sub cmd_recherche_Click()
 
    Dim strTable As String, strField As String, strCriteria As String, strSql As String
    Dim Criter As Variant
 
    strTable = Me.cbo_table         ' recupère le nom de la table
    strField = Me.cbo_champ         ' recupère le nom du champ
 
    ' compose le critere de recherche
    strCriteria = strTable & "." & strField & " Like """ & Me.txt_Critere & """"
 
    ' construit la requête sql
    strSql = "SELECT DISTINCTROW " & strTable & ".*"
    strSql = strSql & " FROM " & strTable
    strSql = strSql & " WHERE ((" & strCriteria & "));"
 
 
    Me.lst_resultat.RowSource = strSql  ' affecte sql a lst_Resultat
    Me.lst_resultat.Requery             ' recalcule la liste
End Sub

Il m'indique Erreur de compilation : Membre de méthode ou de données introuvable sur la ligne Private Sub cmd_recherche_Click()

Je vous remercie d'avance des réponses que vous pourrez m'apporter,

Cordialement,

Sardaucar

18/05/2012, 11h20
Mr.Mof
Bonjour,

Les lignes
Code:

1 2 strTable = Me.cbo_table ' recupère le nom de la table strField = Me.cbo_champ ' recupère le nom du champ
me parraisent bizarre. De quel type sont lescontrôles cbo_table et cbo_champ?
As-tu essayé de supprimer ces lignes pour voir ce que cela te donnait?
18/05/2012, 11h26
sardaucar

Ces contrôles sont des listes de sélection, c'est le code tiré du tutoriel

http://loufab.developpez.com/tutorie...ss/recherche1/

Après retrait l'erreur reste la même :s
18/05/2012, 11h30
vodiem

salut Mr.Mof et bienvenu sardaucar,

il te faut l'ensemble des controles présent dans le code:
cbo_table
cbo_champ
txt_Critere
lst_resultat
et comme le dit Mr.Mof, avec leur type approprié et avec leur nom respectif: tant qu'à faire... :mrgreen:
(cbo=combo box=zone de liste..., txt=zone de texte, lst=zone de liste...)

;)
18/05/2012, 11h56
sardaucar

effectivement j'avais écrit txt_critère au lieu de txt_critere.

Merci beaucoup à vous deux !

et à très vite sur le forum :).