Access 2003: filtrer un formulaire par le biais d'un autre formulaire

Access 2003: filtrer un formulaire par le biais d'un autre formulaire - VB/VBA/VBS - Programmation

Marsh Posté le 26-04-2011 à 11:57:09    

Bonjour,  
 
Je suis sous Access 2003 et j'utilise VBA pour filtrer un formulaire.
 
Ce formulaire F_pilotage est liée à une requête (source du formulaire).
 
Aujourd'hui, j'applique directement mon filtre par le formulaire.
C'est à dire que j'ai mes listes déroulantes et mon bouton "Activer filtre" qui permettent d'appliquer le filtre, et le bouton "Désactiver filtre" qui efface le contenu des listes déroulantes et réinitialise le filtre.
J’ai réussi à cumuler plusieurs paramètres de filtres
 
 
Ce que je veux faire :
Je commence à avoir de plus en plus de paramètres à filtrer.
Le problème, c’est que dans l’aspect visuel de mon formulaire, la section relative aux filtres commence à prendre beaucoup de place.
J’ai donc créé un autre formulaire F_tri où j’ai collé le code du filtre.
 
Mon problème est que mon filtre fait appel aux champs de mon premier formulaire et je n’arrive pas à faire la liaison…
Je vois un souci dans mon code au niveau du ME, mais ne sais pas comment le régler.
 
Voici mon code :
 

Code :
  1. Private Sub cmd_filtre_on_Click()
  3. 'FILTRE FACTURABLE
  4. If Not IsNull(Me.select_facturable.Value) And Me.select_facturable.Value <> "" Then
  5. If filtre <> "" Then
  6. filtre = filtre & " AND inf_facturable = """ & Me.select_facturable.Value & """"
  7. Else
  8. filtre = "inf_facturable = """ & Me.select_facturable.Value & """"
  9. End If
  10. End If
  12. 'FILTRE A FACTURER
  13. If Not IsNull(Me.select_a_facturer.Value) And Me.select_a_facturer.Value <> "" Then
  14. If filtre <> "" Then
  15. filtre = filtre & " AND inf_a_facturer = """ & Me.select_a_facturer.Value & """"
  16. Else
  17. filtre = "inf_a_facturer = """ & Me.select_a_facturer.Value & """"
  18. End If
  19. End If
  21. 'FILTRE FACTURÉ
  22. If Not IsNull(Me.select_facture.Value) And Me.select_facture.Value <> "" Then
  23.     If Me.select_facture.Value = "Oui" Then
  24.     If filtre <> "" Then
  25.     filtre = filtre & " AND inf_facture <> 0"
  26.     Else
  27.     filtre = "inf_facture <> 0"
  28.     End If
  29.     End If
  30.    
  31.     If Me.select_facture.Value = "Non" Then
  32.     If filtre <> "" Then
  33.     filtre = filtre & " AND inf_facture is null"
  34.     Else
  35.     filtre = "inf_facture is null"
  36.     End If
  37.     End If
  38. End If
  40. Me.Filter = filtre
  41. Me.FilterOn = True
  42. Me.OrderBy = "PR"
  43. Me.OrderByOn = True
  45. End Sub


 
D’avance merci pour vos contributions.

Reply

Marsh Posté le 26-04-2011 à 11:57:09   

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed