OVH Cloud OVH Cloud

Filtrage "dynamique"

1 réponse
Avatar
RZ
Bonjour

Voici mon problème, j'utilise access 2000

J'ai un formulaire indépendant avec un champ texte indépendant nommé txtNom
et un sous formulaire en feuille de donnée qui affiche une liste de nom.
J'aimerai qu'au fur et à mesure que quelqu'un tape le nom dans txtNom le
sous-formulaire se filtre selon les caractère entrée. Mon problème se siture
au niveau de l'événement. J'ai essayé ceux de touches enfoncé, relachée ...
et aussi sur changement mais rien à faire ça ne marche pas. quelqu'un peut
me donné une idée la dessus ?

voici mon code:

Private Sub txtNom_KeyPress(KeyAscii As Integer)

Dim strFilter As String

Dim strNom As String

strNom = Me.txtNom

strFilter = "NomClient like " & "'" & strNom & "*'"

[frmSubRechercheClients].Form.Filter = strFilter

[frmSubRechercheClients].Form.FilterOn = True

End Sub

Merci en avance pour votre aide

1 réponse

Avatar
Raymond [mvp]
Bonjour.

à 1ere vue,
il faut le faire dans l'événement Change
txtNom_Change()
il faut utiliser la propriété text au lieu de value:
strNom = Me.txtNom.Text

je n'ai pas regardé le reste.
--
@+
Raymond Access MVP
http://OfficeSystem.Access.free.fr/
http://OfficeSystem.Access.free.fr/runtime/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"RZ" a écrit dans le message de news:
%
Bonjour

Voici mon problème, j'utilise access 2000

J'ai un formulaire indépendant avec un champ texte indépendant nommé
txtNom et un sous formulaire en feuille de donnée qui affiche une liste de
nom. J'aimerai qu'au fur et à mesure que quelqu'un tape le nom dans txtNom
le sous-formulaire se filtre selon les caractère entrée. Mon problème se
siture au niveau de l'événement. J'ai essayé ceux de touches enfoncé,
relachée ... et aussi sur changement mais rien à faire ça ne marche pas.
quelqu'un peut me donné une idée la dessus ?

voici mon code:

Private Sub txtNom_KeyPress(KeyAscii As Integer)

Dim strFilter As String

Dim strNom As String

strNom = Me.txtNom

strFilter = "NomClient like " & "'" & strNom & "*'"

[frmSubRechercheClients].Form.Filter = strFilter

[frmSubRechercheClients].Form.FilterOn = True

End Sub

Merci en avance pour votre aide