Discussion :

[debdev]

Bonjour,

Je ne connais pas VB. Je dois essayer de comprendre le code VB écrit dans une base Access par quelqu'un d'autre. Pourriez vous me dire si le code suivant est correct notamment aux 2 endroits où j'ai mis les commentaires***?

Merci

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
 
//il y a 2 listes
//1er bouton : fait passer les éléments de la 1ère liste vers la 2ème
Private Sub btnCount_Click()
 
 Dim x
 Dim values
 Dim donnee As String
 Dim db As DAO.Database
 
Set db = CurrentDb
 
For Each SelItem In listXXX.ItemsSelected
 With lstValidate
   If Not .RowSourceType = "Value List" Then Exit Sub
   If .RowSource = Empty Then
       .RowSource = listXXX.ItemData(SelItem)
   Else
       .RowSource = .RowSource & ";" & listXXX.ItemData(SelItem)
   End If
End With
 
donnee = listXXX.ItemData(SelItem) //***ça veut dire qch ?
 
Next
End Sub
 
 
 
//2eme bouton : prend les éléments de la 2ème liste et update la table avec la valeur donnée dans le champ date_res
Private Sub btnval_Click()
 
Dim msgResult As Integer
Dim db As DAO.Database
Dim rs As DAO.Recordset
Dim donnee As String
Dim lstItem As String
Dim strQuery, strUpdate, strInsert As String
Dim docExcel As Excel.Workbook
Dim feuille As Excel.Worksheet
 
Set db = CurrentDb
 
For x = 0 To lstValidate.ListCount - 1
lstItem = lstValidate.ItemData(x)
donnee = lstItem //***ça veut dire qch ?
strQuery = "UPDATE T_XXX INNER JOIN T_YYY ON T_XXX.id = T_YYY.id " & _
        " SET date_appel= '" & date_res.Value & "' WHERE T_XXX.id" & _
        " LIKE '" & donnee & "';"
db.Execute (strQuery)
Next
End Sub

[Demco]

Code :

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

donnee = listXXX.ItemData(SelItem) //***ça veut dire qch ?

Il te suffit de regarder l'aide sur la méthode IdemData pour savoir ce que signifie cette ligne. Que veux-tu exactement savoir de cette ligne ?

[helas]

donnee récupère le dernier élément sélectionné

Code :

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

1
2
 
donnee = listXXX.ItemData(SelItem)

[debdev]

Merci.
Je vais revoir tout ça