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 :
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 :
? 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]
Partager