Discussion :

[technopole]

Bonjour,

voilà j'ai un formulaire que je filtre lors de son ouverture, mais alors j'ai une liste (pas déroulante) que je veux filtrer avec le même filtre.
Le probleme, ça ne marche pas
voici le code lors du chargement du formulaire :

Code :

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

1
2
3
4
5
6
7
8
9
Private Sub Form_Load()
 
    Dim stLinkCriteria As String
 
    stLinkCriteria = Me.Filter
    'Z_listeAbs
    Me.Z_listeAbs.RowSource = Me.RecordSource & "WHERE " & stLinkCriteria
 
End Sub

Quelqu'un peut m'aider, s'il vous plait
Merçi

[Invité]

Comment est fait le RecordSource de ton formulaire ?

Que contient ton StLinkCriteria ?

[technopole]

mon recordsource contient une requete nommée R_4_2 :

Code :

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

1
2
SELECT ABSENCES.dateAbs AS [Date], ABSENCES.nbAbsAnnonce, ABSENCES.nbAbs, ABSENCES.lieuAbs AS Lieu, ANNEE.libAnnee, ABSENCES.numEtu
FROM ANNEE INNER JOIN ABSENCES ON ANNEE.numAnnee=ABSENCES.numAnnee;

et mon stLinkCriteria contient ce texte :

Code :

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

[numEtu]=9

il s'agit du contenu du filtre du formulaire en cours

[Invité]

J'ai vérifié, le problème ne vient pas de l'emplacement de la colonne, comme je le pensais !

Mais du code !

Il faut mettre :

Code :

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

Me.Z_listeAbs.RowSource =  Left(Me.RecordSource, Len(Me.RecordSource) - 2) & "WHERE " & stLinkCriteria

pour supprimer le "; " du RecordSource

Ca devrait fonctionner

[technopole]

après avoir suivi tes consignes ça marche maintenant
merçi BrunoM45