Dividir un campo separado por comas
Tengo una tabla en Access en la que uno de los campos se compone de apellidos y nombre. El nombre separado por comas. Ejemplo: "Sánchez Ruiz, Luisa". Desearía hacer dos campos, uno de apellidos y otro con el nombre. ¿Sabéis qué instrucción debe usarse?
1 Respuesta
Respuesta de palarmun
1
Debes crear dos tablas
Nombres --> que tenga el cambo nombre (apellido, nombre)
Nombres1 -->sin datos y con dos campos nombre -apellido
Private Sub Comando0_Click()
Dim Base As Database
Dim Tabla As Recordset
Dim nom As String
Dim MisClases As New Collection
Dim MisObjetos As Object
Set Base = DBEngine.Workspaces(0).Databases(0)
Set Tabla = Base.OpenRecordset("nombres", DB_OPEN_DYNASET)
Tabla.MoveFirst
If Tabla.NoMatch Then
MsgBox "no sigue"
End If
While Tabla.EOF = False
num = num + 1
nom = Tabla!Nombre
MisClases.Add Item:=nom, Key:=CStr(num)
Tabla.MoveNext
Wend
Tabla.Close
Set Tabla = Base.OpenRecordset("Nombres1", DB_OPEN_DYNASET)
On Error Resume Next
For Each MiObjeto In MisClases
Tabla.AddNew
Tabla!Nombre = Mid(MiObjeto, InStr(MiObjeto, ",") + 2)
Tabla!apellido = Mid(MiObjeto, 1, InStr(MiObjeto, ",") - 1)
Tabla.Update
Next MiObjeto
Tabla. Close
Base. Close
End Sub
Espero que te sirva ya que me sforcé demasiado para hacerlo
Nombres --> que tenga el cambo nombre (apellido, nombre)
Nombres1 -->sin datos y con dos campos nombre -apellido
Private Sub Comando0_Click()
Dim Base As Database
Dim Tabla As Recordset
Dim nom As String
Dim MisClases As New Collection
Dim MisObjetos As Object
Set Base = DBEngine.Workspaces(0).Databases(0)
Set Tabla = Base.OpenRecordset("nombres", DB_OPEN_DYNASET)
Tabla.MoveFirst
If Tabla.NoMatch Then
MsgBox "no sigue"
End If
While Tabla.EOF = False
num = num + 1
nom = Tabla!Nombre
MisClases.Add Item:=nom, Key:=CStr(num)
Tabla.MoveNext
Wend
Tabla.Close
Set Tabla = Base.OpenRecordset("Nombres1", DB_OPEN_DYNASET)
On Error Resume Next
For Each MiObjeto In MisClases
Tabla.AddNew
Tabla!Nombre = Mid(MiObjeto, InStr(MiObjeto, ",") + 2)
Tabla!apellido = Mid(MiObjeto, 1, InStr(MiObjeto, ",") - 1)
Tabla.Update
Next MiObjeto
Tabla. Close
Base. Close
End Sub
Espero que te sirva ya que me sforcé demasiado para hacerlo
