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
Plus simpleConst USFormat as String = "#mm/dd/yyyy#"Date_Deb = Format (Me.Date_Deb, USFormat)Date_Fin = Format (Me.Date_Fin, USFormat)Ce qui permet bien sûr de modifier le format à volonté. Ca marche en vb aussi.
Oups il m'a grillé des antislashs à l'affichage juste avant les dièses
ta facon de faire ne fonctionne pas, je l'ai testéil me remet a chaque fois en mm/dd/yyyy
Encore plus simple (c'est dans la doc) :Au lieu de se torturer à mettre au format US, ulitilser le format international :... Between DateValue(" & Date_Deb & ") AND DateValue(" & Date_Fin & ")"Attention : DateValue est interprété par Access, pas par VB : c'est donc normal de le voir DANS les guillemets.ValaJack
ça marche très bien aussi avec les < et > :... where Facture.Date < DateValue(" & Me.Date_Deb & ")"
AdiuDès que j?ai un moment, j?éssaye les solutions proposéesCependant, lorsque j?ai rencontré ce problème, l?inversion de mm et jj ne se faisait que lorsque mm<jjExemple : 12/10/2001 =>12/10/2001 10/12/2001 =>12/10/2001Comme je cherchais simplement à importer des données contenues dans des fichiers texte, j?ai appliqué la solution suivante : MaDateLng = CLng(MaDate)Le champ Access recevant la donnée étant du genre Date, la traduction se fait correctement dans la table.CordialementCapDeBoroPS pour NixIl se passe des choses bizares avec l?identification des messages : Dans la source « TUTORIAL POUR ADODB, ADO », mon message est attribué à quelqu?un d?autre, et celui d?une troisième personne m?est attribué ?
Ouai moi je pense que vous vous prenez la tête pour pas grand chose. Pour formater une date au format US, il suffit de faire un : format(madate,"mm/dd/yyyy") à condition que ma date soit au format "dd/mm/yyyy".En tout cas avec un DTPic , ça marche du tonerre.
Bonsoir tout le monde...alors j'ai un probleme :j'ai 2 controles de type DtPicker (date) + bouton de recherche + dataGrid + base de donnee...lorsque je clique sur le bouton de recherche je veux que datagrid s'actualise automatiquement à condition que les enregistrements soient entre date debut et fin...Si quelqu'un a la solution (requete SQL) ,il peut m'aider...Merci d'avanceMcool08@gmail.com
pas trop programmeur, je me suis bien contenté de la première proposition qui marche à merveille. Merci CidovulMiguelextra débutantxatt2001@yahoo.fr
Il y a aussi BuildCriteria() qui fait tout ça automatiquement ...
Se souvenir du profil
Mot de passe oublié ? / Activation de compteCréer un compte
1 874 166 membres 185 nouveaux aujourd'hui 16 151 membres club