** NORMAS DEL FORO **
Inicio del foro Inicio del foro > Access y VBA > Access y VBA
  Mensajes nuevos Mensajes nuevos RSS - Problema a la hora de usar split
  Preguntas frecuentes Preguntas frecuentes  Buscar en el foro   Eventos   Registro Registro  Iniciar sesion Iniciar sesion

Problema a la hora de usar split

 Responder Responder
Autor
Mensaje
Darkness C Ver desplegable
Nuevo
Nuevo
Avatar

Unido: 07/Abril/2019
Localización: Madrid
Estado: Sin conexión
Puntos: 3
Opciones de entrada Opciones de entrada   Gracias (0) Gracias(0)   Cita Darkness C Cita  ResponderRespuesta Enlace directo a este mensaje Tema: Problema a la hora de usar split
    Enviado: 07/Abril/2019 a las 22:09
Buenas noches a todos:
He creado un formulario con un listbox en el que recojo por medio de una sentencia sql el nombre y apellido y al marcar un checkbox cambia el estado en la propia tabla.

Por el momento estoy tratando que al seleccionar varios nombres, pueda separar el nombre del apellido.
Esto es lo que tengo por el momento, (que no es mucho)
 
Dim Nombre As Variant
 Dim Nombres As String
 separa As String
    
 
 
    For Each Nombre In lstDatos.ItemsSelected
    
        
        Nombres = lstDatos.ItemData(Nombre)
       
          
          separa = Split(temp, "", , vbTextCompare)
          MsgBox separa
        Next Nombre

La idea es poder separar los nombres de los apellidos, para después al macar un chekbox, cambie el estado inactivo a activo y que aparezca como tal en la tabla de la que proceden. El problema es que según lo hice me ponía el nombre y apellido en el campo nombre de la tabla. De ahí mi intención de poder realizar dicha separación.


Gracias una vez más
Arriba
lbauluz Ver desplegable
Administrador
Administrador
Avatar

Unido: 29/Marzo/2005
Localización: Binghamton NY.
Estado: Sin conexión
Puntos: 3431
Opciones de entrada Opciones de entrada   Gracias (0) Gracias(0)   Cita lbauluz Cita  ResponderRespuesta Enlace directo a este mensaje Enviado: 08/Abril/2019 a las 00:07
A ojo y sin probar
Define separa, no está definido y además está mal.

Dim separa() as string

Luego
 separa = Split(temp, "", , vbTextCompare)

no tienes definido temp, y debería ser algo como 

separa = Split(Nombres, ",", , vbTextCompare)


Y por último
msgbox separa(0) 

Un saludo.

Luis


Editado por lbauluz - 08/Abril/2019 a las 00:07
El Búho es mi ídolo caido
Arriba
Darkness C Ver desplegable
Nuevo
Nuevo
Avatar

Unido: 07/Abril/2019
Localización: Madrid
Estado: Sin conexión
Puntos: 3
Opciones de entrada Opciones de entrada   Gracias (0) Gracias(0)   Cita Darkness C Cita  ResponderRespuesta Enlace directo a este mensaje Enviado: 08/Abril/2019 a las 00:13
Muchas gracias Luis.
Probaré y ya os comentaré
Arriba
 Responder Responder
  Compartir tema   

Ir al foro Permisos de foro Ver desplegable