Forum d'assistance informatique - LM2I

de **Baborge77** » Mer 27 Aoû 2008 16:24

modifier un filtre:

Code: Tout sélectionner: Private Sub Ville_AfterUpdate() Dim flt As String Dim frm1 As Form Dim frm2 As Form flt = "((R_base_AC_MS.VILLE = '" & Me.Ville & "'))" Set frm1 = Form_F_base_AC_MS Form_F_base_AC_MS.Filter = flt Form_F_base_AC_MS.FilterOn = True flt = "((R_base_AC_Rue.VILLE = '" & Me.Ville & "'))" Set frm2 = Form_F_base_AC_Rue Form_F_base_AC_Rue.Filter = flt Form_F_base_AC_Rue.FilterOn = True Me.F_base_AC_MS.Requery Me.Fille25.Requery End Sub

[VBA][Access] - modifier un filtre