Discussion :

[Commandeur]

bonjour,

je vous voudrais faire des etiquettes specifique, voila

j'ai une table1 et table2

Donnée des tables:

table1:
nombre etiquette; depart; code ;
3 ; 5 ; 345456

table2 :
Numero auto; code imprimer ;


code vba souhaite:

je voudrais qu'il m'insere [depart]=5 fois la valeurs null dans la table2;
puis
qu'il m'insere [code]=345456 , [nombre etiquette]=3fois dans la table2.


resultat dans la table2 :

Numero auto; code imprimer ;
1 ;
2 ;
3 ;
4 ;
5 ;
6 ; 345456
7 ; 345456
8 ; 345456


j'espere que j'etait asse claire dans mon explication...

Merci

[loufab]

Bonjour,

ça devrait ressembler à ceci.

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
Dim rst1 As Recordset
Dim rst2 As Recordset
 
Set rst1 = CurrentDb.OpenRecordset("Table1", dbOpenSnapshot)
Set rst2 = CurrentDb.OpenRecordset("Table2", dbOpenDynaset)
 
While Not rst1.EOF
    For i = 1 To rst1.Fields(1)
        rst2.AddNew
        rst2.Fields(0) = Null
        rst2.Update
    Next
    For i = 1 To rst1.Fields(0)
        rst2.AddNew
        rst2.Fields(0) = rst1.Fields(2)
        rst2.Update
    Next
    rst1.MoveNext
Wend
 
rst1.Close
rst2.Close
 
Set rst1 = Nothing
Set rst2 = Nothing

Cordialement,

[Commandeur]

sa marche nikel

Merci baucoup, tu es trop fort.

Bon week-end

[Commandeur]

Bonjour,


petit soucis, quant je met ton code dans une nouvelle bassse de donne vierge, il marche super bien.

Mais quand je le met dans ma base il marque cette erreur :

Erreur d'exécution 3001:
Argument non valide



je ne comprend pas, j'ai l'aisse le même nom des tables ,

quand je fait debogage

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
Private Sub Commande1_Click()
Dim rst1 As Recordset
Dim rst2 As Recordset
 
Set rst1 = CurrentDb.OpenRecordset("Table1", dbOpenSnapshot)
Set rst2 = CurrentDb.OpenRecordset("Table2", dbOpenDynaset)
 
While Not rst1.EOF
    For i = 1 To rst1.Fields(1)
        rst2.AddNew
        rst2.Fields(0) = Null
        rst2.Update
    Next
    For i = 1 To rst1.Fields(0)
        rst2.AddNew
        rst2.Fields(0) = rst1.Fields(2)
        rst2.Update
    Next
    rst1.MoveNext
Wend
 
rst1.Close
rst2.Close
End Sub

[Commandeur]

je te met ma base de donnee qui deconne, pour que tu vois le soucis

[helas]

Avec la référence Microsoft DAO 3.6 Object Library

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
 
Private Sub Commande2_Click()
 
Dim rst1 As DAO.Recordset
Dim rst2 As DAO.Recordset
 
Set rst1 = CurrentDb.OpenRecordset("Table1")
Set rst2 = CurrentDb.OpenRecordset("Table2")
 
While Not rst1.EOF
    For i = 1 To rst1.Fields(1)
        rst2.AddNew
        rst2.Fields(0) = Null
        rst2.Update
    Next
    For i = 1 To rst1.Fields(0)
        rst2.AddNew
        rst2.Fields(0) = rst1.Fields(2)
        rst2.Update
    Next
    rst1.MoveNext
Wend
 
rst1.Close
rst2.Close
 
Set rst1 = Nothing
Set rst2 = Nothing
End Sub

[Commandeur]

re,


super sa marche nikel, merci de ta recherche

Bon dimanche