Access VBA - débutant Résolu/Fermé

Question

Bonjour, 

Je suis débutant en Visual basic sur Access et j'ai essayé un code pour un calcul mais cela ne fonction pas, pouvez vous m'aider ? 

function calcul (Quantité1 as Integer, Tps alloué as Integer, Durée as Integer
calcul = (Quantité1 * Tps alloué) / Durée
End Function 

Vincent

Utilisateur anonyme · Answer

je ne faitpas de acces , mais je suis pas sur qu'une variable puisse avoir un espace ... essaie de remplacer tps alloué par tps_alloué , et voit ce que ca donne

vinc02 · Answer

bonjour Dudu3838, 

je te remercie de ta réponse mais cela ne fonctionne toujours pas 

vincent

vinc02 · Answer

Edit : Modification de la formule mais toujours le même probème 

Sub calcul()
Function calcul(Quantité1 As Integer, tps_alloué As Integer, durée As Integer)
calcul = (Quantité1 * tps_alloué) / durée
End Function

tessel75 · Answer

Bonsoir,
Il faut beaucoup mieux utiliser une requête pour ce genre de calcul. Une opération comme cela dans VBA ne te donnera jamais qu'un seul résultat à la fois.
Comme tu l'as écris, tu ne risques pas d'avoir un résultat parce que tu n'indiques pas à Access où il doit chercher les valeurs de tes paramètres  [Quantité1], [Tps alloué], [Durée] 
Il faudrait au minimum que tu aies des expressions du genre:
Quantite1 = [Forms]![MonFormulaire]![Quantite1]
TpsAlloue= [Forms]![MonFormulaire]![TpsAlloue]
Duree= [Forms]![MonFormulaire]![Duree]
Seulement après ça il peut effectuer l'opération
NB: Bannir les espaces et les accents dans les mots, Acces les supporte, mais quand il se fache, sans prévenir, tout le boulot est à recommencer.

Bonne suite

vinc02 · Answer

Bonjour Tessel75,

Je te remercie de ta réponse :) 

Vincent

Access VBA - débutant

5 réponses

Discussions similaires