Sub ou fonction non definie....[VBA]

Question

Bonjour,
Voila mon probleme :
Je veux interroger une table pour voir si un des champs présents dans mon formulaire se trouve dans cette table.
Le champ en question est : Code_Salarie et la table : Temps_en_cours

J'ai ce code là mais dès que je clique sur ma zone de liste (Liste18) il m'affiche l'erreur "Sub ou fonction non définie" en surlignant en gris "TableDefs" et en jaune fluo la premiere ligne de code "Private Sub Liste18_Click".
Si quelqu'un a une idée du pourquoi du message...
Merci beaucoup

Private Sub Liste18_Click()

Dim ma_var As String
Dim champ As Field
Dim existe As Boolean

ma_var = Me!Code_Salarie
champ = SALARIE
existe = False

For Each champ In TableDefs("Temps_en_cours").Fields
If ma_var = champ.Name Then
trouve = True
End If
Exit For
Next champ

If existe Then
MsgBox ("trouvé")
End If
End Sub

Utilisateur anonyme · Accepted Answer

Salut,

voilà une soluce :

Sub TrouveChamps()

    Dim MaBase
    Dim ceChamp

    Dim maVar As String
    Dim Existe As Boolean

    maVar = "Nature"
    Existe = False

    Set MaBase = CurrentDb()
    

    For Each ceChamp In MaBase.TableDefs("TableComplete").Fields
        If maVar = ceChamp.Name Then
            Existe = True
            Exit For
        End If
    Next ceChamp

    If Existe Then
        MsgBox ("trouvé")
    End If
    
End Sub

Lupin

Utilisateur anonyme · Answer

Bon a priori, le problème est qu'il manque une librairie.Quelqu'un sait laquelle il faut utiliser?Merci beaucoup

Sub ou fonction non definie....[VBA]

2 réponses

Discussions similaires

Newsletters