Discussion :

[Stéph utilisateur d'acces]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[User]

Salut,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 & ";"

[Stéph utilisateur d'acces]

merci User

j'essaie ça et je reviens verst toi

a ++

Steph

[Stéph utilisateur d'acces]

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

[User]

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...)

au lieu de:

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



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

@+

[Stéph utilisateur d'acces]

oui

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

merci de ton aide

steph

[User]

Resalut,

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

avec :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

désolé..

[Stéph utilisateur d'acces]

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

[Stéph utilisateur d'acces]

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

[User]

Rassure moi ton champ datepaiementcommande est du type date

[Stéph utilisateur d'acces]

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