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

Fermé

Utilisateur anonyme - 27 juin 2005 à 09:38
Utilisateur anonyme - 27 juin 2005 à 17:31

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

A voir également:

Sub ou fonction non definie....[VBA]
Fonction si et - Guide
Erreur 1004 vba ✓ - Forum VB / VBA
Fonction moyenne excel - Guide
Fonction somme excel - Guide
Vba ouvrir un fichier excel avec chemin ✓ - Forum VB / VBA

2 réponses

Réponse 1 / 2

Utilisateur anonyme
27 juin 2005 à 17:31

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

Réponse 2 / 2

Utilisateur anonyme
27 juin 2005 à 13:24

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

random Messages postés 1612 Date d'inscription vendredi 26 novembre 2004 Statut Membre Dernière intervention 30 mars 2006 155
27 juin 2005 à 13:29

dao

Utilisateur anonyme > random Messages postés 1612 Date d'inscription vendredi 26 novembre 2004 Statut Membre Dernière intervention 30 mars 2006
27 juin 2005 à 13:30

Bon dommage c'est pas ça, elle était déjà cochée....
Ca vient pas du code?

Discussions similaires

"L'indice n'appartient à la sélection" + VBA

Méthode find dans VBA - Recherche de données sous Excel

Excel VBA : Derniere colonne utilisée

Erreur 1004 - Erreur définie par l'application ou par l'objet

VBA : Range avec références variables..

Discussions similaires

Newsletters