Probleme avec une fonction avec VBA

Question

Bonjour,
J ai un probleme avec une fonction. Elle ne me renvoie rien comme resultat.
Si quelqu un voit une erreur, ça serait sympa



Sub qteStock(CodeComp As Variant)
Dim requete As String

Set formulaire = Application.Forms("SFNbcomp/cmdeP")

requete = "select Sum(Stocker.qttestock)" & _
" from composant,stocker" & _
" where Composant.CodeComp= stocker.NumComposant" & _
" and NumComposant=" & CStr(CodeComp) & " ;"

CurrentDb.Execute requete, dbFailOnError

With formulaire.Stock_actuel
    .RowSource = requete
    .ColumnWidths = "5cm"
    .Requery
End With

End Sub



J ai deja fait des fonctions semblables et elles marchent .

Je l appelle en fesant:


Private Sub Stock_actuel_beforeUpdate(Cancel as Integer)
 qteStock(Me.CodeComp.value)
End Sub


Merci encore
Amaya ;)

cs_Crazyht · Answer

Ceci est une Sub, elle n'est pas prevue pour renvoyer quoique se soit, pour cela utilise Function !

A++

Crazyht :)

cs_yaya31 · Answer

ça change pas grand chose! ça marche toujours pas  :sad) 
Amaya ;)

Probleme avec une fonction avec VBA

2 réponses

Discussions similaires