Liste de recherche qui ne fonctionne pas tout le temps [Résolu]

[Mr T 94]

Bonjour,
J'ai une liste déroulante basée sur un champ de la requete de mon formulaire.
Après mise à jour, elle doit me positionner sur la fiche dont le champ correspond à ma liste. Voici mon code (conçu par l'assistant)

Code :

1
2
3
4
5
6
7
8
Private Sub RechDomaine_AfterUpdate()
    ' Rechercher l'enregistrement correspondant au contrôle.
    Dim rs As Object
 
    Set rs = Me.Recordset.Clone
    rs.FindFirst "[Domaine] = '" & Me![RechDomaine] & "'"
    If Not rs.EOF Then Me.Bookmark = rs.Bookmark
End Sub

Sur certains Domaines recherchés, j'ai un code d'erreur :

Erreur d'execution'3077:
Erreur de syntaxe (Opérateur absent)dans l'expression

Le déboger me signale une erreur sur la ligne

Code :

rs.FindFirst "[Domaine] = '" & Me![RechDomaine] & "'"

Pourtant, tout m'a l'air correct, surtout que ça marche bien sur les autres Domaines rechercés.
Si quelqu'un a une idée.
Merci

[Philippe JOCHMANS]

Bonjour

Peut-être un problème de type de données.

Est-ce que c'est toujours les mêmes données de recherches qui provoquent le bug et un autre type qui passe sans problème.

Peux-tu donner des exemples ?

Philippe

[Mr T 94]

Salut et merci pour cette question Philippe Jochmans, du coups, je me suis apperçu que ça ne le faisait que sur 2 noms de domaine recherchés (il s'agit de domaines viticoles car ma base est une gestion de cave) qui comportent une apostrophe dans le nom.
Si j'enlève l'apostrophe, ça fonctionne.
Par contre, je ne comprends pas pourquoi ça bug à cause de celà. C'est embettant car je ne voudrais pas écorcher le nom des domaines concernés.

[Fifi69]

Bonsoir

Ben si les simples cotes sont aussi l'apostrophe
Est-ce que ça fonctionne en remplacant par le code ASCII.
A tester ...

Code :

rs.FindFirst "[Domaine] = '" & Replace(Me![RechDomaine], "'", Chr(39)) & "'"

[Mr T 94]

Salut, Fifi69 et merci pour cette réponse rapide mais hélas, ça ne fonctionne pas.

[Philippe JOCHMANS]

Bonjour

C'est bien la fonction replace qu'il faut utiliser :

Code :

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

Il faut doubler la quote.

Le fait de t'avoir poser des questions sur ce bug t'a permis de comprendre ce qui se passe et en faisant une petite recherche sur le forum tu aurias trouver la réponse.

D'où l'intérêt de bien détailler

Philippe

[Mr T 94]

Super, ça marche, merci à vous 2.
Par contre, je ne sais pas si j'aurais trouvé sur le forum car malgrés la découverte du problème, je n'avais pas fait le raprochement entre la cote et l'apostrophe (le nez dans le guidon).
Merci encore.
@+