Imprimir página | Cerrar ventana

Asignar a textbox valor columna 0 de listbox

Impreso de: Foro de Access y VBA
Categoría: Access y VBA
Nombre del foro: Access y VBA
Descripción del foro: Foro de programacion en Access (Con código y sin código)
URL: http://www.mvp-access.com/foro/forum_posts.asp?TID=86882
Fecha de impresión: 26/Marzo/2026 a las 20:58


Tema: Asignar a textbox valor columna 0 de listbox
Publicado por: marioboss
Asunto: Asignar a textbox valor columna 0 de listbox
Fecha de publicación: 06/Marzo/2024 a las 13:49
Buenos días!

Vuelvo al mundillo de VBA y Access y me ha surgido una duda que, seguro que es simple, pero no doy con ello:

Quiero asignar a un textbox (TxtNombre) el valor de la columna 0 de un registro que he seleccionado de un listbox (List1).

He escrito esta línea de código, pero al ejecutar el formulario, en el textbox me aparece #Nombre?

Me.TxtNombre.ControlSource = "SELECT [Personal].[Nombre] FROM Personal WHERE (([Personal].[Usuario]) = '" & Me.List1.Column(0) & "')"

No consigo hallar el problema...

Muchas gracias de antemano por vuestra ayuda!

-------------
"Solo hay dos cosas infinitas en la vida, una el universo y la otra la estupidez de los humanos, aunque de la primera no estoy seguro del todo."Albert Einstein.Saludos a todos los foreros.



Respuestas:
Publicado por: Mihura
Fecha de publicación: 06/Marzo/2024 a las 15:14
Si es un TextBox no le puedes asignar una SELECT como Source, eso sólo vale para un ComboBox o un ListBox.

-------------
Jesús Mansilla Castells.
Saludos desde Móstoles.

http://www.accessaplicaciones.com" rel="nofollow - Access Aplicaciones
http://www.tecsys.es" rel="nofollow - Tecsys.es


Publicado por: marioboss
Fecha de publicación: 12/Marzo/2024 a las 14:06
Muchas gracias por la respuesta, Jesús.
Por este lado, todo claro.
Finalmente, lo he resuelto así:

Me.TxtNombre = DLookup("[Nombre]", "Personal", "[Usuario] = '" & Me.List1.Column(0) & "'")

Muchas gracias de nuevo y se puede cerrar el hilo.

-------------
"Solo hay dos cosas infinitas en la vida, una el universo y la otra la estupidez de los humanos, aunque de la primera no estoy seguro del todo."Albert Einstein.Saludos a todos los foreros.



Imprimir página | Cerrar ventana