Correction code vba

Version imprimable

Correction code vba

Bonjour,

Je suis très novice en VBA , je créer plusieur code vba que j'ai empile en fonction de déroulement des actions demande.

Pouvez-vous jeter un oeil pour me corrige et si c'est correct.

Merci

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
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
 
 
Private Sub GenerationET_Click()
 
If Not IsNull(Me.Edition_etiquette.Value) Then
    MsgBox "Les etiquettes sont deja affectées a un numero de lot"
    Exit Sub
End If
 
 
DoCmd.SetWarnings False
 
'=== Mise a jour qte par rapport a l'of et vide la table tmp prep archivage
DoCmd.SetWarnings False
 
Dim Dtbase As DAO.Database, strSql As String
strSql = "UPDATE [TB-TempPrepOF] INNER JOIN [TB-liste_of] ON [TB-TempPrepOF].N°of = [TB-liste_of].of_id SET [TB-TempPrepOF].QTE = [TB-liste_of].[qte_pr];"
strSql = "DELETE [TB-TempPrepArchi].* FROM [TB-TempPrepArchi];"
strSql = "delete [TB-TempEnreNumeroLot].* from [TB-TempEnreNumeroLot];"
Set Dtbase = CurrentDb()
Dtbase.Execute (strSql)
Dtbase.Close
 
'=== Creer le nombre d'etiquette dans tb prepAchivage
 
Dim rst1 As DAO.Recordset
Dim rst2 As DAO.Recordset
 
 
Set rst1 = CurrentDb.OpenRecordset("TB-TempPrepOF")
Set rst2 = CurrentDb.OpenRecordset("TB-TempPrepArchi")
 
While Not rst1.EOF
 
    For I = 1 To rst1.Fields(0)
        rst2.AddNew
        rst2.Fields(0) = rst1.Fields(2)
        rst2.Fields(1) = rst1.Fields(1)
        rst2.Update
 
    Next
 
    rst1.MoveNext
Wend
 
rst1.Close
rst2.Close
 
Set rst1 = Nothing
Set rst2 = Nothing
 
'=== Mise a jour numero de lot
 
'== comptage etiquette 1 a...
DoCmd.OpenQuery "RQ-Comptage etiquette"
 
 
'== mise à jour numero de lot avec dernier lot
 
DoCmd.OpenQuery "RQ-Fusion N°etiquette+Lot"
strSql = "UPDATE [TB-TempPrepOF] INNER JOIN [TB-liste_of] ON [TB-TempPrepOF].N°of = [TB-liste_of].of_id SET [TB-liste_of].Edition_etiquette = Yes;"
 
 
Set Dtbase = CurrentDb()
Dtbase.Execute (strSql)
Dtbase.Close
 
 
'== mise a jour du dernier lot sur donnée etiquette
 
DoCmd.OpenQuery "RQ-Dernier lot de l'edition"
DoCmd.OpenQuery "RQ-Mise_a_jour_dernier_lot_article"
DoCmd.OpenQuery "RQ-Ajout dans archivage"
DoCmd.SetWarnings True
 
MsgBox "Génération terminé.", vbInformation
 
End Sub

Bonjour,
Une première correction, je ne suis pas allé plus loin
La 2ème ligne écrase la premiere et la 3ème écrase la seconde donc strSQL vaut la dernière déclaration

Code:

1
2
3
4
5
6
7
 
strSql = "UPDATE [TB-TempPrepOF] INNER JOIN [TB-liste_of] ON [TB-TempPrepOF].N°of = [TB-liste_of].of_id SET [TB-TempPrepOF].QTE = [TB-liste_of].[qte_pr];"
strSql = "DELETE [TB-TempPrepArchi].* FROM [TB-TempPrepArchi];"
strSql = "delete [TB-TempEnreNumeroLot].* from [TB-TempEnreNumeroLot];"
Set Dtbase = CurrentDb()
Dtbase.Execute (strSql)
Dtbase.Close

Il faut donc exécuter chaque requête après sa déclaration

Code:

1
2
3
4
5
6
7
 
strSql = "UPDATE [TB-TempPrepOF] INNER JOIN [TB-liste_of] ON [TB-TempPrepOF].N°of = [TB-liste_of].of_id SET [TB-TempPrepOF].QTE = [TB-liste_of].[qte_pr];"
DoCmd.Runsql strSQL
strSql = "DELETE [TB-TempPrepArchi].* FROM [TB-TempPrepArchi];"
DoCmd.Runsql strSQL
strSql = "delete [TB-TempEnreNumeroLot].* from [TB-TempEnreNumeroLot];"
DoCmd.Runsql strSQL

ha super, effectivement sa me gérai des erreurs.
Merci de ta correction

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
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
 
 
 
Private Sub GenerationET_Click()
 
If Not IsNull(Me.Edition_etiquette.Value) Then
    MsgBox "Les etiquettes sont deja affectées a un numero de lot"
    Exit Sub
End If
 
 
DoCmd.SetWarnings False
 
'=== Mise a jour qte par rapport a l'of et vide la table tmp prep archivage
DoCmd.SetWarnings False
 
Dim Dtbase As DAO.Database, strSql As String
strSql = "UPDATE [TB-TempPrepOF] INNER JOIN [TB-liste_of] ON [TB-TempPrepOF].N°of = [TB-liste_of].of_id SET [TB-TempPrepOF].QTE = [TB-liste_of].[qte_pr];"
DoCmd.RunSQL strSql
strSql = "DELETE [TB-TempPrepArchi].* FROM [TB-TempPrepArchi];"
DoCmd.RunSQL strSql
strSql = "delete [TB-TempEnreNumeroLot].* from [TB-TempEnreNumeroLot];"
DoCmd.RunSQL strSql
Set Dtbase = CurrentDb()
Dtbase.Execute (strSql)
Dtbase.Close
 
'=== Creer le nombre d'etiquette dans tb prepAchivage
 
Dim rst1 As DAO.Recordset
Dim rst2 As DAO.Recordset
 
 
Set rst1 = CurrentDb.OpenRecordset("TB-TempPrepOF")
Set rst2 = CurrentDb.OpenRecordset("TB-TempPrepArchi")
 
While Not rst1.EOF
 
    For I = 1 To rst1.Fields(0)
        rst2.AddNew
        rst2.Fields(0) = rst1.Fields(2)
        rst2.Fields(1) = rst1.Fields(1)
        rst2.Update
 
    Next
 
    rst1.MoveNext
Wend
 
rst1.Close
rst2.Close
 
Set rst1 = Nothing
Set rst2 = Nothing
 
'=== Mise a jour numero de lot
 
'== comptage etiquette 1 a...
DoCmd.OpenQuery "RQ-Comptage etiquette"
 
 
'== mise à jour numero de lot avec dernier lot
 
DoCmd.OpenQuery "RQ-Fusion N°etiquette+Lot"
strSql = "UPDATE [TB-TempPrepOF] INNER JOIN [TB-liste_of] ON [TB-TempPrepOF].N°of = [TB-liste_of].of_id SET [TB-liste_of].Edition_etiquette = Yes;"
 
 
Set Dtbase = CurrentDb()
Dtbase.Execute (strSql)
Dtbase.Close
 
 
'== mise a jour du dernier lot sur donnée etiquette
 
DoCmd.OpenQuery "RQ-Dernier lot de l'edition"
DoCmd.OpenQuery "RQ-Mise_a_jour_dernier_lot_article"
DoCmd.OpenQuery "RQ-Ajout dans archivage"
DoCmd.SetWarnings True
 
MsgBox "Génération terminé.", vbInformation
 
End Sub

Bonjour,
personnellement j'aurai fait comme ça! C'est plus rapide que DoCmd

Code:

1
2
3
CurrentDb.Execute "UPDATE [TB-TempPrepOF] INNER JOIN [TB-liste_of] ON [TB-TempPrepOF].N°of = [TB-liste_of].of_id SET [TB-TempPrepOF].QTE = [TB-liste_of].[qte_pr];"
CurrentDb.Execute "DELETE [TB-TempPrepArchi].* FROM [TB-TempPrepArchi];"
CurrentDb.Execute "delete [TB-TempEnreNumeroLot].* from [TB-TempEnreNumeroLot];"

15/09/2016, 07h23
Commandeur

Merci de ton astuce,

juste une question qui me trotte dans la tete,

C'est quoi le plus rapide pour access, c'est exécuter une requette en vba ou lance une requette ?

Code:

CurrentDb.Execute "DELETE [TB-TempPrepArchi].* FROM [TB-TempPrepArchi];"

ou

Code:

DoCmd.OpenQuery "RQ-Comptage etiquette"
15/09/2016, 07h50
Invité

Bonjour,
Execute est une action direct.
DoCm est une action sous-traité a Access

Execute est le puis rapide.

Maintenant si tu veux exécuter une requête sauvegardé dans ta base utilises QuerryDef.