Access - Asignar valores a ListBox con datos de un modulo

 
Vista:
sin imagen de perfil

Asignar valores a ListBox con datos de un modulo

Publicado por omar (5 intervenciones) el 26/06/2024 21:58:06
Buena tarde, busco de su ayuda...

Después de un muy buen rato me considero bloqueado, ahora les menciono el porque:

Utilice un modulo que encontré y adapte a mis necesidades, requiero el valor de conversión en tres tipos de moneda con respecto al peso para colocarlos en un listbox

modulo

El resultado es el que espero

Inmediate-window

Ahora necesito colocar estos valores en un listbox y no encuentro la manera, bueno tengo la idea, pero no me ha sido posible hacerlo correctamente.

¿Pueden por favor asesorarme en como hacerlo?

Agradezco de antemano su ayuda
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

Asignar valores a ListBox con datos de un modulo

Publicado por Anonimo (3397 intervenciones) el 27/06/2024 02:56:11
Lo mas sencillo es que el origen de datos del cuadro de lista sea 'una lista de valores'
(La lista de valores para el ejemplo tiene DOS columnas)

En el código publicado la SubFuncion 'GetValues' se cambia a FUNCION y se añade al final 'As String'
(las subfunciones no retornan datos, las funciones si)

En lugar de enviar los datos a la ventana de inmediato, generaremos una lista que es lo que retornara la función.

Quedará así:
Antes:
1
Public Sub GetValues()

Después:
1
Public Function GetValues() As String

Antes:
1
2
3
For i = LBound(rates) To UBound(rates)
    Debug.Print rates(i) & ":" & GetRate(jsonText, rates(i))
    Next i

Después:
1
2
3
4
For i = LBound(rates) To UBound(rates)
    If GetValues <> "" Then GetValues = GetValues & ";"
    GetValues = GetValues & rates(i) & ";" & GetRate(jsonText, rates(i))
    Next i


Suponiendo que el cuadro de lista se rellenase con el click de un botón (en el ejemplo 'Rellena')

1
2
3
Private Sub Rellena_Click()
Me.[el cuadro de lista].RowSource = GetValues()
End Sub
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
1
Comentar
sin imagen de perfil

Asignar valores a ListBox con datos de un modulo

Publicado por omar (5 intervenciones) el 27/06/2024 15:09:07
Buen día,

Agradezco tu respuesta, fue muy útil ya que solo tuve que hacer pequeñas adecuaciones al listbox.

Doy por cerrado el hilo
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar