Discussion :

[aba_tarn]

J'ai une liste déroulante qui me permet de trouver mon enregistrement, sur le After_update il y a le code suivant :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Dim rs As Object
Set rs = Me.Recordset.Clone
rs.FindFirst "[nom_camping]='" & Me![choix_camping] & "'"
If Not rs.EOF Then Me.Bookmark = rs.Bookmark

Le problème étant que si mon camping s'appèle le camping l'Alouette

Il ne veut pas me trouver mon enregistrement parce que le nom contient un '. Comment puis-je faire pour corriger cette erreur?

Merci pour votre aide

[helas]

Il faut doubler l'apostrophe comme ceci

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
rs.FindFirst "[nom_camping]='" & Replace(Me![choix_camping], "'", "''") & "'"

[vodiem]

salut aba_tarn et helas,

sinon:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

rs.FindFirst "[nom_camping]=""" & Me![choix_camping] & """"

en espérant que tu n'ai pas non plus de guillemet en plus de l'apostrophe auquel cas: il faut les doubler comme te l'a montré hélas.

[aba_tarn]

Merci beaucoup, cela faisait un moment que je cherchais une solution, je suis contente de l'avoir enfin trouvée!!