Discussion :

[antidotes]

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.

[m-mas]

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 !!

[antidotes]

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

[Tofalu]

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é

[antidotes]

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

[Tofalu]

Arf, essaye voir ainsi :

Dans un module

Code :

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

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

[antidotes]

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

[Tofalu]

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 ...

[antidotes]

Re salut

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

[antidotes]

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

Code :

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

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])