*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
Partager