Llenar un control cuadro de Lista

   Muy bien día a todos, muy respetuosamente mente vengo a pedirles por favor me ayuden necesito cargar un control de cuadro de lista llamado lsvMaterias, con los datos que tengo en una tabla llamada TablaDetalleLaboral, mediante una consulta lo he logrado, pero quiero hacerlo por código Vba, para ello tengo este código, el cual no carga los datos.
estoy seguro que hay datos estoy seguro que el dato por el que deseo buscar se encuentra en la tabla, porque los he podido visualizar mediante un mensaje cada registro, ya que son dos registros, pero no puedo visualizar en el control cuadro de lista llamado lsvMaterias.aquí el código que tengo:
 Private Sub CargarDetalleLaboralAModificar()
    Dim db As DAO.Database
    Dim rs As DAO.Recordset
    Dim strSQL As String
    Dim ciBuscar As Long

    Set db = CurrentDb
    ciBuscar = Val(Me.txtCIPersonaLaboral.Value) ' Obtener el ID de búsqueda desde el control txtCIPersonaLaboral
    strSQL = "SELECT * FROM TablaDetalleLaboral WHERE IdCedulaIdentidad = " & ciBuscar ' Construir la consulta SQL
    Set rs = db.OpenRecordset(strSQL)

    Me.lsvMaterias.RowSource = "" ' Limpia la fuente de datos actual
    Set Me.lsvMaterias.Recordset = rs ' Asigna el recordset al control lsvMaterias

    rs.Close
    'Set rs = Nothing
    Set db = Nothing
End Sub

por favor ayudenme a encontrar la solución
una solucion que encontre fue crear una consulta y en origen de la fila seleccione mi consulta y sí efectivamente se cargan los datos, pero tampoco se como llamar a la consulta desde un boton, porque tengo un cuadro de texto para llenar el valor a buscar, y hacer clic en el boton para se cargue pero tampoco puedo hacer, por favor ayuda con este problema para mi.
gracias
Roberto

Autor	Mensaje Tema Buscar Opciones del Tema Responder Crear un nuevo tema Versión imprimible Traducir Tema
RobertoCarlos Ver perfil usuario Enviar mensaje privado Ver los mensajes del usuario Añadir a la lista de amigos Habitual Unido: 12/Marzo/2013 Localización: Bolivia Estado: Sin conexión Puntos: 168	Tema: Llenar un control cuadro de Lista Enviado: 28/Agosto/2023 a las 19:07
	Muy bien día a todos, muy respetuosamente mente vengo a pedirles por favor me ayuden necesito cargar un control de cuadro de lista llamado lsvMaterias, con los datos que tengo en una tabla llamada TablaDetalleLaboral, mediante una consulta lo he logrado, pero quiero hacerlo por código Vba, para ello tengo este código, el cual no carga los datos. estoy seguro que hay datos estoy seguro que el dato por el que deseo buscar se encuentra en la tabla, porque los he podido visualizar mediante un mensaje cada registro, ya que son dos registros, pero no puedo visualizar en el control cuadro de lista llamado lsvMaterias. aquí el código que tengo: Private Sub CargarDetalleLaboralAModificar() Dim db As DAO.Database Dim rs As DAO.Recordset Dim strSQL As String Dim ciBuscar As Long Set db = CurrentDb ciBuscar = Val(Me.txtCIPersonaLaboral.Value) ' Obtener el ID de búsqueda desde el control txtCIPersonaLaboral strSQL = "SELECT * FROM TablaDetalleLaboral WHERE IdCedulaIdentidad = " & ciBuscar ' Construir la consulta SQL Set rs = db.OpenRecordset(strSQL) Me.lsvMaterias.RowSource = "" ' Limpia la fuente de datos actual Set Me.lsvMaterias.Recordset = rs ' Asigna el recordset al control lsvMaterias rs.Close 'Set rs = Nothing Set db = Nothing End Sub por favor ayudenme a encontrar la solución una solucion que encontre fue crear una consulta y en origen de la fila seleccione mi consulta y sí efectivamente se cargan los datos, pero tampoco se como llamar a la consulta desde un boton, porque tengo un cuadro de texto para llenar el valor a buscar, y hacer clic en el boton para se cargue pero tampoco puedo hacer, por favor ayuda con este problema para mi. gracias Roberto
	Roberto

xavi Ver perfil usuario Enviar mensaje privado Ver los mensajes del usuario Visite la página de los usuarios Añadir a la lista de amigos Administrador Terrassa-BCN Unido: 10/Mayo/2005 Localización: Catalunya \|\|\|\| Estado: Sin conexión Puntos: 14926	Respuesta Enviado: 28/Agosto/2023 a las 19:50
	Hola, Creo que matas moscas a cañonazos... y te sobra mucho código. Basta con asignar la cadena SQL a la propiedad RowSource del ListBox (que tendrá como tipo Tabla/Consulta). Con esta línea de código (escrita al vuelo) podría funcionar: Me!lsvMaterias.RowSource = "SELECT * FROM TablaDetalleLaboral WHERE IdCedulaIdentidad = " & Me!txtCIPersonaLaboral Para mi, todo lo demás sobra Un saludo
	Xavi, un minyó de Terrassa Mi web

RobertoCarlos Ver perfil usuario Enviar mensaje privado Ver los mensajes del usuario Añadir a la lista de amigos Habitual Unido: 12/Marzo/2013 Localización: Bolivia Estado: Sin conexión Puntos: 168	Enviado: 28/Agosto/2023 a las 20:45
	Sí, la verdad que estaba matando moscas con dinamita, pero ya no lo haré gracias a tu ayuda. muchisimas gracias. esta era la respuesta: Me!lsvMaterias.RowSource = "SELECT * FROM TablaDetalleLaboral WHERE IdCedulaIdentidad = " & Me!txtCIPersonaLaboral he podido solicionar mi problema, el código de arriba fue la solución por favor, pueden marcar como respuesta correcta y cerrar el hilo de la pregunta. Gracias
	Roberto