Zona de lista VBA/Access

pou corriher la ligne Liste2.AddItem Item:=Liste0, Index:=0

par: List2.AddItem Item:=List1.List(0)

pero list0 no contiene datos

en click list1:
Liste2.AddItem Item:=Liste0, Index:=0

de hecho el "clic lista1" es el clic en la primera lista su nombre: Liste0 , Liste2 es el nombre de la segunda lista

en click liste1:

Liste2.AddItem Item:=Liste0, Index:=0
dans click liste2:

dans cette partie, absence de chargement dans la liste LIST1 en plus Liste0 n'existe pas

Hola, para ts
lo siento, tuve problemas de conexión así que no pude responderles, y afortunadamente resolví mi problema ayer
tengo 2 listas:
en click lista1:

Liste2.AddItem Item:=Liste0, Index:=0
en click lista2:

Dim a As Integer
a = Liste2.ListIndex
If a >= 0 Then Liste2.RemoveItem a '''''' queremos eliminar el elemento de la segunda lista

y para recuperar los datos de la segunda lista y buscar el valor correspondiente en una tabla y almacenarlo :

Dim res, res1 As Recordset
Dim i As Integer
Dim didi, REQSQL, REQSQL1, a As String
ReDim TIdMuf(0 To Liste0.ListCount) As Integer
For i = 0 To Me.Liste2.ListCount - 1
a = Me.Liste2.Column(0, i)
a = "'" & a & "'"
REQSQL = "SELECT IDMUF,NUMPROMESS,DATEPROMESSE,MATRICULE FROM PROMESSE WHERE MATRICULE=" & a & " "
Set db = CurrentDb()
Set res = db.OpenRecordset(REQSQL)
TIdMuf(i) = res.Fields(0).Value
Next i

Pero ahora tengo otro problema: quiero mostrar el resultado de la consulta en una matriz.
pude almacenarlo en una tabla pero no pude mostrarlo.
Gracias
para TheMan: wi ana hiya dayra abonement m3a vba/access had l'été lol

Buenas noches,

Aquí una parte de la respuesta: Los elementos seleccionados en la lista 1 se envían a la lista 2 en el evento de tu elección
---------------1. Vaciar la lista 2----
Private Sub vider_liste2()
Dim x As Integer
If Me.Liste2.ListCount > 0 Then
For x = 1 To Me.Liste2.ListCount
Me.Liste2.RemoveItem (x)
Next x
End If
End Sub

---------------2. Alimentar lista 2---------
Private Sub charge_liste2()
If Me.liste1.ItemsSelected.Count > 0 Then
Me.Liste2.AddItem Me.liste1.Column(1)
End If
End Sub

Faltan controles para evitar duplicados, pero espero que esto te sirva.

Buena continuación.

hola,
presenta tu ejemplo para saber más

¿Eres tú esto?