amire30
Messages postés10Date d'inscriptionjeudi 30 novembre 2000StatutMembreDernière intervention 1 janvier 2009
-
24 déc. 2008 à 11:23
amire30
Messages postés10Date d'inscriptionjeudi 30 novembre 2000StatutMembreDernière intervention 1 janvier 2009
-
24 déc. 2008 à 11:42
Bonjour tous le monde, et joyeuse fin d'année
je dois dire que ce site m'a vraiment beaucoup aidé dans mon apprentissage au VB, maintenant j'éllabore un Programme de Gestion d'entrée et de sortie avec Access comme base de donnée.
Mon Probléme est le Suivant :
J''ai creer une requete qui me permet de selectionner les Produits récéptionnés entre les date choisi par l'utilisateur, j'arrive aussi a les afficher dans un datareport, le probléme et que il me retourne aussi des valeurs en dehor des date choisi : Voici mon Code qui marche jusqu'a mainetant :
If txtClient = "Tous" Then
db.QueryDefs.Delete "MOrep"
Set qrMreporder = db.CreateQueryDef("MOrep", "Select * from Products where [datein] >= # " & dtFrom.Value & " # AND [datein] <= # " & dtTo.Value & " # ORDER BY datein")
Unload DataEnvironment1
drpMonORep.Title = "Etats des Récéptions (Tous les Clients) du : " & dtFrom.Value & " Au : " & dtTo.Value
drpMonORep.Show
drpMonORep.Refresh
X = MsgBox("Voulez vous imprimer l'état..?", vbQuestion + vbYesNo, "ZinGest 1.0")
If X = vbYes Then
drpMonORep.PrintReport (True)
End If
quand j'ai regardé du coté des critére de la requete, j'ai vu que "les mois et les jours se pérmutent " , ex :
si en dtfrom = 12/10/2008 , la requete se transforme en access en 10/12/2008, je crois que c du au format de date pris en charge part accessUS qui ne peut etre modifier ( du moin a ce que je crois)
y'a t'il une seolution a ce probléme???!!!!, Merci d'avance
amire30
Messages postés10Date d'inscriptionjeudi 30 novembre 2000StatutMembreDernière intervention 1 janvier 2009 24 déc. 2008 à 11:42
Re Salut a tous
le Bléme est résolu, il a fallut just que je vois un petit peu au dela de mon nez
en ajoutant Format(dtFrom.Value, "mm/dd/yyyy") à l'endrois de la requete, j'obtien les résultats rechercher ;)
Passez de bon moment dans ce site Génial
à l'année prochaine