Discussion :

[bernardmichel]

Bonjour !

Je sais que de nombreux post en font mention mais... je ne trouve pas ce qui ne joue pas dans mon code.

Afin d'être le plus clair possible, je mets en attaché une image du message d'erreur et ci-dessous, le code le provoquant...

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
Private Sub Calendrier_Click()
Dim Frm             As Form
Dim sql             As String
Dim DateChoisie     As Date
Dim DateUS          As Date
 
    Set Frm = Forms!F_TicketGlobalFind!Detail.Form
    DateChoisie = Me!Calendrier
    DateUS = Format(DateChoisie, "mm/dd/yyyy")
 
    sql = "SELECT tblTicketDétail.* " & _
          "FROM tblTicketDétail " & _
          "WHERE (((tblTicketDétail.DateTicket)=#" & DateUS & "#));"
 
    With Frm
        .RecordSource = sql
        .Requery
    End With
 
    Me!ChoixDate = Me!Calendrier
    Me.Repaint
 
End Sub

Je suppose que c'est une erreur stupide mais cela fait bien 1 heure que je me casse les dents là-dessus alors... je pars acheter un dentier puis à mon retour, je me réjouis de vous lire

Merci d'avance !

[Invité]

Salut

Je pense que cela vient de tes points, par défaut le séparateur de date est le /, regarde dans les options régionales de windows, de plus il faut inverser le mois et le jour.

Starec

[bernardmichel]

Bonjour Starec !

Merci pour ta réponse mais je ne la comprends pas très bien...

Je pense que cela vient de tes points, par défaut le séparateur de date est le /, regarde dans les options régionales de windows, de plus il faut inverser le mois et le jour.

Afin d'éviter - justement - les points et respecter le séparateur de date, j'ai créé une variable :

Code :

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

DateUS = Format(DateChoisie, "mm/dd/yyyy")

Justement pour inverser le mois et les jours ...

Je vais par contre regarder dans les paramètres Windows... mais si tu as une autre idée en attendant... Merci d'avance !

[bernardmichel]

Alors effectivement, j'avais dans mon panneau de config des "." comme séparateurs de date.
Simplement en changeant avec des "/" ça marche...

Merci Starec et bonne fin d'après-midi !

[Demco]

Juste une remarque :
Il me semble que cette ligne ne soit pas utile :

Code :

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

DateUS = Format(DateChoisie, "mm/dd/yyyy")

La fonction Format() permet uniquement une mise en forme pour l'affichage, la Date elle sera en fait toujours le même quantième (de type Long il me semble).

Tu devrais pouvoir utiliser directement DateChoisie dans ta requête sans avoir recourt à la fonction Format.

J'espère être claire, j'avoue ne pas être expert en la matière ... mais je me rappelle avoir lu Maxence Hubiche traiter de ce sujet.

[bernardmichel]

Je te remercie Demco pour ton apport, c'est vrai que Access stocke les dates sous format long. Mais à force de scruter la FAQ, je ne savais plus à quel saint me vouer.
En effet, regardes ici et là ... que faire, où coure-je et dans quel état j'erre