Discussion :

[KEROZEN]

J'ai supprimé la partie du code suivante :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

parcourt.Name = lfNameTbl

mais cela n'a rien changé au problème ...

Vous auriez une solution ?

[KEROZEN]

Salut,

J'ai également soumis ce problème dans le forum VB mais aucun membre n'a pu m'apporter de réponses ...

Vous pouvez m'aidez ?

[svboubou]

Bonjour,

Je ne sais pas si tu as eu ta réponse depuis le temps, et j'espère que tu l'as eu. Sinon, voilà une autre piste.

Tu as déclaré ta fonction sans type de retour :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Function lf_GetTypeField(lfNameTbl As String, lfNameFld As String)

Donc quand tu lui assignes une valeur, avec la ligne :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

lf_GetTypeField = tbl.Fields(lfNameFld).Type   ' renvoie le type de champ

Access n'en n'attendant pas, il t'affiche un message d'erreur.