Traiter données de plusieures tables en VBA

Version imprimable

15/03/2013, 11h18
Audeo

Traiter données de plusieures tables en VBA

Bonjour,
je me lance novice en VB sous access2007.
J'ai une table "table1" avec une valeur numerique pour chaque record, disons 10, dans un champ "Nb"
J'ai une table "table2" liée à la table 1 par ID, avec pour chaque record, 4 champs fixes FR, IT, ES, UK, ayant une valeur %, disons simple (25, 25, 25, 25).
Je souhaiterai dans une 3e table "table3" remplir automatiquement les champs si
si table1.NB <>0 alors
si table2.FR <>0 alors table3.NB = 10 * 25% on cree un record table3
si table2.IT<>0 alors table3.NB = 10 * 25% on cree un 2e record table3
si table2.ES <>0 alors table3.NB = 10 * 25% on cree un 3e record table3
si table2.UK<>0 alors table3.NB = 10 * 25% on cree un 4e record table3
sinon on passe au suivant table1.NB
et etc...

merci d'avance pour votre aide

Renseigne-toi sur les recordset ;) notamment la bibliothèque DAO. Il y a un tuto ici. Avec ça tu peux parcourir les enregistrements, mettre tes conditions en place et remplir ta troisième table. Exemple :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Public Sub Test()
    Dim rst As DAO.Recordset
    Dim strSQL As String
 
    strSQL = "SELECT * FROM MaTable;"
    Set rst = CurrentDb.OpenRecordset(strSQL)
 
    While Not rst.EOF
        If rst("monChamps") = maValeur Then
            CurrentDb.Execute "INSERT INTO MaTable2 (monChamps2) VALUES (" & rst("monChamps") &  "*2);"
        End If
        rst.moveNext
    Wend
End Sub

15/03/2013, 14h18
Audeo

merci pour l'info, je vais regarder, je reviens si besoin...
A+
15/03/2013, 16h53
Audeo

Désolé, mais j'y arrive pas...:(

je bloque complétement...
j'ai essayé ça sans resultat et avec une erreur:
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 Sub BDD() Dim Db As DAO.Database Dim rst As DAO.Recordset Dim rst2 As DAO.Recordset Dim rst3 As DAO.Recordset Set Db = CurrentDb Set rst = Db.OpenRecordset("Tbl_1", dbOpenDynaset) Set rst2 = Db.OpenRecordset("Tbl_2", dbOpenDynaset) Set rst3 = Db.OpenRecordset("Tbl_3", dbOpenDynaset) While Not rst.EOF If rst("NB1") > 0 Then rst3.AddNew rst3("NB3") = (rst("NB1")* rst2("NB2FR") rst3.Update End If rst.MoveNext Wend rst.Close Set rst = Nothing End Sub
en fait, je souhaiterai alimenter les champs de la table3 vide (champs crées) en fonction des conditions de certains champs table1 et table2
table 1 (Code, Nom1, NB1,....)
table 2 (Code, Nom2, NB2FR,NB2IT,NB2ES,NB2UK...)
table 3 (Code, PAYS, NB3) pour obtenir ceci :
Code PAYS NB3
AAA NB2FR valeurNB1 * valeur NB2FR
AAA NB2IT valeurNB1 * valeur NB2IT
AAA NB2ES valeurNB1 * valeur NB2ES
AAA NB2UK valeurNB1 * valeur NB2UK
BBB NB2FR valeurNB1 * valeur NB2FR
BBB NB2IT valeurNB1 * valeur NB2IT
BBB NB2ES valeurNB1 * valeur NB2ES
BBB NB2UK valeurNB1 * valeur NB2UK
.....
AAA, BBB, etc... sont tous les enregistrement de la table 1

on balaye 1 a 1 tous les enregistrements table1 et a chaque enregistrement on crée à chaque fois 4 enregistrements dans table 3 en remplissant les champs

Merci car là je suis vraiment perdu...:cry:

15/03/2013, 21h18
marot_r

Code:

rst3("NB3") = (rst("NB1")* rst2("NB2FR"))

il manque une parenthèse fermante sur ta ligne de code.

Sinon le reste du code semble correct.

Pour info rst3("NB3") peut aussi s'écrire rst3![NB3] ou rst3.fields("NB3")A+
15/03/2013, 21h21
marot_r
Code:

1 2 3 rst3.AddNew rst3("NB3") = (rst("NB1")* rst2("NB2FR")) rst3.Update
à répéter pour chacun des enregistrements que tu veux créer.

A+
16/03/2013, 11h21
Audeo

il ne veut pas de mes 3 "Set"
rst, rst2, rst3
peut être il n'y a pas besoin d'ouvrir les 3 tables comme ça...

Bon... 6h plus tard, j'ai un peu avancé.
il balaye bien toute la tbl1
il me crée bien les records tbl1 dans la tbl3 avec les infos de tbl1 et tbl2 je precise, pour le premier.
Ensuite par contre, il me crée les autres tbl1 dans tbl3 mais en restant sur les valeurs de tbl2 du 1er.
voici mon code :

Code:

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
30
31
Sub BDD()
    Dim Db As DAO.Database
    Dim rst  As DAO.Recordset
    Dim rst2 As DAO.Recordset
    Dim rst3 As DAO.Recordset
    Set Db = CurrentDb
    Set rst = Db.OpenRecordset("Tbl_H", dbOpenDynaset)
    Set rst2 = Db.OpenRecordset("Tbl_ID", dbOpenDynaset)
    Set rst3 = Db.OpenRecordset("Tbl_BDD", dbOpenDynaset)
    While Not rst.EOF
        If rst![NB] > 0 Then
            If rst2![BL] <> 0 Then
                With rst3
                .AddNew
                .Fields("BDD_ID") = (rst![PID])
                .Fields("BDD_Sta") = (rst2![Sta])
                .Fields("BDD_PM") = (rst2![PM])
                .Fields("BDD_Nb") = (rst![NB] * rst2![BL] / 100)
                .Update
                End With
            End If
           End If
        rst.MoveNext
    Wend
    rst.Close
    Set rst = Nothing
    rst2.Close
    Set rst2 = Nothing
    rst3.Close
    Set rst3 = Nothing
End Sub

---------------------------
il faudrait peut être réinitialiser rst2 à chaque nouveau ?
ou faire matcher par les ID comme clé ?

j'en sais rien...
please help me...

A+

Evidemment qu'il reste sur le premier enregistrement de rst2 ! Tu l'initialises mais tu ne le parcours pas ;) Si je comprends bien le problème de départ :

Citation:

Envoyé par Audeo

J'ai une table "table2" liée à la table 1 par ID

Pour moi, tu n'as pas besoin de rst2 mais par contre ton rst1 devrait être du genre :

Code:

SELECT * FROM MaTable1, MaTable2 WHERE MaTable1.ID = MaTable2.ID;

Ce qui donnerait :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 Set rst = currentDb.Openrecordset("SELECT * FROM MaTable1, MaTable2 WHERE MaTable1.ID = MaTable2.ID") While Not rst.EOF If rst![NB] > 0 and rst![BL] <> 0 Then With rst3 .AddNew .Fields("BDD_ID") = (rst![PID]) .Fields("BDD_Sta") = (rst![Sta]) .Fields("BDD_PM") = (rst![PM]) .Fields("BDD_Nb") = (rst![NB] * rst![BL] / 100) .Update End With End If rst.MoveNext Wend