toujours la date inversée

bonjour à tous

voici mon code qui mets à jour ma datepaiementcommande en fonction du champs date qui est la date du jour de la commande.(dans ma table commande, j'ai mon champs date à maintenant et datepaiementcommande)

ex, le 12/09 il y a une commande(date) qui est réglé le 12/09 ou plus tard(datepaiementcommande)

Code:

---

1 2 3 4 5 6 7 8 9 10

Private Sub reglement_commande_entiere(mise_en_caisse As Boolean) DoCmd.SetWarnings False If mise_en_caisse = True Then DoCmd.RunSQL "update COMMANDE set IdClient = " & lstClient.Column(0, lstClient.ListIndex) & " where IdCommande = " & txtIdCommande.Value & ";" Else DoCmd.RunSQL "update COMMANDE set DatePaiementCommande = #" & Date & "# where IdCommande = " & txtIdCommande.Value & ";" End If DoCmd.SetWarnings True MsgBox "Validation correctement effectuée", vbInformation + vbOKOnly,

---

"Réussite de la validation"

malheureusement la datepaiementcommande a un format inversé (10/09/05 devient 09/10/05)

j'ai suivi les conseils de la faq sur les dates Us,et de différentes personnes sur le forum mais rien ne change.

je cherche une astuce autre.

dans ma table commande, j'ai donc :

datepaiementcommande:10/09/05 au lieu de 09/10/05.

je veux faire une requête sur cette date, (trouver les clients qui ont réglés aujourd hui)...y aurait il un moyen par exemple de dire que si le jour est inférieur à 13, de mettre le mois à la place du jour sinon laisser comme cela (car le 13 la date ne peut plus s'inverser comme il n'y a que 12 mois dans l'année)

ce serait de la bidouille mais je vois rien d'autre, et je bloque


merci de vos idées

stef

Salut, :)

Code:

---

1 2 3 4 5 6

Public Function FDate(P As Date) As String FDate = Chr(35) & Format(P, "m-d-yy") & Chr(35) End Function     DoCmd.RunSQL "update COMMANDE set DatePaiementCommande = " & FDate(Date) & " where IdCommande = " & txtIdCommande.Value & ";"

---

merci User

j'essaie ça et je reviens verst toi

a ++

Steph

re

bon j'ai essayé et ça ne change rien.

j'ai donc déclaré la fonction publique

et fait ma sub, comme tu m'as dis

ouillle!!!

stef

Remarque que aujourd'hui:

Date()=#09/09/2005# :? :?

Donc pour tester tu as du modifier l'horloge de ton PC:

Date()=#10/09/2005#

et tu obtiens alors:

datepaiementcommande=#09/10/2005# (octobre...) :evil:

au lieu de:

datepaiementcommande=#10/09/2005# (septembre...)

:? :?

Je vais voir se que je trouve sur le forum..

@+

oui

j'ai modifié la date d'aujourd hui et j'obtiens effectivement: 09/10/05

merci de ton aide

steph

Resalut, :)

Le problème c'est que chez moi ca marche j'ai testé et j'obtient 10/09/05 :? :?

avec :

Code:

---

1 2 3

Public Function FDate(P As Date) As String FDate = Chr(35) & Format(P, "m-d-yy") & Chr(35) End Function

---

ou

Code:

---

1 2 3

Public Function FDate(P As Date) As String FDate = Chr(35) & Format(P, "mm-dd-yy") & Chr(35) End Function

---

et dans ta sub:

Code:

---

DoCmd.RunSQL "update COMMANDE set DatePaiementCommande = " & FDate(Date) & " where IdCommande = " & txtIdCommande.Value & ";"

---

désolé..
:?

ah?

tu as créé un champs date.?

chez moi mon champs s'appelle datecommande et a pouir légende date, est ce que ça pourrait jouer?

bon je reteste

a tt à l'heure


Steph

bon, ça marche pas, toujours 09/10/05

j'ai fait un copier/coller de tes codes..

alors la je sèche....misère

steph

Rassure moi ton champ datepaiementcommande est du type date :oops:

salut User

oui, bien sur Datepaiementcommande est de type date;
datecommande dont la légende est date, aussi et a pour valeur défaut Maintenant().

il est normal que ta fonction soit ok chez toi, je l'ai testé sur une autre base. mais sur celle ci , cette fonction ne change rien à l'inversion.

a +


steph