Funciones en access

Tengo en un campo de una base de datos un texto separado por comas, necesito separarlo(lo que seria texto en columnas del excel), y no se como, probé con funciones que en el excel andan bien, como encontrar y extrae pero en el access me da el siguiente error, "la función encontrar no esta definida en la expresión", probé también ponerle find, con igual resultado, gracias por su atención.
kike

1 respuesta

1
Respuesta de
Aviso: hoy me voy de vacaciones, por lo que no te podre volver a responder (si es necesario) hasta el 22 de agosto. Aviso2: es un poco largo.
Te digo como lo haría yo:
En la tabla donde quieras guardar esos trozos, crea los 3 nuevos campos. Te creas un formulario con un botón de comando. En ese botón abriremos un recordset que contenga los datos de tu tabla y partiremos el campo. Guardaremos los trozos en cada nuevo campo creado.
Supongamos que:
- La tabla se llamma MiTabla
- El campo original: CampoOriginal
- Los nuevos campos: Campo1, Campo2 y Campo3
En el evento Click del botón:
Private Sub boton_Click()
Dim databs As Object
Dim rst As Object
Dim misql As String
Dim miArray() As String
Set databs = CurrentDb()
misql = "SELECT CampoOriginal, Campo1, Campo2, Campo3 FROM MiTabla;"
Set rst = databs.OpenRecordSet(misql)
If rst.EOF Then
MsgBox "No hay registros!
Else
rst.MoveFirst
While (Not (rst.EOF))
miArray = Split(rst!CampoOriginal & ",", ",")
rst.Edit
rst!Campo1 = miArray(0)
rst!Campo2 = miArray(1)
rst!Campo3 = miArray(2)
rst.Update
rst.MoveNext
Wend
End If
rst.Close
End Sub
Escrito del tirón... pero debería funcionar.
Si no tienes que realizar nunca más este procedimiento, puedes borrar el formulario, pero te recomiendo que lo guardes ya que el código tiene muchas utilidades.
Apuntes:
1. Los experimentos con gaseosa, es decir, con copias.
2. Como te dije, me voy de vacaciones hoy. Si tienes dudas te quedan 2 opciones: esperar al 22/08 o pasarte por el foro de Access (allí soy moderador y te puedo asegurar que alguine te ayudara)
3. Espero te sirva.
Saludos
Xavi
Moderador foro MVP-Access
Añade un comentario a esta respuesta
Añade tu respuesta
Haz clic para o
Escribe tu mensaje