Discussion :

[le_niak]

Bonjour,

Je dois recopier certaines données d'une table dans cette dernière.

Pour cela je crée une requete sur cette table afin de recuperer juste l'enregistrement à copier. Mon soucis est que l'enregistrement comporte une trentaine de colonnes et lors du recopiage de donnees je n'arrive pas à utiliser une boucle sur .Field

Voici mon code

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
30
31
32
 
Private Sub CopyRisk2_Click()
 
'permet de créer une nouvelle risk matrix a partir de l'ancienne
Dim ID_3, boucleRisk As Integer
Dim risk3_1, risk3_2 As DAO.Recordset
Dim Rep3, SQL As String
Dim NewDate3
 
'Récupération du dernier ID.
Set risk3_1 = CurrentDb.OpenRecordset("SELECT MAX([Id_Risk])AS Maximum FROM Risks")
ID_3 = risk3_1!Maximum + 1
risk3_1.Close
 
'copie l'ancienne risk matrix dans la nouvelle
SQL = "SELECT Risks.* FROM Risks WHERE ID_Risk=" & Me.lstResults16_2
 
Set risk3_2 = CurrentDb.OpenRecordset(SQL)
While Not risk3_2.EOF
    With Application.CurrentDb.OpenRecordset("Risks")
    .AddNew
    .Fields("ID_Risk").Value = ID_3
        For boucleRisk = 1 To 35
        .Fields(boucleRisk + 1).Value = risk3_2(boucleRisk)
        Next boucleRisk
    .Update
    End With
 risk3_2.MoveNext
Wend
Set risk3_2 = Nothing
 
End Sub

Si quelqu'un a une petite idée.

[pgz]

Bonjour.

j'ai regardé rapidement et j'ai trouvé

Code :

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

.Fields(boucleRisk + 1).Value = risk3_2(boucleRisk)

Il vaudrait mieux

Code :

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

.Fields(boucleRisk + 1).Value = risk3_2.Fields(boucleRisk).Value

C'est l'absence du Fields à droite qui doit poser pb.
Il y aurait d'autres remarques, mais pas forcément des erreurs.

Bon courage,

PGZ

[vodiem]

et pourquoi ne pas utiliser une requete?
par exemple:

Code :

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

1
2
3
4
INSERT INTO Table4
SELECT *
FROM Table4
WHERE Table4.ID='1';

duplique l'enregistrement qui a id='1' dans la même table.

[le_niak]

->vodiem
Bonjour,
J'utilise pas de requete etant donné que je veux copier certaines données et en remplacer d'autres.

Donc c'est pour eviter de faire un insert, puis un update.

->pgz

Bonjour,
Je teste de suite, sinon quelles sont les autres remarques afin que j'améliore mon code.
Merci

[le_niak]

Encore merci pgz.

Voici le code final

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
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
 
Private Sub CopyRisk2_Click()
 
If (IsNull(Me.lstResults16_2)) Then
    MsgBox "Veuillez sélectionner une Risk Matrix"
Else
 
'permet de créer une nouvelle risk matrix a partir de l'ancienne
Dim ID_3, boucleRisk As Integer
Dim risk3_1, risk3_2 As Dao.Recordset
Dim Rep3, SQL As String
Dim NewDate3
 
'variable contenant la nouvelle date
    Do
        Rep3 = InputBox("Quelle est la nouvelle date?")
    Loop While (Not IsDate(Rep3))
 
    NewDate3 = CDate(Rep3)
 
'Récupération du dernier ID.
Set risk3_1 = CurrentDb.OpenRecordset("SELECT MAX([Id_Risk])AS Maximum FROM Risks")
ID_3 = risk3_1!Maximum + 1
risk3_1.Close
 
'copie l'ancienne risk matrix dans la nouvelle
SQL = "SELECT Risks.* FROM Risks WHERE ID_Risk=" & Me.lstResults16_2
 
Set risk3_2 = CurrentDb.OpenRecordset(SQL)
While Not risk3_2.EOF
    With Application.CurrentDb.OpenRecordset("Risks")
    .AddNew
        For boucleRisk = 1 To 35
        .Fields(boucleRisk).Value = risk3_2.Fields(boucleRisk).Value
        Next boucleRisk
    .Fields("ID_Risk").Value = ID_3
    .Fields("Date").Value = NewDate3
    .Update
    End With
 risk3_2.MoveNext
Wend
Set risk3_2 = Nothing
 
End If
End Sub

[pgz]

Bonjour.

Pour les autres remarques, en voici une importante. Il faut éviter d'appeler en boucle

Code :

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

Application.CurrentDb

Il est préférable d'instancier une fois, d'utiliser n fois, puis de libérer, comme 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
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
Private Sub CopyRisk2_Click()
 
If (IsNull(Me.lstResults16_2)) Then
    MsgBox "Veuillez sélectionner une Risk Matrix"
Else
 
'permet de créer une nouvelle risk matrix a partir de l'ancienne
Dim ID_3, boucleRisk As Integer
Dim db as DAO.Databse, risk3_1 as DAO.Recordset, risk3_2 As Dao.Recordset, risk3 as DAO.recordset
Dim Rep3, SQL As String
Dim NewDate3
 
'variable contenant la nouvelle date
    Do
        Rep3 = InputBox("Quelle est la nouvelle date?")
    Loop While (Not IsDate(Rep3))
 
    NewDate3 = CDate(Rep3)
 
'instanciation db
set db = Application.CurrentDb
 
'Récupération du dernier ID.
Set risk3_1 = db.OpenRecordset("SELECT MAX([Id_Risk])AS Maximum FROM Risks")
ID_3 = risk3_1!Maximum + 1
risk3_1.Close
 
'copie l'ancienne risk matrix dans la nouvelle
SQL = "SELECT Risks.* FROM Risks WHERE ID_Risk=" & Me.lstResults16_2
 
Set risk3_2 = db.OpenRecordset(SQL)
Set risk3 = db.OpenRecordset("Risks")
While Not risk3_2.EOF
    With risk3
    .AddNew
        For boucleRisk = 1 To 35
        .Fields(boucleRisk).Value = risk3_2.Fields(boucleRisk).Value
        Next boucleRisk
    .Fields("ID_Risk").Value = ID_3
    .Fields("Date").Value = NewDate3
    .Update
    End With
 risk3_2.MoveNext
Wend
    risk3.Close
    risk3_2 .close
 
'libérer les variables
set risk3 = Nothing
Set risk3_1=Nothing
Set risk3_2 = Nothing
Set db = Nothing
 
End If
End Sub

Il faut penser :
- a instancier CurrentDb pour éviter la création involontaire de n instances
- fermer les rst
- libérer les variables.

Bon courage,

PGZ

[le_niak]

Merki