[VBA][Access] - modifier un filtre

Message par **LM2I_Laurent** » mer. 27 août 2008 17:24

modifier un filtre:

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