Qui n'a pas eu de problème de date sous VBA Access 2000 ou autre.
Quand vous faites une requete sous VBA avec des criteres dates jj/mm/yyyy,
vos dates sont interprétées en mm/jj/yyyy.
Grace a ce petit bout de code vous pouvez y remedier.
Source / Exemple :
Function MakeUSDate(dDate As Variant)
If Not IsDate(dDate) Then Exit Function
MakeUSDate = "#" & Month(dDate) & "/" & Day(dDate) & "/" & Year(dDate) & "#"
End Function
Private Sub test_click()
Dim Req As String
Dim Date_Deb As String
Dim Date_Fin As String
Req = "SELECT * FROM T_FACTURE"
Date_Deb = MakeUSDate(Me.Date_Deb)
Date_Fin = MakeUSDate(Me.Date_Fin)
Req = Req & " WHERE T_FACTURE.FACT_MODIF Between " & Date_Deb & " AND " & Date_Fin & ""
DoCmd.RunSQL Req
End Sub
Conclusion :
Pour tester ce code, faites un formulaire avec un bouton et 2 champs Date_Deb et Date_Fin.
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.