Bonjour j'ai une fonction en VBA
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
Public Function majcdap(cdap As String, cd As Integer, an As Double) As String
       an = an Mod 100
    Select Case cd
    Case 0
        majcdap = cdap
    Case 1
        If cdap = 0 Then
            majcdap = cdap
        Else: majcdap = "0" & an & "," & cdap
        End If
    Case Else
        If cdap = 0 Then
             majcdap = cd & "." & "0" & an
         Else: majcdap = cd & "." & "0" & an & "," & cdap
         End If
    End Select
End Function
et un requête SQL qui l'execute
Code : Sélectionner tout - Visualiser dans une fenêtre à part
UPDATE essemaj SET essemaj.[Cols Durs années précéd] = majcdap([«cdap»],[«cd»],[«an»]), essemaj.[A déclarer] = No, essemaj.CD = 0;
ça me met la fonction majcdap non définie dans l'expression
Vous voyez où est l'erreur?????