Discussion :

[IDT Ryuk]

Bonsoir
Voila j'essaye de travailler sur un fichier accès pour la gestion des stock et j'ai un petit soucis dans l’exécution de la fonction suivante sous VBA

Code :

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

1
2
3
4
5
6
Option Compare Database
Option Explicit
Public Function EntreesADate(Article As String, DateAng As Date) As Double
  EntreesADate = Nz(DSum("Quantiteentree", "T_Entrée ciment", _
                  "Dateentree<=#" & DateAng & "# and Tciment=" & Article), 0)
End Function

Le code que j'utilise pour l'exécution est le suivant

Code :

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

?EntreesADate("Clafarge",#31/10/2016#)

et il m'acfiche l'erreur suivante

Merci d'avance