Discussion :

[oscar.cesar]

bonjour
voila une question
j'ai une base qui contient , entre autre, 2 tables(table1 et table2 non liees)
et bien sur beaucoup de donnees.
la table 2 est composée de 3 champs.
champs1 = T2index
champs2=text
champs3= text

lle champs contient une chaine de caractere qui correspond à plusieurs information que je souhaiterai decoupe pour inserer dans la table1 et par consequence je dois creer des champs supplmentaire dans la table


a table1 contient plusieurs champs dont
champps1=T1Index


cela est il possible si oui je detaillerai le contenu des tables.

merci

[Jean-Philippe André]

bonjour, oui c'est possible,
par les requêtes de modification de table

Code :

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

Alter Table

puis les fonctions

Code :

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

Mid()

[oscar.cesar]

bien
bon je vais detailler.
je souhaite donc :
Decouper le contenu de la table2.champ2 tant que le table1.T1index=table2.T2index et que table2.champ3= Valeur A
le table2.champ2(format text) à decouper est de longueur varaible et formater de la facon suivante 45@46.5@9.6 ou 78.5@155 ou 78.5 etc.....
recuperer les nombres de la chaines de caractereS contenu dans le table2.champ2 pour les inserer dans les nouveaux champs creer dans TABLE1
si table2.champ3= valeurr A alors
table1.champ5=45
si table2.champ3=valeur B alors
table1.champ6=46.5
etc.....

cela est il faisable
si oui je peut eventuellment comuniquer un extrait de la base

[helas]

Est-ce qu'il faut l'entendre comme cela ?

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
27
28
29
 
Sub LaFonction()
 
 Dim t As DAO.Recordset, t2 As DAO.Recordset
 Dim i As Long, a() As String
 
 '*** vide la table ***
 DoCmd.RunSQL "DELETE tb2.* FROM tb2;"
 
 Set t = CurrentDb.OpenRecordset("tb1")
 Set t2 = CurrentDb.OpenRecordset("tb2")
 
 t.MoveFirst
 Do Until t.EOF
  '*** eclate la chaine suivant le séparateur @ ***
  a = Split(t!champ2, "@")
 
  For i = 0 To UBound(a)   'pour chaque sous chaine récupérée
   t2.AddNew                  'on sauvegarde
   t2!Champ1 = t!Champ1  'lien entre les 2 tables
   t2!champ2 = a(i)          'la sous chaine
   t2.Update
  Next i
 
  t.MoveNext       'enregistrement suivant
 Loop
 t.Close: t2.Close
 
End Sub

[oscar.cesar]

bonsoir
je precise que c'est dans la table1 que tout doit etre stocke

veux tu que je te communique la base

merci

[AlainTech]

Euh, oscar.cesar,

Ne serais-tu pas en train de demander qu'on écrive ton code à ta place?

Tu n'arrêtes pas de demander du code et, quand on t'en donne, il faut, en plus, qu'on te l'explique.

Que connais-tu de VBA?
Qu'as-tu déjà ecrit par toi-même?
Utilises-tu l'aide en ligne?

Il est d'usage, ici, lorsqu'on pose une question, de montrer ce qu'on a déjà fait et je ne ne te vois pas poster de code.

Il faudrait arrêter de prendre developpez pour un supermarché (gratuit!) de code tout fait.

[oscar.cesar]

bonsoir à tous
mes connaissances en vba sont surtout situées sur excel. Niveau moyen.
Sous access , je connais rien .
je sais ecrire qql requete SQL simple mais cela s'arrete LA.
ce que je ne sais pas faire en SQl c'est de prendre les infos d'un champ et les transferer dans un autre.
dans ce que j'ai à realiser, il y en plus à decomposer le contenu d'un champ comme decrit dans les lignes ci_dessous et tenir compte d'un autre champ avant d'inscrire le resultat dans le champ selectionner.......

cordialement

[AlainTech]

As-tu essayé le code de helas?
Et si oui, quel est le résultat?