Tomar datos de listbox a textbox, actualizarlos y guardarlos nuevamente
Tengo una macro con un formulario de búsqueda, dicha búsqueda la arroja en un listbox, al seleccionar un elemento del listbox y picar en un botón "Modificar" me carga un nuevo formulario con todos los datos concernientes al listbox seleccionado, mi problema esta en que luego de tener los datos en el nuevo formulario y hacerles las respectivas modificaciones... No se como hacer para que me actualice los datos en la base de datos, justo en el listbox que tenia seleccionado...
Este es el código que tengo para que me traiga los datos del formulario búsqueda al formulario actualizar
Private Sub UserForm_Initialize() With Formulario_BuscarRegistro.ListBoxRESULTADOS If .ListIndex > -1 Then TextBoxIDENTIFICACION = .List(.ListIndex, 0) TextBoxP_NOMBRE = .List(.ListIndex, 1) TextBoxS_NOMBRE = .List(.ListIndex, 2) TextBoxP_APELLIDO = .List(.ListIndex, 3) TextBoxS_APELLIDO = .List(.ListIndex, 4) TextBoxNoCAJA = .List(.ListIndex, 5) TextBoxOBSERVACIONES = .List(.ListIndex, 6) End If End With End Sub
Pero no se como hacer ahora para que luego de cambiados los datos, actualizarlos en la base de datos...
1 respuesta
Tengo que revisar cómo estás cargando los datos en el listbox.
Envíame tu archivo y me dices cómo funciona tu formulario de búsqueda.
Mi correo [email protected]
En el asunto del correo escribe tu nombre de usuario “Ruthless Zerstörer” y el título de esta pregunta.
S a l u d o s . D a n t e A m o r
Dante Amor ya te envíe el mensaje...
Te anexo el código para actualizar la base de datos
Private Sub C_ButtonActualizarCampos_Click() 'Por.Dante Amor f = ActiveCell.Row Cells(f, "A") = TextBoxIDENTIFICACION Cells(f, "B") = TextBoxP_NOMBRE Cells(f, "C") = TextBoxS_NOMBRE Cells(f, "D") = TextBoxP_APELLIDO Cells(f, "E") = TextBoxS_APELLIDO Cells(f, "F") = TextBoxNoCAJA Cells(f, "G") = TextBoxOBSERVACIONES End Sub
S a l u d o s . D a n t e A m o r
Recuerda valorar la respuesta.
