Zona de lista VBA/Access
Resuelto
saanaa
Mensajes publicados
16
Estado
Miembro
-
harhor -
harhor -
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
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
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.
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, 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
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
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
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
...ver esto
'---Vaciar la zona de la lista
Do While Liste.ListCount > 0
Liste.RemoveItem (0)
Loop
'---