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 : Sélectionner tout - Visualiser dans une fenêtre à part
lf_GetTypeField(AccComp ,Journée)
et je me retrouve avec le message suivant :

Erreur de compilation
Attendu : =

Module "Recherche"

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
Avant de continuer, j'aimerais savoir ou est mon erreur.

Merci d'avance pour vos réponse

Bonne journée