Discussion :

[kapotocho]

j’ai fait une petite fonction en vba mais je sais pas comment mettre ma table essemaj à jour en utilisant ma fonction vba, (cette MAJ se fait annuelement)

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

[Jean-Philippe André]

bonjour si ta fonction est présente dans un module d'access, tu peux l'incorporer dans une requête en y faisant appel:
exemple :

Code :

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

UPDATE MaTable SET MonChamps = majcdap('a',1,2);

[kapotocho]

ça me met :
Fonction 'majcdap' non définie dans l'expression
c'est normal???

[Jean-Philippe André]

c'est un exemple, quel est ton code à toi ?
tu le lances dans un module VBA ou bien dans une requête ?

[kapotocho]

mon code est dans un module Access et je le lance via une requête SQL ,j'ai fait comme tu m'a dis..... et ça m'affiche ce message d'erreur

[Jean-Philippe André]

peut-on avoir ce code stp ?