Problême avec Serverfilter sous Access 2003
Résolu
cpaq
Messages postés
2
Date d'inscription
Statut
Membre
Dernière intervention
-
cpaq Messages postés 2 Date d'inscription Statut Membre Dernière intervention -
cpaq Messages postés 2 Date d'inscription Statut Membre Dernière intervention -
Bonjour,
Je désire changer 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 si il n'y avait aucune valeur au préalable dans la propriété.
Sinon Access ne prend pas encontre le nouveau critère.
J'utilise Access 2003 avec SQL Server 2005. Mon formulaire utilise une View
Merci à l'avance de votre aide
Une image vos mille mots
http://www.tazquebec.com/programmation/frmModele.jpg
Voici mon code:
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
Je désire changer 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 si il n'y avait aucune valeur au préalable dans la propriété.
Sinon Access ne prend pas encontre le nouveau critère.
J'utilise Access 2003 avec SQL Server 2005. Mon formulaire utilise une View
Merci à l'avance de votre aide
Une image vos mille mots
http://www.tazquebec.com/programmation/frmModele.jpg
Voici mon code:
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
A voir également:
- Problême avec Serverfilter sous Access 2003
- Office 2003 - Télécharger - Bureautique
- Acer quick access - Forum Logiciels
- Access appdata - Guide
- Exemple base de données access à télécharger gratuit - Forum Access
- Exemple base de données Access de gestion ✓ - Forum Logiciels
1 réponse
En route pour le travail ce matin j’ai eu un flash.
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.
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.
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.
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.