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