Problème d’exécution de fonction sous vba accés (Gestion des stocks)

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:

---

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:

---

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

---

et il m'acfiche l'erreur suivante
Pièce jointe 224390
Merci d'avance

Bonsoir,
Article est une variable de type String à la quelle il manque l'apostrophe permettant de l'identifier en tant que telle

Code:

---

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

---