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 !