Discussion :

[Looping972]

Bonjour tout le monde,

Voici le cas, dans une petite base de données j'ai entre autres deux tables liées, un formulaire (comprenant un champ "date") avec un sous-formulaire pour rentrer les données. J'ai créé un autre formulaire comprenant un unique champ "date" et un bouton qui ouvre le formulaire précédent filtré sur la date. J'espère que je suis clair !!
Mon soucis est le suivant : le filtre fonctionne très bien sauf avec les dates dont le jour est "10" quelque soit le mois et l'année !
J'ai essayé divers format de date sans succès.
Avez-vous une solution ?

Merci par avance,

[Triton972]

Bonsoir,
Tu rentres la date "à la main" ou par l'intermédiaire du calendrier intégré ?

[Looping972]

Bonjour Triton972,
J'ai essayé par les 2 méthodes et ...... même résultat !!!
Amicalement

[Invité]

Bonjour

Un petit éclaircissement sur les termes que tu emplois.

Lorsque tu parles d'un champ "Date", est-ce un champ qui se nomme "Date" ou un champ dont le type (pas le format) est Date/Heure ?

Car si c'est un champ qui se nomme "Date", je t'invite à le renommer, car cela peut te poser des soucis par la suite, en effet il s'agit d'un nom réservé, c'est une fonction.

Philippe

[Looping972]

Bonjour PJ,

Les champs concernés sont de type Date/heure et voic le code que j'utilise :

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
Private Sub Voyage_Click()
On Error GoTo Err_Voyage_Click
 
    Dim stDocName As String
    Dim stLinkCriteria As String
 
    stDocName = "Voyages"
 
    stLinkCriteria = "[DateVoyage]=" & "#" & Me![Date de voyage] & "#"
    DoCmd.OpenForm stDocName, , , stLinkCriteria
 
Exit_Voyage_Click:
    Exit Sub
 
Err_Voyage_Click:
    MsgBox Err.Description
    Resume Exit_Voyage_Click
 
End Sub

Merci

[Invité]

Re

Tu es en VB, donc la date doit être au format US (MM/DD/YYYY), à l'aide de la fonction format.

Essayes dans ton filtre (ne touche pas à ta table) la convertion en t'aidant de cela : http://access.developpez.com/faq/?pa...Convert_DateUS

Philippe

[Looping972]

Merci PJ, mais je ne parviens pas à utiliser correctement cette fonction, rien ne change.

[Invité]

Re

Comment l'as-tu utilisée ?

[Looping972]

J'ai adapté le nom du champ et j'ai rajouté la fonction au niveau du code de mon formulaire. Je pense que c'est là mon erreur mais j'ignore comment faire autrement.

Merci pour ta patience.

[Invité]

Re

Essayes cela :

Code :

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

stLinkCriteria = "[DateVoyage]=" & "#" & Format(Me![Date de voyage],"mm/dd/yyyy") & "#"

[Looping972]

Un immense merci Philippe, ça fonctionne parfaitement !

[Invité]

Re

C'est , il faut penser US lorsque l'on fait du VB.

Penses à cliquer sur le bouton en bas de la discussion

[Looping972]

Merci encore et c'est vrai il faut penser US ...je m'en souviendrai !