Discussion :

[ostrich95]

Bonjour,

je sais que ce sujet a été maintes et maintes fois traité mais voici mon problème:

Je dispose d'une liste de dates (format dd/mm/yyyy) dans un formulaire.

J'en sélectionne une et j'appuie sur un bouton de validation qui va écrire cette date dans une table.

Tout bien jusqu'à l'écriture dans la table.

Formulaire : 07/03/2011 format dd/mm/yyyy
Sélection de la date: 07/03/2011 format dd/mm/yyyy
Bouton valider : 07/03/2011 format dd/mm/yyyy
Dans la table : 03/07/2011 format mm/dd/yyyy!!

Si vous avez une idée (format par défaut changeable, fonction à utiliser...), je suis preneur!

En vous remerciant d'avance de vos réponses,

Ostrich95

Voici mon code:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
Private Sub lst_clients_Click()
 
    client_id = lst_clients.Column(2, lst_clients.ListIndex + 1)
    date_tonnage_start = lst_clients.Column(3, lst_clients.ListIndex + 1)
 
End Sub
 
 
Private Sub cmd_validate_Click()
 
    Call get_path
 
    If Len(client_id) > 0 Then
     MsgBox date_tonnage_start
        str_sql = "UPDATE ListOfClients SET dateFin =#" & Format(date_tonnage_start, "dd/mm/yyyy") & "# WHERE CodePTL =" & CLng(client_id)
        objCNN.Execute str_sql
 
        str_sql = "UPDATE ListOfClients SET ListOfClients.Delete_flag = 'Validé Perdu' WHERE CodePTL = " & CLng(client_id)
        objCNN.Execute str_sql
 
        Call Command3_Click
 
    End If
 
End Sub

[RobiPMS]

Bonjour.
As-tu essayé d'imposer un format dans la table elle-même (en mode création, propriété format du champ sur jj/mm/aaaa)?
Cordialement

[ostrich95]

Bonjour et merci de ta réponse RobiPMS,

Je pense avoir fait le nécessaire de ce côté-là : j'ai choisi "date,abrégé" comme format de champ.



Ostrich95.

[madefemere]

Bonjour,

Le format date utilisé est généralement le "mm/dd/yyyy", donc à ta ligne 15, ça devrait être :

Code :

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

    str_sql = "UPDATE ListOfClients SET dateFin =#" & Format(date_tonnage_start, "mm/dd/yyyy") & "# WHERE CodePTL =" & CLng(client_id)

Bonne continuation

[RobiPMS]

Plutôt que Date, abrégé (qu'Access interprète à sa manière), essaie (ça ne coûte rien d'essayer) jj/mm/aaaa. Dans une de mes tables, j'impose le format dans la table de cette manière parce que les dates y sont mises à jour par des requêtes ou écrites dans des formulaires dans un format différent, et que je veux qu'elles apparaissent ainsi dans la table. Et cela fonctionne bien...
@+
R.L.

[ostrich95]

Bonjour à tous,

merci d'avoir répondu!

J'ai trouvé un compromis au niveau des contraintes et j'ai adopté le format aaaa/mm/jj (que j'ai imposé dans les tables comme l'a suggéré RobiPMS).

Je n'ai plus d'erreur!

Merci encore,

Ostrich95