Discussion :

[jncoffy]

Bonjour

Je dispose d'un formulaire en mode continu dont l'un des champs est de type date. Je souhaite filtrer le formulaire à l'aide d'un combo placé en en-tête du formulaire et basé sur une source SQL récupérant toutes les dates possibles.

J'ai placé le code suivant dans l'évènement Après MAJ du combo

Code :

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

1
2
3
 
me.filter = "monchamp=""" & me.maliste & """"
me.filterOn = true

Mais ça ne marche pas. Je suppose que cela est du au fait que le champ est de type Date et non de type texte. J'ai donc également essayé ceci

Code :

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

1
2
3
 
me.filter = "monchamp=" & me.maliste
me.filterOn = true

Mais ça ne marche toujours pas. Je précise que le format du champ date du combo est de type complet (Ex : dimanche 1 juillet 2007). Quel code placer dans la ligne me.filter pour que mon formulaire soit correctement filtré ?

Merci d'éclairer ma lanterne.

jean Noël

[pgz]

Bonjour,

Si ta liste renvoie bien une date, ce qu'il convient de vérifier, alors comme d'hab' essaie un truc du genre

Code :

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

Me.filter = "monchamp = #" & Format(Me.liste, "mm/dd/yyyy") & "#"

Bon courage,

PGZ

[delcroixf]

Bonjour,
Personnellement, j'ai pour ma base un formulaire continu avec au dessus du champ dateAppel un Textbox indépendant pour lequel j'ai rentré le code suivant sur l'événement Change (ca fonctionne aussi sur après MAJ)

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Private Sub filtredateappel_Change()
Texte49.SetFocus
filtredateappel.SetFocus
If IsNull(filtredateappel) Then
Me.FilterOn = False
filtredateappel.SetFocus
Else
   Me.Filter = "[Date Appel] like '" & filtredateappel & "*'"
  Me.FilterOn = True
End If
End Sub

Mon champ est de type date abrégé...

Et cela fonctionne parfaitement. J'ai même 7 autres filtres de ce type pour les autres colonnes de mon formulaire...

Bon courage
F

[Mahefasoa]

Bonsoir,

(...)

Code :

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

1
2
3
4
Private Sub filtredateappel_Change()
(...)
   Me.Filter = "[Date Appel] like '" & filtredateappel & "*'"
(...)

Mon champ est de type date abrégé...

Et cela fonctionne parfaitement. J'ai même 7 autres filtres de ce type pour les autres colonnes de mon formulaire...

La construction du critère (je veux dire le filtre) que tu nous montre ici laisse croire que le champ Date Apple est de type Texte car si c'est de type Date, l'utilisation des dièses (#) est incontournable!
Encore, il n'y a pas de champ de type Date abrégé mais de format Date abrégé. Nuance ...


Bon courage et @+

[delcroixf]

Bonjour,

Je confirme : mon champ [Date Appel] est de type Date,Heure dans ma table et format Date, abrégé et dans mon formulaire continu format Date, abrégé...
Et après vérification (on ne sait jamais) le filtre dans mon contrôle indépendant fonctionne bien...

[jncoffy]

Merci pour votre aide.

Malheureusement, vos exemples marchent tous pour un champ date au format Date,Réduit ou Date,Abrégé, mais pas pour un champ au format Date,Complet.

Si quelqu'un à la solution je suis preneur

En attendant, merci encore à Pgz, Delcroixf et Mahefasoa pour votre aide.

-------------
Message personnel à Pgz : Heroes 5 est sympa, mais Heroes 3 reste pour moi bien meilleur.

[delcroixf]

Bonjour,
Une idée,
Pourquoi ne ferais tu pas un filtre comme celui que l'on t'a proposé avec un champ date abrégé caché et engardant ton champ date colmplète ou générale affichée. Tu rentres dans ton champ indépendant une date de type 23/02/07 plus facile que dimanche 23... et cela trie à l'affichage ton champ que tu souhaites.
Non ?

[jncoffy]

Merci Delcroix pour ton conseil. C'est ce que j'ai fait et c'est effectivement tout à fait pertinent

Merciégalement à tous ceux qui ont pris la peine de me lire.

Jean Noël