comment exécuter ma fonction VBA dans Access

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:

---

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

---

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:

---

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

---

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

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

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

peut-on avoir ce code stp ?

il est en haut sur mon premier message

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 :D

Code:

---

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

---

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

"an" n'en ai pas un

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

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

d'accord,
essaie avec ceci :

Code:

---

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

---

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)) ‘.

pardon, j'ai condonfu l'ordre des parametres

Code:

---

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

---

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

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 ?

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

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