Erreur 13, Type incompatible

voilà le topos, j'ai une table CAPREVU avec dedans une dateCAPREVUdebut et dateCAPREVUfin, CAPREVU(nombre)

dans mon formulaire Saisie_recette_jour (peu importe),
je voudrai dans une case et suivant la date du formulaire le CAPREVU correspondant

Ex:
Table CAPREVU
(numeroauto)=1,DateCAPREVUdebut=01/01/2005,DateCAPREVUfin=31/01/2005

prenons une date au hasard pour le formulaire : 05/01/2005

et donc à l'ouverture de mon formulaire je lui es mi :

Dim db As Database
Set db = CurrentDb
Dim rs As DAO.Recordset
If IsNull(Form_Saisie_Recette_Jour.DateRecetteJour) Then GoTo byebye

Set rs = db.OpenRecordset("select * from CAPREVU where  dateCAPREVUdebut<=" & Form_Saisie_Recette_Jour.DateRecetteJour And dateCAPREVUfin >= " Form_Saisie_Recette_Jour.DateRecetteJour")

Form_Saisie_Recette_Jour.CAPREVU = rs!CAPREVU
rs.Close
byebye:
db.Close

il me fait une erreur d'execution '13' incompatibilité de type


Voilà si on peut m'aider merci d'avance
Je galère, je galère, je suis l'esclave de la prog !

Salut

Ah les dates, un truc ou il faut s'arracher les cheveux !!!

1 --> Le premier  point c'est que les dates dans les requetes c'est entouré de # #, pour access.

2 --> Le gestion des dates dans access est encore plus particulieres.

Access utilise le format américain  mm/dd/yyyy
Donc il faut convertir les date dans ce format apres la fonction format.

Voila.
Espérant que c'etait la réponse ;-)

soucis également...

Set rs = db.OpenRecordset("select * from CAPREVU where  dateCAPREVUdebut<=" & Form_Saisie_Recette_Jour.DateRecetteJour And dateCAPREVUfin >= " Form_Saisie_Recette_Jour.DateRecetteJour")

au lieu de

Set rs = db.OpenRecordset("select * from CAPREVU where  dateCAPREVUdebut<=" & Form_Saisie_Recette_Jour.DateRecetteJour & " And dateCAPREVUfin >= " & Form_Saisie_Recette_Jour.DateRecetteJour")

(J'ai pas pris la peine d'indiquer le changement de date vers le format US, comme l'as très justement indiqué nhervagault)

Amusez-vous !
Renfield - thomas_reynald@msn.com
Admin CodeS-SourceS - MVP Visual Basic

Hey Hey on me la fait plus lol, renfield il te manque les # autours des dates c'est de là que tous venez ! mais merci d'avoir pris la peine

Je galère, je galère, je suis l'esclave de la prog !

Je suis d'accord avec le fait qu'il faille utiliser des # et un format de date MM/DD/YY

reste qu'il manque des caractères dans le morceau de code que tu nous a fournis.... reagrde, je pense pas me tromper....

Amusez-vous !
Renfield - thomas_reynald@msn.com
Admin CodeS-SourceS - MVP Visual Basic

vi il manque la pitite fonction juste au dessus du code qui est poster mais que j'ai mise après le post pour inverser les jours avec le mois !

t'es trop fort :d

Je galère, je galère, je suis l'esclave de la prog !

Au boulot, on utilise cette fonction :

Public Function ConvertToUSDate(ByRef x As Variant) As String
    'convertit une date en format américain
    If IsDate(x) Then
      ConvertToUSDate = Format$(x, "\#MM/DD/YYYY\#")
    End If
End Function

Amusez-vous !
Renfield - thomas_reynald@msn.com
Admin CodeS-SourceS - MVP Visual Basic

ok mais je n'ai pas fait sa là je suis chez moi je l'ai pas en tête la fonction mais demain je te la poste c'est pas tout à fait comme sa !

Je galère, je galère, je suis l'esclave de la prog !