Discussion :

[pam-pg]

Dans un forrmulaire sous access 2000 j'ai créé des champs indépandants. La valeur de ces champs me permet de paramètrer un filtre (Filtre affaire).

Une macro "Appliquer filtre" "Filtre affaire", lancée depuis un bouton, filtre mon formulaire sur la base de "Filtre affaire" et des valeurs entrées dans les champs indépendants.

Le premier filtrage se passe très bien, mais dès le second l'action de filtre ne se fait plus (SAUF sur access 2002 où cela fonctionne très bien).
Comment peut-on rafraîchir le filtrage sous access 2000?

[Renardo]

Pour rafraichir les donnees j'utilise cela ,peut etre que sa marchera

Code :

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

  DoCmd.RunCommand acCmdRefresh

[pam-pg]

Ok je vais essayer dès que possible. Faut-il le mettre avant la macro ou après ?

Perso j'avais essayé

Code :

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

Me.FilterOn = true

Mais le détail du formulaire disparait (contrôles du détail compris)

[Renardo]

Essai de le mettre a part sur un bouton tu envois ton filtre ensuite tu cliqueras sur le bouton tu verra si sa fonctionne ensuite tu pourras toujours le mettre ailleur si sa fonctionne

[pam-pg]

En fait cette méthode ne fonctionne pas. ni avant ni après la macro.

L'option

Code :

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

Me.FilterOn= true

ne fais pas mieux. seul le premier filtrage fonctionne, les suivants non. Il s'agit apparemment d'un problème de rafraichissement ou de Requery.

Mon filtrage fonctionne sur la base d'une requête filtre "Filtre affaire" dont les critères dépendent de valeurs entrées dans des champs indépendant de mon formulaire.

Comment peut-on faire pour rafraichir la requete filtre ou pour qu'elle prenne en compte les modifications des critères (donc des champs indépendants du formulaire) ?

[pam-pg]

Au lieu de faire une macro avec un filtre j'ai écris le code suivant et cela fonctionne

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
Dim fa1 As String
Dim fa2 As String
Dim fa3 As String
Dim fa4 As String
Dim fa5 As String
Dim fa6 As String
Dim fa7 As String
 
fa1 = "[Libellé affaire] like " & Chr(34) & "*" & Forms![Lot par affaires]![Libellé sel] & "*" & Chr(34)
fa7 = "[Numéro affaire] like " & Chr(34) & "*" & Forms![Lot par affaires]![Affaire sel] & "*" & Chr(34)
fa2 = "[CCS] like" & Chr(34) & "*" & Forms![Lot par affaires]![CCS sel] & Chr(34)
fa3 = "[tranche] like" & Chr(34) & "*" & Forms![Lot par affaires]![Tranche sel] & Chr(34)
fa4 = "[OPEX-CAPEX] like" & Chr(34) & "*" & Forms![Lot par affaires]![Imputation sel] & Chr(34)
fa5 = "[Projet] like" & Chr(34) & "*" & Forms![Lot par affaires]![Projet sel] & Chr(34)
fa6 = "[Statut] like" & Chr(34) & "*" & Forms![Lot par affaires]![Statut sel] & Chr(34)
Me.Filter = fa1 & "and" & fa2 & "and" & fa3 & "and" & fa4 & "and" & fa5 & "and" & fa6 & "and" & fa7
Me.FilterOn = True