Discussion :

[GESCOM2000]

Voila j'ai une chaine de carractere => "12-52-5-96-55"
il il a que 1 ou 2 nombre entier maxi==>52 ou 5

Maintenant je veux ecrire dans une table "TABLE_EXEMPLE"
avec 5 champs T1 T2 T3 T4 et T5
et ecrire dans la table:

T1 = 12
T2 = 52
T3 = 5
T4 = 96
T5 = 55

Voila ca parait simple mais j'aimerai avoir un bon bout de code bien propre....
Merci pour votre aide

[cafeine]

Hello,

ce n'est pas vraiment le but du forum de donner un code "bien propre" pour te citer.

il s'agit plutôt de te guider vers la solution au lieu de te la donner toute cuite.

Par conséquent. je te suggère de regarder l'aide en ligne sur la fonction Split() ...

[GESCOM2000]

Oui mais cette fonction peut sairvir a boucoup de personne newbiz dans le code
Tu peut stoker tes recherche dans ton formulaire dans un champs texte et
faire tes trie par la suite....

[cafeine]

En fait il n'y pas besoin de code ... une simple requête création de table avec la fonction Split() devrait suffire.

exemple de split() en mode exécution

Code :

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

1
2
3
4
5
print split("12-52-5-96-55","-")(0)
12
 
print split("12-52-5-96-55","-")(1)
52

je te laisse imaginer les applications à ton cas.

[GESCOM2000]

J'ai regarder dans l'aide et je ne pije pas la fonction split de plus sous acces il y a pas d'exemple....

[cafeine]

qu'à cela ne tienne, j'ai pris sur moi d'éditer mon message pour t'expliquer comment marche Split() (ne marche que si tu as une version 2000 ou ultérieure)

[GESCOM2000]

Ca y ait j'ai trouver comment ca marche la fonction spli()!!!!

Je vessayer d'ecrire un bon bout de code bien propre pour les autres
suivant mon exemple!

j'ai donc ma table "TABLE_EXEMPLE" avec ces 5 champs T1 T2 T3 T4 T5
ma chaine de carractere a triturer...==> "12-52-5-96-55"

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
Private Sub CHERCHE_Click()
Dim DB As Database
Dim RS As Recordset
Dim CHERCHE() as string
 
Set DB = DBEngine(0)(0)
Set RS = DB.OpenRecordset("SELECT TABLE_EXEMPLE.* FROM TABLE_EXEMPLE;")
 
CHERCHE = Split("12-52-5-96-55", "-")
 
CHERCHE(0) = "12-52-5-96-55"
CHERCHE(1) = "12-52-5-96-55"
CHERCHE(2) = "12-52-5-96-55"
CHERCHE(3) = "12-52-5-96-55"
CHERCHE(4) = "12-52-5-96-55"
 
RS.AddNew
RS!T1=val(CHERCHE(0)) 'rajoute VAL si champs numerique dans la table...
RS!T1=val(CHERCHE(1)) 
RS!T1=Val(CHERCHE(2)) 
RS!T1=Val(CHERCHE(3)) 
RS!T1=Val(CHERCHE(4))
RS.UPDATE
RS.CLOSE
 
End sub

[GESCOM2000]

Encore plus simple...

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Private Sub CHERCHE_Click() 
Dim DB As Database 
Dim RS As Recordset 
 
 
Set DB = DBEngine(0)(0) 
Set RS = DB.OpenRecordset("SELECT TABLE_EXEMPLE.* FROM TABLE_EXEMPLE;") 
 
 
RS.AddNew 
RS!T1=Split("12-52-5-96-55", "-")(0) 
RS!T1=Split("12-52-5-96-55", "-")(1) 
RS!T1=Split("12-52-5-96-55", "-")(2) 
RS!T1=Split("12-52-5-96-55", "-")(3) 
RS!T1=Split("12-52-5-96-55", "-")(4) 
RS.UPDATE 
RS.CLOSE 
 
End sub