Discussion :

[By-nôm]

Bonjour,

j'ai une table avec 2 champs.
J'aimerais extraire de celle-ci les 5 premiers caractères du deuxième champ, et ce évidemment pour toutes les lignes.

Ainsi, j'ai tapé le code suivant :

Code :

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

1
2
3
4
5
6
7
8
 Dim nb
 nb = DCount("*", "matable")


For i = 1 To nb
Dim code
code = Left(matable.champ2, 5)
Next i

Je sais que j'utilise mal la fonction left() et je pense qu'il faut utiliser des objets de type recordset mais je suis un peu perdu à ce niveau.

Pourriez-vous m'orienter un peu SVP.

Merci d'avance.

[Tofalu]

Pas besoin de VBA


En SQL :

SELECT Left(MonChamp,5) FROM MaTable

[By-nôm]

Le truc c'est que je dois traiter la chaîne de caractères après extraction, et j'aurais préféré utiliser le VBA.

[Tofalu]

Dans ce cas, utilises un recordset basé sur la requête que je t'ai donné

[By-nôm]

Ok, alors je vais me permettre de te poser une dernière question.
Quel recordset est le meiux adapté?

J'ai consulté le sujet "Comment travailler sur une partie d'une chaîne de caractères ?" de Demco dans la FAQ.

Mais il n'indique pas vraiment les recordsets à utiliser et comme je n'ai pas tout saisi l'essentiel de cetet notion, je me permets d'insister.

[Tofalu]

Tout ce dont tu as besoin de savoir :

http://warin.developpez.com/access/dao/

et plus particulièrement la dernière partie :

http://warin.developpez.com/access/dao/?page=partie_5

[vador972]

Bonjour,
Je ne sais pas si ceci te sera utile :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
    Dim MyRec As Recordset
    Dim MyExt As String
 
    Set MyRec = CurrentDb.OpenRecordset("SELECT * FROM MATABLE;")
    MyRec.MoveFirst
 
    While Not MyRec.EOF
        MyExt = Left(MyRec.Fields(1), 5)
 
        MyRec.MoveNext
 
    Wend

Bien sûr je ne sais pas si tu vas récupérer tes valeurs dans une table un tableau ... etc

Bon courage