Discussion :

[tazquebec]

*Bonjour,*

Je désire changer les informations affichées dans un sous-formulaire lors d'un changement de valeur dans ma combox "Section" en utilisant la propriété ServerFilter de mon sous-formulaire.

Cela fonctionne s'il n'y avait aucune valeur au préalable dans la propriété.

Sinon Access ne prend pas en compte le nouveau critère.

J'utilise Access 2003 avec SQL Server 2005. Mon formulaire utilise une View

Merci à l'avance de votre aide et voici mon code:

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
20
Private Sub drpdwn_Section_Q_Change()
Select Case drpdwn_Section_Q.Column(2)
Case "S"
Me.frmMD_with_Desc_of_Activite.Form.Controls("Valeur_Avant_Étiquette").Caption = "NB Suite"
Me.frmMD_with_Desc_of_Activite.Form.Controls("Nb_Hrs_Avant_Étiquette").Caption = "Hrs Suite"
Me.frmMD_with_Desc_of_Activite.Form.Controls("Valeur_Apres_Étiquette").Caption = "NB Nouveau"
Me.frmMD_with_Desc_of_Activite.Form.Controls("Nb_Hrs_Apres_Étiquette").Caption = "Hrs Nouveau"
Case "A"
Me.frmMD_with_Desc_of_Activite.Form.Controls("Valeur_Avant_Étiquette").Caption = "NB Année 1"
Me.frmMD_with_Desc_of_Activite.Form.Controls("Nb_Hrs_Avant_Étiquette").Caption = "Hrs Année 1"
Me.frmMD_with_Desc_of_Activite.Form.Controls("Valeur_Apres_Étiquette").Caption = "NB Année 2"
Me.frmMD_with_Desc_of_Activite.Form.Controls("Nb_Hrs_Apres_Étiquette").Caption = "Hrs Année 2"
Case Else
Me.frmMD_with_Desc_of_Activite.Form.Controls("Valeur_Avant_Étiquette").Caption = "Hrs ?"
Me.frmMD_with_Desc_of_Activite.Form.Controls("Valeur_Apres_Étiquette").Caption = "Hrs ?"
End Select
Me.frmMD_with_Desc_of_Activite.Form.ServerFilter = "ref_Modele = " & drpdwn_Modeles.Value & " AND ref_Phase = " & drpdwn_Phase.Value & " AND ref_SA = " & drpdwn_Section_Q.Value
Me.frmMD_with_Desc_of_Activite.Form.Requery
Me.frmMD_with_Desc_of_Activite.Form.Repaint
End Sub

[argyronet]

Bonjour,

Il te suffit d'exploiter la propriété ServerFilterByForm à laquelle tu affectes False pour désactiver tout filtre...

Utilise la propriété ServerFilter pour enregistrer un filtre et l'appliquer quand tu le souhaites. Un filtre est enregistré avec l'objet dans lesquels il a été créé. Il sera alors automatiquement chargé à l'ouverture du formulaire mais ne sera pas automatiquement appliqué.

Argy

[tazquebec]

J’ai résolu mon problème en initialisant la propriété ServerFilter de ma forme à vide. Ce qui fait que quand la forme est fermée la propriété ServerFilter est enregistre avec aucune valeur. J’avais tenté quelque chose de similaire hier dans l’événement de fermeture de la form sans succès.

Code :

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

1
2
3
4
Me.frmMD_with_Desc_of_Activite.Form.ServerFilter = "ref_Modele = " & drpdwn_Modeles.Value & " AND ref_Phase = " & drpdwn_Phase.Value & " AND ref_SA = " & drpdwn_Section_Q.Value
Me.frmMD_with_Desc_of_Activite.Form.Requery
Me.frmMD_with_Desc_of_Activite.Form.ServerFilter = ""
Me.frmMD_with_Desc_of_Activite.Form.Repaint

Merci de votre temps. J’espère que cette solution pourra aider une autre personne.