Discussion :

[arundel]

Bonjour à tous,
Je suis confronté depuis plusieurs jours à un curieux problème (pour l’illustrer j’ai confectionné une base-modèle que je pourrais vous transmettre si vous le jugiez utile).

Description du modèle :

• 2 tables tblMusiciens et tblOeuvres liées par une relation sur l'ID musicien,
• 1 requête qryOeuvres munie d’un critère de filtre sur le nom d’un musicien puisé dans une comboBox du formulaire décrit ci-après,
• 1 formulaire frmOeuvres sous forme de liste avec un bouton Clear destiné à purger la combo, entrainant le réaffichage de toutes les oeuvres

Fonctionnement normal :

• Sélection via la combo : OK (les oeuvres de ce musicien s'affichent)
• Sélection via Souris appuyée sur une ligne : OK
• Clic sur Clear : OK (toutes les oeuvres réapparaissent)

Dysfonctionnement constaté :
Après un clic droit de la souris pour trier sur les noms de musiciens ou les libellés des œuvres, impossible de reprendre le fonctionnement normal ci-dessus. Idem après un filtre.
J’ai inséré dans le code VBA les réinitialisations de OrderBy, OrderByOn, Filter et FilterOn : aucun effet.

Le seul moyen efficace que j’ai trouvé est de fermer puis réouvrir le formulaire à partir d’une macro externe. Ca marche mais nécessite une macro par formulaire (le nom n’étanat pas paramétrable).

Serais-je passé à côté de quelque chose ?

Merci d'avance pour votre aide.

[User]

Bonjour,

Si rien ne change après initialisation des paramètres de filtrage, ni sur initialisation de la propriété recordsource du formulaire, alors peut-être créer un sous-formulaire contenant les données, et l'insérer dans un formulaire principal depuis lequel filtrer les données du sous-formulaire. ça permettra peut-être d'éviter ce problème.

Cdlt,

[User]

Je précise qu'en adoptant la solution avec le sous-formulaire, vous n'avez plus besoin de fermer et ouvrir le formulaire, mais juste d'utiliser la propriété SourceObject du contrôle sous-formulaire :

Code :

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

1
2
Me!sousfrmOeuvres.SourceObject = "" ' initialisation
Me!sousfrmOeuvres.SourceObject = "qryOeuvres"

Cdlt,

[arundel]

Bonjour et un grand merci pour vos suggestions.
J'ai testé cette préonisation sur ma base de test et ne suis pas parvenu à tout faire fonctionner.
J'ai créé un formulaire-enveloppe (indépendant) nommé envOeuvres contenant la liste déroulante cmbFiltreNomMusicien
Dans envOeuvres j'ai inséré frmOeuvres en tant que sous-formulaire.

Code dans Form_envOeuvres

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
Option Compare Database
Option Explicit
 
Private Sub cmbFiltreNomMusicien_AfterUpdate()
 DoCmd.ShowAllRecords
End Sub
 
Private Sub cmdClear_Click()
 Me!frmOeuvres.SourceObject = ""
 Me!frmOeuvres.SourceObject = "qryOeuvres"
End Sub

Code dans Form_frmOeuvres

Code :

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

1
2
3
4
5
6
7
8
 
Option Compare Database
Option Explicit
 
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
 Parent.cmbFiltreNomMusicien.Value = Me.strNomMusicien.Value
 DoCmd.ShowAllRecords
End Sub

Le filtre fonctionne mais pas le cmdClear : Erreur 2101 "Le paramètre entré n'est pas valable pour cette propriété"
Dansc l'espion j'ai vu que cette propriété contenait initialement frmOeuvres et ne pouvait accepter qryOeuvres.
Je creuse.
Merci encore.

[tee_grandbois]

bonjour,

Dansc l'espion j'ai vu que cette propriété contenait initialement frmOeuvres et ne pouvait accepter qryOeuvres.

oui, l'objet source c'est le nom du sous-formulaire, la source de données c'est RecordSource et il faut préciser la propriété Form de l'objet sous-formulaire avant:

Code :

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

Me.frmOeuvres.Form.Recordsource= "qryOeuvres"

[User]

autant pour moi, oui pour la propriété sourceobject du contrôle sous-formulaire, il faut donner le nom du sous-formulaire et pour la propriété recordsource du sous-formulaire, le nom de la requête.