Bonjour,

pour les besoins de mon travail , j'ai repris une requete vba access d'un collegue de travail.
Aprés quelques modifications, cette requete vba fonctionne trés bien . Mais honnetement, je ne sais pas expliquer les lignes de cette requete surtout au niveau des lignes 2; 3; 9; 10; 13;14.

J'aurais donc grandement besoin d'une aide pour traduire chaque ligne de cette requete afin que je puisse l'adapter le cas échant à d'autre programme.
Merci d'avance

Voici cette requete :
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
Private Sub actualisation()
Dim rst As DAO.Recordset
Dim str As String
Dim cpt_recir_videocodage As Integer
Dim cpt_recir_machine As Integer
 
'Mise à jour recirculation videocodage
str = "SELECT Last(dbo_vwSorterLoad.VCSQueue) AS [colis en attente videocodage] From dbo_vwSorterLoad;"
Set rst = CurrentDb.OpenRecordset(str, dbOpenDynaset)
cpt_recir_videocodage = rst(0)
Texte_nbre_colis_videocodage.Value = cpt_recir_videocodage
 
rst.Close
Set rst = Nothing
 
'Mise à jour couleur signal videocodage
Select Case cpt_recir_videocodage
Case 0 To 99
        signal_videocodage.BackColor = 65280 'vert
    Case 100 To 199
        signal_videocodage.BackColor = 33023 ' orange
    Case Else
        signal_videocodage.BackColor = 255 ' rouge
    End Select
 
' mise à jour recirculation machine
str = "SELECT Last(dbo_vwSorterLoad.Recirc) AS [colis en recirculation] From dbo_vwSorterLoad;"
Set rst = CurrentDb.OpenRecordset(str, dbOpenDynaset)
cpt_recir_machine = rst(0)
Texte__nbre_de_colis_en_recirculation.Value = cpt_recir_machine
rst.Close
Set rst = Nothing
 
'Mise à jour couleur signal recirculation machine
Select Case cpt_recir_videocodage
Case 0 To 99
        signal_recirculation.BackColor = 65280 'vert
    Case 100 To 199
        signal_recirculation.BackColor = 33023 ' orange
    Case Else
        signal_recirculation.BackColor = 255 ' rouge
    End Select
End Sub