UniversoExcelForo

Respuesta a consultas.
Fecha de creación: 09.Abril.2012

Fundadores: Wibly,Tyno,Servando,Sakkar,Rosendo2,RMaximo,Railar,Mcoronel,Ioyama,Igtelo,Hugotron,Drochar,Dedos,Alberto,Adolfo

A partir del 25 de Enero del 2019 para entrar al foro será con la URL: excel.foroactivo.com Ya se notificó vía e-mail a todos los miembros. Administración UniversoExcelForo. 20-Ene-2019.

No estás conectado. Conéctate o registrate

Ver el tema anterior Ver el tema siguiente Ir abajo  Mensaje [Página 1 de 1.]

susania


Buenas tardes:

  Tengo un formulario que filtra los datos en un listbox (ENTIDADES).Lo que necesito es que al seleccionar un registro filtrado lo traslade a otro formulario (MODIFICAR ENTIDADES) para modificar los datos y guardarlos.

  El problema que tengo es que no traslada el registro seleccionado al formulario MODIFICAR ENTIDADES para poder realizar las modificaciones oportunas y guardarlas.

   Os paso enlace a ver si alguien me puede echar una mano.

ttps://drive.google.com/open?id=1Ir2Q_y9NvXUHeUJzb1AvHxPpz2GN_7dN

   Gracias!!

jhon1904

jhon1904
hola susania

el link que colocas, no funciona revisalo.


saludos,


_________________
Jhon Mayorquin
https://www.facebook.com/groups/1908894496046888/

susania


Buenas tardes:

   Pongo el link de nuevo a ver si funciona.


https://drive.google.com/open?id=1Ot1q3KW9J0j-VJw6z7VxR-FN_ZN2fLE5

   Gracias!!

jhon1904

jhon1904
Hola susania

Utiliza este código en el botón que utilizar para llamar el formulario de modificar entidades, espero sea lo que buscas.


Código:
If ListBox1.ListIndex = -1 Then: MsgBox ("No ha seleccionado la entidad a modificar"): Exit Sub

With MODIFICAR_ENTIDADES
    .TextBoxid = ListBox1.Column(0)
    .TextBoxentidad = ListBox1.Column(1)
    .TextBoxconcejalia = ListBox1.Column(2)
    .ComboBoxorganismo = ListBox1.Column(3)
    .ComboBoxnaturaleza = ListBox1.Column(4)
    .ComboBoxtipovia = ListBox1.Column(5)
    .TextBoxnombrevia = ListBox1.Column(6)
    .TextBoxnumero = ListBox1.Column(7)
    .TextBoxplanta = ListBox1.Column(8)
    .TextBoxletra = ListBox1.Column(9)
    .TextBoxpostal = ListBox1.Column(10)
    .ComboBoxlocalidad = ListBox1.Column(11)
    .ComboBoxprovincia = ListBox1.Column(12)
    .TextBoxfijo = ListBox1.Column(13)
    .TextBoxfijo1 = ListBox1.Column(14)
    .TextBoxext = ListBox1.Column(15)
    .TextBoxfax = ListBox1.Column(16)
    .TextBoxmovil1 = ListBox1.Column(17)
    .TextBoxmovil2 = ListBox1.Column(18)
    .TextBoxtecnico = ListBox1.Column(19)
    .TextBoxcorreo1 = ListBox1.Column(20)
  .TextBoxcorreo2 = ListBox1.Column(21)
End With

MODIFICAR_ENTIDADES.Show

saludos,


_________________
Jhon Mayorquin
https://www.facebook.com/groups/1908894496046888/

susania


Buenas tardes John

Funciona perfectamente y es lo que necesitaba!!

Ahora tengo el problema siguiente: una vez que pasa los datos al formulario MODIFICAR_ENTIDADES para modificar el dato que sea no me graba ningún cambio ni modificación en la tabla cuando lo hago. No sé si hay un error en el código que tengo puesto... imagino que sí.

Te paso nuevo enlace (he hecho varios cambios y he añadido más cosas) por si puedes echarle un vistazo y echarme nuevamente una mano....

https://drive.google.com/open?id=1fQ8e2ZcRRvLFmTdGlsQMFG9zhR528yqi

Muchísimas gracias por tu ayuda!!!

Un cordial saludo.

jhon1904

jhon1904
Buen dia
Susania

Prueba con este código haber si te funciona.

Código:
Set DATOS = Selection
Dim fila As Integer
With ENTIDADES
fila = 0
  fila = Range("A:A").Find(TextBoxid, LookAt:=xlWhole).Row
    Cells(fila, 1) = TextBoxid.Text
    Cells(fila, 2) = TextBoxentidad.Text
    Cells(fila, 3) = TextBoxconcejalia.Text
    Cells(fila, 4) = ComboBoxorganismo.Value
    Cells(fila, 5) = ComboBoxnaturaleza.Value
    Cells(fila, 6) = ComboBoxtipovia.Value
    Cells(fila, 7) = TextBoxnombrevia.Text
    Cells(fila, 8) = TextBoxnumero.Text
    Cells(fila, 9) = TextBoxplanta.Text
    Cells(fila, 10) = TextBoxletra.Text
    Cells(fila, 11) = TextBoxpostal.Value
    Cells(fila, 12) = ComboBoxlocalidad.Value
    Cells(fila, 13) = ComboBoxprovincia.Value
    Cells(fila, 14) = TextBoxfijo.Text
    Cells(fila, 15) = TextBoxfijo1.Text
    Cells(fila, 16) = TextBoxext.Text
    Cells(fila, 17) = TextBoxfax.Value
    Cells(fila, 18) = TextBoxmovil1.Text
    Cells(fila, 19) = TextBoxmovil2.Text
    Cells(fila, 20) = TextBoxtecnico.Text
    Cells(fila, 21) = TextBoxcorreo1.Text
    Cells(fila, 22) = TextBoxcorreo2.Text
    Cells(fila, 23) = TextBoxobservaciones.Text
End With


saludos,


_________________
Jhon Mayorquin
https://www.facebook.com/groups/1908894496046888/

Contenido patrocinado


Ver el tema anterior Ver el tema siguiente Volver arriba  Mensaje [Página 1 de 1.]

Permisos de este foro:
No puedes responder a temas en este foro.