(Access 2002) Espace Pile Insuffisant avec Recordset ...

Bonjour,

J'ai un problème avec l'ouverture d'un recordset dont voici le code :

Dim db As DAO.Database, RstConvoc As DAO.Recordset
Set db = Currentdb
Set RstConvoc = db.OpenRecordset("select count(id_employes) as tot
from

intranet_employes where lastconvocvm=" & Format(Me![D1], "#mm/dd/yyyy#")
&

";", dbOpenSnapshot)

Sur mon poste tout fonctionne très bien, le problème survient lorsque je
teste l'appli sur un autre poste. J'obtient le message suivant : Espace
Pile

Insuffisant erreur 28.

J'ai comptris que le porblème provient de ma date mais je ne trouve aucune
solution pour venir à bout de ce bug

Merci pour votre aide

Bonjour,

Peut etre une piste dans les archives :
http://groups.google.fr/groups?hl=fr&lr=&selm=Op9%24YNteEHA.1356%40TK2MSFTNG
P09.phx.gbl

Arnaud

"Anton" <Anton@discussions.microsoft.com> a écrit dans le message news:
6C75846F-9ECA-4BB0-9BE3-7FADADFD74C9@microsoft.com...

Bonjour,

J'ai un problème avec l'ouverture d'un recordset dont voici le code :

Dim db As DAO.Database, RstConvoc As DAO.Recordset
Set db = Currentdb
Set RstConvoc = db.OpenRecordset("select count(id_employes) as tot
from

intranet_employes where lastconvocvm=" & Format(Me![D1], "#mm/dd/yyyy#")
&

";", dbOpenSnapshot)

Sur mon poste tout fonctionne très bien, le problème survient lorsque je
teste l'appli sur un autre poste. J'obtient le message suivant : Espace
Pile

Insuffisant erreur 28.

J'ai comptris que le porblème provient de ma date mais je ne trouve aucune
solution pour venir à bout de ce bug

Merci pour votre aide