Discussion :

[Rickhq]

Bonjour,

J'ai une liste déroulante qui me permet de rechercher les noms dans une table. Mais voilà les noms contenant une appostrophe ne passe pas, ex : O'Hara, Linda.

Voici mon code:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub Modifiable299_AfterUpdate()
  ' Rechercher l'enregistrement correspondant au contrôle.
    Dim rs As Object
 
    Set rs = Me.Recordset.Clone
    rs.FindFirst "[Chef] = '" & Me![Modifiable299] & "'"
    If Not rs.EOF Then Me.Bookmark = rs.Bookmark
    Modifiable301 = ""
    Modifiable303 = ""
    Me![Boîte318].Visible = True
    Me![F_SousForm1].Visible = True
     DoCmd.DoMenuItem acFormBar, acRecordsMenu, 5, , acMenuVer70
End Sub

Merci à l'avance!

[arthur57]

Peut-être en inversant les guillemets simples et doubles.

Code :

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

1
2
3
4
5
 
Dim rs As Object
 
Set rs = Me.Recordset.Clone
rs.FindFirst '[Chef] = " ' & Me![Modifiable299] & ' " '

Essaie d'afficher ta requête dans un msgBox pour y voir plus clair.

[Rickhq]

Merci pour le retour, pas mieux...

[arthur57]

remplace le guillemet simple par & chr(39) &

Sinon l'exemple que tu as mis ici n'est pas le même que dans ton premier message. Tu as le problème pour ces 2 exemples?

[Rickhq]

Désolé je suis nul...
Est bien cela? Car même chose.

[arthur57]

Désolé je suis nul...
Est bien cela? Car même chose.

Le problème c'est que le compilateur, lorsqu'il lis tes guillements, il ne fais pas la différence entre les guillements de la requête et les guillements du champ Modifiable299.

Essaie peut-être quelque chose comme ca.

Code :

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

1
2
3
 
Set rs = Me.Recordset.Clone
rs.FindFirst "[Chef] = " & chr(39) &  " & Me![Modifiable299] & " & chr(39) &  "

[Rickhq]

Là tu parles!!!

Tout fonctionne!

Gros merci et bon été!

[arthur57]

Bon été à toi aussi