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 ?

[kapotocho]

il est en haut sur mon premier message

[Jean-Philippe André]

certes, mais le code de ta requête, comment la lances-tu ? la fonction, je vois de quoi il s'agit, mais la facon dont tu l'appelles m'intéresse maintenant

[kapotocho]

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);

[Jean-Philippe André]

cdap,cd et an sont des champs de ta table ?

[kapotocho]

"an" n'en ai pas un

[Jean-Philippe André]

salut,
donc il faut adapter la requête. Où vas-tu chercher la valeur an alors ?

[kapotocho]

"an" c'est l'année en cours mod 100

[Jean-Philippe André]

d'accord,
essaie avec ceci :

Code :

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

UPDATE essemaj SET essemaj.[Cols Durs années précéd] = majcdap(cdap,cd,MOD(YEAR(NOW),100));

[kapotocho]

il a pas l'air d'aimer MOD....
il me met: Erreur de synthaxe (opérateur absent) dans l’expression ‘majcdap(cdap,cd,MOD(YEAR(NOW),100)) ‘.

[Jean-Philippe André]

pardon, j'ai condonfu l'ordre des parametres

Code :

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

UPDATE essemaj SET essemaj.[Cols Durs années précéd] = majcdap(cdap,cd,YEAR(NOW) MOD 100);

[kapotocho]

ça me remet:
Fonction 'majcdap' non définie dans l'expression

[Jean-Philippe André]

hum, excuse moi, mais en relisant les autres posts, j'ai un doute. Ta requête, tu la lances avec le module de la fonction ?

[kapotocho]

j'ai créer un module "majcdap" contenant la fonction"majcdap", et je voudrais mettre a jour les données d'un champ de ma table "essemaj" grace a la fonction

[Jean-Philippe André]

d'accord.
tu lances la requêtes depuis le code vba ? ou bien l'interface access ?