Insert into et zone de liste

[bvalenza]

Bonjour
dans une bdd sous access j'ai une zone de liste (lst) qui récupère des
variables sur deux colonnes
Col 1 : ID - Col 2 : valeur
j'ai dans un premier temps créé un code qui me sélectionne
automatiquement toutes les lignes
renseignées de la zone de liste, puis dans un deuxième temps qui
m'affiche toutes les valeurs
de la colonne 1.
Ce que je souhaite c'est pouvoir récupérer ces données et les
concaténer à une constante (var1)
pour faire un insert into dans une table (table)
Ex :
col 1 col 2
14 178
8 178
7 178
voici ce que j'ai commencé à faire ; je ne parviens pas à me servir de
ma variable pour lancer
l'instruction run sql
merci d'avance pour votre aide :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Private Sub recup() 
Dim varElement As Variant 
' selection auto de toutes les données de la zone de liste 
Dim i As Long 
For i = 0 To Me.lst.ListCount - 1 
    Me.lst.Selected(i) = True 
Next i 
' test si sélection effectué dans la liste 
    If lst.ItemsSelected.Count <> 0 Then 
        ' boucle sur les éléments sélectionnés de la liste 
        For Each varElement In lst.ItemsSelected 
            MsgBox lst.Column(0, varElement) 
        Next 
    Else 
        MsgBox "Aucunes sélections." 
    End If 
End Sub

[bvalenza]

Bonjour à tous
j'ai essayé d'avancer un peu mais ça ne marche pas
voici mon nouveau code
pouvez-vous m'aider ? merci d'avance

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
Private Sub Commande25_Click()
Dim varElement As Variant
 
Dim i As Long
Dim j As Integer
 
j = Me.Num_evaluation.Value
 
For i = 0 To Me.lst.ListCount - 1
    Me.lst.Selected(i) = True
Next i
 
    ' test si sélection effectué dans la liste
    If lst.ItemsSelected.Count <> 0 Then
        ' boucle sur les éléments sélectionné de la liste
        For Each varElement In lst.ItemsSelected
            recup = Me.lst.Column(0, varElement)
            strSQL = "INSERT INTO T_CONCERNER(evaluation, capacite) VALUES (""j"", ""&recup&"");"
            MsgBox lst.Column(0, varElement)
 
        Next varElement
    Else
        MsgBox "Aucunes sélections."
    End If
End Sub

[marsouin_89]

Bonsoir,

Je ne vois dans ton code où tu executes ta requête SQL.

Code VBA :

DoCmd.RunSql strSQL

Cordialement

Christophe

[bvalenza]

justement je ne sais pas comment faire

[marsouin_89]

Bonsoir,

Désolé de ne pas t'avoir répondu plus tôt mais il y a quelques jours que je ne suis pas venu visiter le site.

Donc, je n'ai regardé dans le détail ton code faute de temps mais essaie ceci :

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
Private Sub Commande25_Click()
Dim varElement As Variant
 
Dim i As Long
Dim j As Integer
 
j = Me.Num_evaluation.Value
 
For i = 0 To Me.lst.ListCount - 1
    Me.lst.Selected(i) = True
Next i
 
    ' test si sélection effectué dans la liste
    If lst.ItemsSelected.Count <> 0 Then
        ' boucle sur les éléments sélectionné de la liste
        For Each varElement In lst.ItemsSelected
            recup = Me.lst.Column(0, varElement)
            strSQL = "INSERT INTO T_CONCERNER(evaluation, capacite) VALUES (""j"", ""&recup&"");"
Docmd.RunSql strSQL
            MsgBox lst.Column(0, varElement)
 
        Next varElement
    Else
        MsgBox "Aucunes sélections."
    End If
End Sub

Cordialement

Christophe