Discussion :

[SebHoule]

Salut la francophonie.

J'ai fait une requête Ajout dont voici la partie de code SQL qui semble poser problème:

INSERT INTO tblTRI ( P, S2, NoCV, Extrudeuse, DateFab, RCP, Die )
...

ChgtDie([tblFILTRE].[Extrudeuse],[tblFILTRE].[Die])=ChgtDie([tblFILTRE].[Extrudeuse],[tblFILTRE].[Die]) AS Die
FROM tblFILTRE

Le but de la requête est de modifier le dernier caractère d'une chaîne de 6 (champ [tblFILTRE].[Die]) selon le dernier caractère d'un autre champ ([tblFILTRE].[Extrudeuse]). L'ajout se fait dans une autre table dont la taille de champ texte est la même(6 caractères).

L'exécution de la requête retourne le message suivant:
Fonction 'ChgtDie' non définie dans l'expression

ChgtDie est une Fonction dans un module qui retourne un String (attention code inglès!):

Function ChgtDie(varExt() As String, varDie() As String) As String()

Dim varTampDie(0 To 5) As String
Dim varTampExt(0 To 5) As String
Dim NumExt As Integer
varTampExt = varExt
varTampDie = varDie

If varTampExt(5) = "0" Then Exit Function

End If

If varExt(NumExt) = "1" Or "2" Or "3" Then
varTampDie(5) = "G"
End If

ChgtDie = varTampDie
End Function

Comment faire pour que ChgtDie soit reconnue lors de l'exécution? Merci à l'avance.

[philben]

Bonjour,

La fonction est elle bien déclarée Public ?
Est-elle dans un module standard (et non dans un module de formulaire) ?

Philippe

[SebHoule]

Module standard :oui
Fonction: Public: oui, p.c.q. mode par défaut (non?)