Bonjour à tous,

J'ai encore une question de débutant pour vous !

Voila, je suis en prise avec un excellent tutoriel publié sur ce même site permettant de créer un formulaire de recherche multi-critères (merci à son auteur, Fabrice CONSTANS).

J'en suis à la partie où il s'agit de rentrer du code VB dans un module pour déterminer le type de données entrées dans une table.

J'ai donc insérer le code suivant dans un module :

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
Function lf_GetTypeField(lfNameTbl As String, lfNameFld As String)
' Renvoie le numéro du type du champ
'lfNameTbl = nom de la table
'lfNameFld = nom du champ
 
    Dim dbs As Database             ' Objet de la base
    Dim tbl As TableDef             ' Objet de définition de table
 
    Set dbs = CurrentDb             ' ouvre la base courante
    Set tbl = dbs.TableDefs(lfNameTbl)  ' ouvre la définition table
 
    lf_GetTypeField = tbl.Fields(lfNameFld).Type  ' renvoie le type de champ
 
    Set tbl = Nothing               ' libération des objets
    Set dbs = Nothing
 
End Function
... puis dans la fenêtre d'exécution VB j'ai placé l'instruction :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
? If_GetTypeField("Matable", "Monchamp")
J'ai bien entendu pensé à remplacer dans le code et l'instruction les termes Matable et Monchamp par les données appropriées. Malgré tout, voici le message d'erreur produit :

"Erreur de compilation : Sub ou Function non définie"

Quelqu'un(e) voit-il quelque chose dans le code ou l'instruction qui puisse générer cette erreur ?

Merci pour vos réponses !

[Modération, cafeine : Pensez à utiliser la balise [CODE] qui améliore la lisibilité, merci]