Rechercher : dans
Par :

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

Dernière réponse le 27 jun 2005 à 17:31:42 oreilledelest, le 27 jun 2005 à 09:38:31 
 Signaler ce message aux modérateurs

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

Meilleures réponses pour « Sub ou fonction non definie....[VBA] » dans :
Télécharger SuperCopier VoirSuperCopier est un gestionnaire de copie de fichiers libre pour Windows, proposant des fonctionnalités non couvertes par le système d'exploitation Windows et optimisant les transferts. Parmi les améliorations apportées par cet outil, citons...
Javascript - Les fonctions VoirLa notion de fonction On appelle fonction un sous-programme qui permet d'effectuer un ensemble d'instructions par simple appel de la fonction dans le corps du programme principal. Cette notion de sous-programme est généralement appelée fonction...
VBScript - Les fonctions et les procédures VoirLa notion de procédure On appelle fonction un sous-programme qui permet d'effectuer un ensemble d'instructions par simple appel dans le corps du programme principal. Cette notion de sous-programme est généralement appelée fonction (ou procédure)...
VBScript - Les fonctions de chaînes de caractères VoirLes fonctions de chaînes de caractères Fonction Description Filter(InputStrings, Value[, Include[, Compare]]) Sélectionne des chaînes de caractères parmi un tableau de chaînes...

1

oreilledelest, le 27 jun 2005 à 13:24:48

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

Répondre à oreilledelest

2

random, le 27 jun 2005 à 13:29:13

Dao elle est pas belle, la vie ?

Répondre à random

3

oreilledelest, le 27 jun 2005 à 13:30:55

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

Répondre à oreilledelest

4

 Lupin.Arsene, le 27 jun 2005 à 17:31:42
  • +1

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 ~L'essentiel est invisible pour les yeux~
~On ne voit bien qu'avec le coeur~

Répondre à Lupin.Arsene