SQL jet et VBA

Bonjour  j'ai un probléme avec une requete en SQL jet, quand je l'execute ça me met un message d'erreur : « fonction majcdap non definie dans l'expression »

  la requete

UPDATE essemaj SET essemaj.[Cols Durs années précéd] = majcdap([cdap],[cd],[an]), essemaj.[A déclarer] = No, essemaj.CD = 0;

 

La fonction « majcdap »  en vba :

 

Option Compare Database   'Utilise l'ordre de la base pour les comparaisons de chaînes

Option Explicit

 

Function majcdap(cdap, cd, an)

   Dim sql As String

    an = an Mod 100

    Select Case cd

    Case 0

        majcdap = cdap

    Case 1

        If IsNull(cdap) Then

            majcdap = cdap

        Else: majcdap = "0" & an & "," & cdap

        End If

    Case Else

        If IsNull(cdap) Then

             majcdap = cd & "." & "0" & an

         Else: majcdap = cd & "." & "0" & an & "," & cdap

         End If

    End Select

End Function

 

Quelqu'un voit où est le probléme ???

Merçi d'avance

Salut
Je ne suis pas un super programmeur en VB/VBA mais des problemes, j' en vois plusieurs.

"Function majcdap(cdap, cd, an) "
On m'a toujours appris qu' une fonction devait renvoyé quelque chose genre : (remplacer qqc par le type)
Function maFonction(Byval Param1 As qqc , Byval param2 As qqc) As qqc

"Dim sql As String "
Ca sert à rien vu que c' est pas utilisé

"UPDATE essemaj SET essemaj.[Cols Durs années précéd] = majcdap([cdap],[cd],[an]), essemaj.[A déclarer] = No, essemaj.CD = 0;"
Je ne sait pas comment est envoyée ta requete mais introduire une fonction Vba dans une requete ca peut pas marcher.Si la requete est envoyer  par le code ,
"UPDATE essemaj SET essemaj.[Cols Durs années précéd] = " & majcdap(cdap,cd,an) & " , essemaj.[A déclarer] = No, essemaj.CD = 0;"

est-ce normal que ça me mette ça   "& majcdap(cdap,cd,an) &" sur toutes les lignes si je fait ce que tu me dis, au lieu d'afficher le resultat de ma fonction??

est-ce normal que ça me mette ça   "& majcdap(cdap,cd,an) &" sur toutes les lignes si je fait ce que tu me dis, au lieu d'afficher le resultat de ma fonction??

est-ce normal que ça me mette ça   "& majcdap(cdap,cd,an) &" sur toutes les lignes si je fait ce que tu me dis, au lieu d'afficher le resultat de ma fonction??

Comment est lancée ta requete sql, par le code? si oui peut tu mettre le bout de code qui la lance

ma requete est executer via un bouton dans un formulaire access 2000