Seleccionar coincidencia de un listbox y modificar
Para Dante Amor
Tengo una base de datos que al hacer una consulta muestra en un listbox las coincidencias encontradas. El siguiente paso sería poder seleccionar una de las coincidencias, que muestre todos sus campos y que permita modificarlos.
¿Me ayudas con esto?
Te envío el archivo por email :)
1 Respuesta
Respuesta de Dante Amor
1
H o l a:
Te anexo las macros para seleccionar un registro, modificarlo y pasar las modificaciones a la hoja:
Sub PasarDatos(hoja, fila) 'Por.Dante Amor Sheets(hoja).Cells(fila, "A") = tb_centro Sheets(hoja).Cells(fila, "B") = tb_alta Sheets(hoja).Cells(fila, "C") = TextBox1 Sheets(hoja).Cells(fila, "D") = tb_nombre Sheets(hoja).Cells(fila, "E") = tb_apellido1 Sheets(hoja).Cells(fila, "F") = tb_apellido2 Sheets(hoja).Cells(fila, "G") = tb_edad Sheets(hoja).Cells(fila, "H") = tb_nif Sheets(hoja).Cells(fila, "I") = tb_telefono Sheets(hoja).Cells(fila, "J") = tb_email Sheets(hoja).Cells(fila, "K") = tb_facebook For Each ctrl In Me.Controls If TypeName(ctrl) = "TextBox" Then ctrl.Value = "" Next ListBox1.RowSource = "" Label1 = "" Label2 = "" tb_alta = Date MsgBox "Cliente Modificado" End Sub ' Private Sub CommandButton2_Click() 'Por.Dante Amor 'Modificar If Label1 = "" Or Label2 = "" Then MsgBox "Debes seleccionar un registro de la lista" Exit Sub End If If tb_centro <> Label1 Then MsgBox "No puedes cambiar el centro" tb_centro.SetFocus Exit Sub End If ' Call PasarDatos(Label1.Caption, Val(Label2.Caption)) End Sub ' Private Sub ListBox1_Click() 'Seleccionar cliente tb_centro = ListBox1.List(ListBox1.ListIndex, 0) tb_alta = ListBox1.List(ListBox1.ListIndex, 1) TextBox1 = ListBox1.List(ListBox1.ListIndex, 2) tb_nombre = ListBox1.List(ListBox1.ListIndex, 3) tb_apellido1 = ListBox1.List(ListBox1.ListIndex, 4) tb_apellido2 = ListBox1.List(ListBox1.ListIndex, 5) tb_edad = ListBox1.List(ListBox1.ListIndex, 6) tb_nif = ListBox1.List(ListBox1.ListIndex, 7) tb_telefono = ListBox1.List(ListBox1.ListIndex, 8) tb_email = ListBox1.List(ListBox1.ListIndex, 9) tb_facebook = ListBox1.List(ListBox1.ListIndex, 10) Label1 = ListBox1.List(ListBox1.ListIndex, 11) Label2 = ListBox1.List(ListBox1.ListIndex, 12) End Sub
' : ) 'S aludos. Dante Amor. Recuerda valorar la respuesta. G racias ' : )
