Discussion :

[Ludwik]

Bonjour,
Je souhaiterai à partir du résultat d'un champ déroulant "NomProprietaire" d'un formulaire se trouvant dans un fichier Tampon, effectuer un filtre sur un sous fomulaire, la fonction "filter" ne semble pas fonctionner quelqu'un connaitrait il une astuce

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
 
Private Sub Form_Open(Cancel As Integer)
Dim MaBase As Database
Dim Tempon As String
Dim rst1  As Recordset
Set MaBase = CurrentDb
 
Set rst1 = MaBase.OpenRecordset("Bd_Tampon", dbOpenDynaset)
rst1.MoveFirst
 
Tempon = rst1!NomProprietaire
 
Me.Refresh
Forms("SF_LivreProprietaireTest").Filter = "[NomProprietaire]=" & Tempon
Forms("SF_LivreProprietaireTest").FilterOn = True
Me.Refresh
 
End Sub

[vodiem]

salut Ludwik,

Code :

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

Forms("SF_LivreProprietaireTest").Filter = "[NomProprietaire]='" & Tempon & "'"