Discussion :

[bart64]

Bonjour,

Dans une table, j'ai un champ qui contient des valeurs séparées par des ;

Exple : AA;BBB;C;DDDD

Y a-t-il moyen que je fasse quelque chose comme ca :

SELECT Split(Champ, ';')(0) AS PremCode, Split(Champ, ';')(1) AS DeuxiemeCode FROM TABLE

Et ce, afin de récupérer chaque champ séparément ?

J'ai l'impression que la fonction split n'existe pas.
Avez-vous une combine ?

Merci d'avance.

[cafeine]

Hello,

au pire tu fais une fonction

Code VB :

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

1
2
3
Function Decoupe(str as String, separateur as String, index as Long) As String
 Decoupe = split(str,separateur)(index)
End Function

[bart64]

Bonjour Cafeine,

Il faut absolument que je l'utilise dans la requête SQL. Je n'utilise pas de form.
Est-ce qu'on peut se créer des fonctions en vb6 et les utiliser dans les requêtes access ?

[bart64]

Up ?

[bart64]

Up une dernière fois

[micniv]

Comme te l'as suggéré Cafeine plus haut, tu peux créer une fonctions publique en VBA et l' utiliser dans des requêtes access
Ensuite il faut essayer ...

[bart64]

Bonjour micniv,

J'ai bien sûr essayé la méthode de cafeine avant de faire tous mes up.
J'ai donc créé un module, déclaré cette fonction publique.

Mais la fonction n'est toujours pas reconnue dans le requêteur.
Le message est : "Fonction 'Decoupe' non définie dans l'expression".
Ce message apparaît lorsqu'on appelle une fonction qui n'existe pas.

J'ai (il me semble) parcouru tous les liens que pouvait me fournir google à ce sujet.
La notion de procédure stockée dans access est assimilée à une requête stockée.

Ce n'est pas une requête stockée qui me permettra de splitter le champ.

Voilà pourquoi je commence à désespérer.

[micniv]

J'ai copié telle que la fonction de Caféine dans un module standard :

Code :

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

1
2
3
4
 
Public Function Decoupe(str As String, separateur As String, index As Long) As String
Decoupe = Split(str, separateur)(index)
End Function

Puis j'ai ecrit une requete :

Code :

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

1
2
3
SELECT decoupe([NomClient].[Nom],";",1)
FROM NomClient
ORDER BY [NomClient].[Nom];

et ça marche !

[bart64]

Yes ! Merci micniv. Je dois donc mal m'y prendre.
Je regarde tout ça et je te dis ce qu'il en est.

Quoiqu'il en soit, merci beaucoup pour ton aide.