Problème test module

Bonjours à toutes et tous

Je me suis lancé à refaire le formulaire de recherche de Fabrice CONSTANS.

J'en suis actuellement au module "Recherche" et j’essaie vainement d'effectuer le test proposé

Code:

---

lf_GetTypeField(AccComp ,Journée)

---

et je me retrouve avec le message suivant :

Erreur de compilation
Attendu : =

Module "Recherche"

Code:

---

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

---

Avant de continuer, j'aimerais savoir ou est mon erreur.

Merci d'avance pour vos réponse

Bonne journée

Bonjour.

Comme c'est une fonction il faut faire soit

Code:

---

call lf_GetTypeField(AccComp ,Journée)

---

ou

Code:

---

dim v as variant:v=lf_GetTypeField(AccComp ,Journée)

---

ou

Code:

---

debug.print lf_GetTypeField(AccComp ,Journée)

---

A+

Bonjour à tous,

Autre possibilité, les paramètres AccComp ,Journée ne sont pas des variables, mais les noms d'une table et d'un champ, et dans ce cas il faut faire :

Code:

---

debug.print lf_GetTypeField("AccComp" ,"Journée")

---

Cdlt,

Bonjour,
Je pencherais plutôt pour la proposition de User.

En effet, de par son contrat d'utilisation, cette fonction attend des valeurs String (texte) :

Code:

---

1 2 3 4 5

Function lf_GetTypeField(lfNameTbl As String, lfNameFld As String) ' utilise la référence Microsoft DAO 3.6 Object Library ' Renvoie le numéro du type du champ 'lfNameTbl = nom de la table 'lfNameFld = nom du champ

---

L'appel se fait donc par :

Code:

---

debug.print lf_GetTypeField("[nom de la table]","[Nom du champ]")

---

ou si les 2 paramètres sont dans des variables :

Code:

---

1 2 3

matable ="[nom de la table]" monchamp = "[Nom du champ]" debug.print lf_GetTypeField(matable ,monchamp )

---

Cordialement,