gfritz
Messages postés15Date d'inscriptionvendredi 3 juin 2005StatutMembreDernière intervention16 juin 2005
-
3 juin 2005 à 16:34
gfritz
Messages postés15Date d'inscriptionvendredi 3 juin 2005StatutMembreDernière intervention16 juin 2005
-
8 juin 2005 à 18:35
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
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")
Renfield
Messages postés17287Date d'inscriptionmercredi 2 janvier 2002StatutModérateurDernière intervention27 septembre 202174 8 juin 2005 à 12:54
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)
Renfield
Messages postés17287Date d'inscriptionmercredi 2 janvier 2002StatutModérateurDernière intervention27 septembre 202174 8 juin 2005 à 17:57
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