[VBA][Access] - modifier un filtre

Répondre
Avatar du membre
LM2I_Laurent
Administrateur - Site Admin
Messages : 252
Enregistré le : jeu. 27 août 2009 17:00

[VBA][Access] - modifier un filtre

Message par LM2I_Laurent » mer. 27 août 2008 17: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


@+
Laurent
Image
Webmaster
http://www.lm2i.fr
http://www.lm2i.eu

Image Image Image Image
.

Répondre