Discussion :

[sardaucar]

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

[Mr.Mof]

Bonjour,

Les lignes

Code :

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

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?

[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

[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...
(cbo=combo box=zone de liste..., txt=zone de texte, lst=zone de liste...)

[sardaucar]

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

Merci beaucoup à vous deux !

et à très vite sur le forum .