Ver originales (Francés)

Zona de lista VBA/Access

Resuelto
saanaa -  
Hola a todos

busco ayuda para VBA/Access
en realidad quiero a partir de una lista desplegable elegir elementos haciendo clic en el elemento elegido, mostrarlos en otra lista y recuperarlos.

gracias a todos
Configuración: Windows XP Internet Explorer 7.0

8 respuestas

  2. Archi-dessin
    hola,
    presenta tu ejemplo para saber más
    0
    1. Milou2211
      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.
      1
      1. harhor
        esta respuesta no es correcta
        ...ver esto
        '---Vaciar la zona de la lista
        Do While Liste.ListCount > 0
        Liste.RemoveItem (0)
        Loop
        '---
        0
    2. saanaa Autor
      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
      1
      2. Archi-dessin
        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
        0
        1. saanaa Autor
          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
          1
          2. Archi-dessin
            pou corriher la ligne Liste2.AddItem Item:=Liste0, Index:=0

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