1 2 3 4 5 6 7 8 9 10 11 12 13 14
| Dim dateFin As Date, dateDébut As Date
dateFin = "12/12/5000"
dateDébut = "10/10/1901"
If Not IsNull(Me.txtDateDebut) Then
dateDébut = Me.txtDateDebut.Value
sql = sql & " AND ((tbl_Intervention.DateIntervention) Between #" & Format(dateDébut, "mm/dd/yyyy") & "# and #" & Format(dateFin, "mm/dd/yyyy") & "# )"
End If
If Not IsNull(Me.txtDateFin) Then
dateFin = Me.txtDateFin
sql = sql & " AND ((tbl_Intervention.DateIntervention) Between #" & Format(dateDébut, "mm/dd/yyyy") & "# and #" & Format(dateFin, "mm/dd/yyyy") & "# )"
End If |
Partager