Dans mon formulaire, je réalise un filtre qui fonctionne très bien SAUF
lorsqu'un libellé contient déjà le caractère '. Par exemple Chef d ' équipe.
Là plantage ! je vois pourquoi ('), mais existe-t-il une parade ?
Private Sub FiltrePoste_AfterUpdate()
Dim vFiltre As String
vFiltre = "Poste = '" & FiltrePoste & "'"
FiltrePoste = ""
DoCmd.ApplyFilter , vFiltre
End Sub
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Bonjour
"René"
Salut à tous!
Dans mon formulaire, je réalise un filtre qui fonctionne très bien SAUF lorsqu'un libellé contient déjà le caractère '. Par exemple Chef d ' équipe. Là plantage ! je vois pourquoi ('), mais existe-t-il une parade ?
Private Sub FiltrePoste_AfterUpdate() Dim vFiltre As String vFiltre = "Poste = '" & FiltrePoste & "'" FiltrePoste = "" DoCmd.ApplyFilter , vFiltre End Sub
Merci aux bonnes âmes bienveillantes...
Essaye en remplaçant vFiltre = "Poste = '" & FiltrePoste & "'" par
a+ -- Arnaud --------------------------------------------- infos, conseils et liens : http://www.mpfa.info ---------------------------------------------
Bonjour
"René"
Salut à tous!
Dans mon formulaire, je réalise un filtre qui fonctionne très bien SAUF
lorsqu'un libellé contient déjà le caractère '. Par exemple Chef d '
équipe. Là plantage ! je vois pourquoi ('), mais existe-t-il une parade ?
Private Sub FiltrePoste_AfterUpdate()
Dim vFiltre As String
vFiltre = "Poste = '" & FiltrePoste & "'"
FiltrePoste = ""
DoCmd.ApplyFilter , vFiltre
End Sub
Merci aux bonnes âmes bienveillantes...
Essaye en remplaçant
vFiltre = "Poste = '" & FiltrePoste & "'"
par
Dans mon formulaire, je réalise un filtre qui fonctionne très bien SAUF lorsqu'un libellé contient déjà le caractère '. Par exemple Chef d ' équipe. Là plantage ! je vois pourquoi ('), mais existe-t-il une parade ?
Private Sub FiltrePoste_AfterUpdate() Dim vFiltre As String vFiltre = "Poste = '" & FiltrePoste & "'" FiltrePoste = "" DoCmd.ApplyFilter , vFiltre End Sub
Merci aux bonnes âmes bienveillantes...
Essaye en remplaçant vFiltre = "Poste = '" & FiltrePoste & "'" par
Grand merci Arnaud ! Ca marche ! T'es un chef ! je cherchais depuis 2 h ! Ouf !! merci... merci
Argyronet
Bonsoir,
Dans ce cas comme en SQL il faut doubler la quote: Private Sub FiltrePoste_AfterUpdate() Dim vFiltre As String
vFiltre = "Poste = '" & Replace(FiltrePoste, "'", "''") & "'" FiltrePoste = "" DoCmd.ApplyFilter , vFiltre End Sub
-- Argy { MVP } http://argyronet.developpez.com/
Ce qui donne son sens à la communication, c´est la réponse que l´on obtient. Si vous n´obtenez pas la réponse voulue, communiquez différemment
Bonjour
"René"
Salut à tous!
Dans mon formulaire, je réalise un filtre qui fonctionne très bien SAUF lorsqu'un libellé contient déjà le caractère '. Par exemple Chef d ' équipe. Là plantage ! je vois pourquoi ('), mais existe-t-il une parade ?
Private Sub FiltrePoste_AfterUpdate() Dim vFiltre As String vFiltre = "Poste = '" & FiltrePoste & "'" FiltrePoste = "" DoCmd.ApplyFilter , vFiltre End Sub
Merci aux bonnes âmes bienveillantes...
Essaye en remplaçant vFiltre = "Poste = '" & FiltrePoste & "'" par
a+ -- Arnaud --------------------------------------------- infos, conseils et liens : http://www.mpfa.info ---------------------------------------------
Bonsoir,
Dans ce cas comme en SQL il faut doubler la quote:
Private Sub FiltrePoste_AfterUpdate()
Dim vFiltre As String
vFiltre = "Poste = '" & Replace(FiltrePoste, "'", "''") & "'"
FiltrePoste = ""
DoCmd.ApplyFilter , vFiltre
End Sub
--
Argy { MVP }
http://argyronet.developpez.com/
Ce qui donne son sens à la communication, c´est la réponse que l´on obtient.
Si vous n´obtenez pas la réponse voulue, communiquez différemment
Bonjour
"René"
Salut à tous!
Dans mon formulaire, je réalise un filtre qui fonctionne très bien SAUF
lorsqu'un libellé contient déjà le caractère '. Par exemple Chef d '
équipe. Là plantage ! je vois pourquoi ('), mais existe-t-il une parade ?
Private Sub FiltrePoste_AfterUpdate()
Dim vFiltre As String
vFiltre = "Poste = '" & FiltrePoste & "'"
FiltrePoste = ""
DoCmd.ApplyFilter , vFiltre
End Sub
Merci aux bonnes âmes bienveillantes...
Essaye en remplaçant
vFiltre = "Poste = '" & FiltrePoste & "'"
par
Dans ce cas comme en SQL il faut doubler la quote: Private Sub FiltrePoste_AfterUpdate() Dim vFiltre As String
vFiltre = "Poste = '" & Replace(FiltrePoste, "'", "''") & "'" FiltrePoste = "" DoCmd.ApplyFilter , vFiltre End Sub
-- Argy { MVP } http://argyronet.developpez.com/
Ce qui donne son sens à la communication, c´est la réponse que l´on obtient. Si vous n´obtenez pas la réponse voulue, communiquez différemment
Bonjour
"René"
Salut à tous!
Dans mon formulaire, je réalise un filtre qui fonctionne très bien SAUF lorsqu'un libellé contient déjà le caractère '. Par exemple Chef d ' équipe. Là plantage ! je vois pourquoi ('), mais existe-t-il une parade ?
Private Sub FiltrePoste_AfterUpdate() Dim vFiltre As String vFiltre = "Poste = '" & FiltrePoste & "'" FiltrePoste = "" DoCmd.ApplyFilter , vFiltre End Sub
Merci aux bonnes âmes bienveillantes...
Essaye en remplaçant vFiltre = "Poste = '" & FiltrePoste & "'" par
