DAO : Function Replace() & Access 2000

Bonjour,

Je dois faire une petite modification sur une vieille application qui a été développée avec DAO.

J'ai un problème de tri au niveau des apostrophes.
Tri actuel :
- D'AB
- DAC
- D'AD
- DAD
- D'EB
- DEC

Tri désiré:
- D'AB
- D'AD
- D'EB
- DAC
- DAD
- DEC

Ma requête de selection pour permettre cela (elle marche dans les requêtes Access 2000)
Select ... From ... Order by Replace(MonChamp, '''', ''' ');

Le tri est correct grâce à cette requête dans Access, mais impossible de la faire marcher dans VB avec DAO 3.6

Avez-vous une idée pour que cela fonctionne ? ou une autre façon de faire pour que le tri soit correct?

Merci d'avance.
Cordialement.

y a t il un message d 'erreur ?
montre ta requête ! ou ton bout de code !

comment on peut deviner ce qui marche pas nous !!

oups :p

C'est le Replace() qui ne marche pas err 3080 fonction non définie

Ligne de code :
vSQL= "Select ... From ... Order by Replace(MonChamp, '''', ''' ')"
set vRs=db.OpenRecordset(vSQL,dbOpenDynaset) >>>l'erreur est ici

Sachant que la même requête sans le replace marche tout à fait

Enregistre la requête dans une requete enregistrée et appelle là en DAO par son nom ... c'est mieux que de mettre du code SQL dans du code VBA quand celui ci n'a pas besoin d'être modifié :wink:

Déjà fait :wink:
Le message d'erreur est le même :?

Arf, essaye voir ainsi :

Dans un module

Code:

---

1 2 3

public function MonReplace(Chaine as string, Cherche as string, remplace as string) as string MonReplace=Replace(Chaine, Cherche,remplace) end function

---

et dans ta requête tu appelles MonReplace au lieu de Replace :wink:

Cela implique un autre problème en fait si tu regardes bien ma requête le replace s'effectue pour le order by :) donc c'est directement lors du tri qu'il fait semblant de remplacer les apostrophes par apostrophe + espace.

Si je mets le replace comme tu dis dans VB cela va faire un replace dans le nom de la colonne et non dans les données de la colonne.

Est-ce que mon problème est un peu plus clair? :p

Non, tu te trompes, ça revient au même ... tu utiliseras en fait un clone de la fonction replace ... c'est un bug d'access 2000 ...

Re salut :wink:

Je viens d'essayer et j'ai toujours le même problème. :cry:

Ok j'ai trouvé une solution :)
Si ça vous interresse la voilà :
Faire une requete comme ci-dessous:

Code:

---

1 2 3 4 5

SELECT MonChamp FROM MaTable ORDER BY IIf(InStr([MonChamp],Chr(39))>0,Mid([MonChamp],1,InStr([MonChamp],Chr(39))-1) & ' ' & Mid([MonChamp],InStr([MonChamp],Chr(39))+1),[MonChamp])

---