Como modificar registro de padre e hijo excel VBA
Para Dante amor
Amigo Dante muy buenas tardes.
¿Cómo realizaría la modificación de los registros padre e hijo?
Tengo pensado que cuando realizo la búsqueda del padre y haga doble clic en el registro, automáticamente le retorne cada uno al textbox y listbox que esta en el Page1(REGISTRO DE PADRES) para modificarlo y guardar.
Si es de otra forma yo sigo sus instrucciones. Muy agradecido Saludos!
Ya le envié el archivo.
1 Respuesta
H o l a:
Te anexo la primera parte para abrir el formulario para editar la información.
En el form de Registro:
Private Sub CommandButton1_Click() 'Por.Dante Amor If ListaEmpresas.ListIndex - 1 Then MsgBox "Selecciona un padre" Exit Sub End If With FrmPadres .dni2 = ListaEmpresas.List(ListaEmpresas.ListIndex, 0) .nom2 = ListaEmpresas.List(ListaEmpresas.ListIndex, 1) .tel2 = ListaEmpresas.List(ListaEmpresas.ListIndex, 2) .dir2 = ListaEmpresas.List(ListaEmpresas.ListIndex, 3) .Show End With End Sub
En el form de padres:
Public dni2, nom2, tel2, dir2 Private Sub CommandButton1_Click() 'Por.Dante Amor End Sub Private Sub UserForm_Activate() 'Por.Dante Amor Label14 = dni2 Label15 = nom2 TxtTelefono = tel2 TxtDireccion = dir2 TxtTelefono.SetFocus End Sub
Hola amigo Dante buenas tardes tengo una pequeña dificultad con el código.
1. Cuando selecciono un padre del listbox y hago clic en "MODIFICAR" me muestra un mensaje "selecciona un padre". solo funciona con un registro de la lista.
2. cuando realizo la búsqueda del padre a través del textbox no funciona ninguno.
Gracias saludos!!
Te anexo la macro actualizada:
Private Sub CommandButton1_Click() 'Por.Dante Amor If ListaEmpresas.ListIndex = -1 Then MsgBox "Selecciona un padre" Exit Sub End If With FrmPadres .dni2 = ListaEmpresas.List(ListaEmpresas.ListIndex, 0) .nom2 = ListaEmpresas.List(ListaEmpresas.ListIndex, 1) .tel2 = ListaEmpresas.List(ListaEmpresas.ListIndex, 2) .dir2 = ListaEmpresas.List(ListaEmpresas.ListIndex, 3) .Show End With End Sub
sal u dos
