Discussion :

[xycoco]

Bonjour à tous,

J'ai un formulaire avec une liste déroulante basée sur ID Cépages (listes des cépages) afin de rechercher l'enregistrement correspondants. Ce chmaps contient des apostrophes , j'ai donc appliqué ce code sur AprèsMiseAjour :

Private Sub Modifiable4_AfterUpdate()
' Rechercher l'enregistrement correspondant au contrôle.
Dim rs As Object

Set rs = Me.Recordset.Clone
rs.FindFirst "[ID cépage]= '" & Replace(Me![Modifiable4], "'", "''") & "'"
Me.Bookmark = rs.Bookmark
End Sub

En sélectionnant un nom sans apostrophe cela marche, mais s'il ya une apostrophes la recherche de l'enregistrement correspondant n'est pas effectuée. Après quelques de recherche, je me suis aperçu que le fait que le champ soit sous clé primaire ou indéxé, était lié. En effet si je défini le champ ID Cépages comme non indexé : tout marche bien.
Le problème, c'est que j'ai besoin d'indexer ce champ pour éviter les doublons!!!
Comment faire?
Merci d'avance pour votre aide car cela fait longtemps que je suis sur ce pb

[argyronet]

Bonjour,

Un clé primaire ne doit pas contenir ce genre d'information...
Je te conseille très fortement de créer une clé primaire numérique ou avec un compteur, sinon, tu vas tout droit dans des galères comme celle que tu as posté !
Si tu veux indexer ce champ, aucun problème, tu créés la clé compteur associée à ton IDCepage. Dans la table, tu sélectionnes les 2 champs et tu cliques sur la tite clé !


Argy

[Papy Turbo]

1- l'engueulade : utilises les balises de code, s.t.p. Dans ton cas, c'est flagrant : qu'est-ce que tu remplaces par quoi : 2 quotes par 3 quotes ? ou un double quote par un simple ? C'est pas clair.

Ensuite, ta méthode est bonne mais tu peux faire un peu plus simple :
- si tu recherches sur le Recordset au lieu du Clone, tu n'as pas besoin de copier les bookmarks, (OK, ça ne résoud pas le problème)
- as tu essayé la commande Docmd.Findrecord, sur le formulaire ? Est-ce que ça donne la même chose ?
- qu'est-ce qu'il se passe si tu n'utilises pas de Replace() ?

P.S. rien à voir non plus, mais je ne peux pas m'empêcher : merci de déclarer

Code :

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

Dim rs as DAO.Recordset

pas 'As Object' !
Tu y gagneras la liste des méthodes en tapant le point.

Sinon, j'ai eu des cas similaires, et la solution a été
- d'avoir un champ indexé (clé primaire, en l'occurence) invisible, en + du champ visible (non indexé),
- à chaque modif du champ visible (_AfterUpdate), 'traduction' du contenu du champ (par exemple : suppression des guillemets ou remplacement par un _underscore_) et enregistrement dans le champ caché,
- toutes recherches se font sur le champ caché.

Mais on va peut être trouver + simple ?

[xycoco]

Bonjour, merci de vos réponses,

En réponse à papy turbo je suis désolé si j'ai fais des erreurs mais je suis novice (voir un embryon) dans access et je ne comprends pas tout le langage.

j'ai incorporé ma liste déroulante (Modifiable4) à l'aide de l'assistant. Le problème c'est que j'ai une erreur 3077 à chaque fois que je sélectionne un nom de cépage contenant une apostrophe (Muscat d'alexandrie par exemple).

Après quelques recherche dans diverses FAQ, la solution apparement est de remplacer les ' par une double'' ce que j'ai fait en intégrant la fonction Replace().
Mais cela ne marche toujours pas. Je n'ai plus le message d'erreur, mais mon enregistrement n'est pas recherché.(sauf si je retire la clé primaire ou l'indexage de ce champ).

A la réponse d'Argyronet, J'ai essayé comme tu as dis un autre champ (type N°auto) et de l'associer en clé primaire avec mon champ ID Cépages mais ce dernier n'est pas indexé. IL n'y a pas de risque de doublons?

[Papy Turbo]

Je comprends mieux, et la réponse d'Argyronet est la bonne : il te faut un champ clé primaire, avec un NuméroAuto

J'ai essayé comme tu as dis un autre champ (type N°auto) et de l'associer en clé primaire avec mon champ ID Cépages mais ce dernier n'est pas indexé. IL n'y a pas de risque de doublons?

Rien ne t'empêche :
- de masquer le champ [CléPrimaire] dans ta liste (largeur colonne = 0),
- de lier quand même ce champ à la valeur de la liste (BoundColumn = colonne liée)
- de faire la recherche sur ce champ, qui est la valeur renvoyée par la liste,
- d'indexer le champ [NomCepage], qui contient des apostrophes, avec interdiction de doublons. (Index unique mais non primaire)

[Papy Turbo]

Je viens de voir le détail de la réponse d'Argyronet, plus haut. J'y aporterais un bémol :

Si tu veux indexer ce champ, aucun problème, tu créés la clé compteur associée à ton IDCepage. Dans la table, tu sélectionnes les 2 champs et tu cliques sur la tite clé !

je créerais
- la clé primaire sur le champ NumeroAuto seul : champ [CleCepage], par exemple
- un index unique séparé sur le champ [NomCepage], juste pour éviter les doublons.
Je ne vois pas d'intérêt à ce que la clé primaire contienne les 2 champs, et les performances générales seront meilleures.

[argyronet]

Vi Vi vi, Papy...
Bon, j'ai écris un peu vite

[xycoco]

merci

C'est ce que je pensais faire de toute façon (Clé sur un numéro Auto). mais c'est quand même bizarre que le doublage des apostrophes sur un champ indéxé-sans doublon ne marche.

Merci pour tout et bonne fin de journée

[Papy Turbo]

hé, pssst ! et le tag résolu !!!!!