partir un campo

[MikiBroki]

Puedes hacerlo creando previamente los 3 campos, y luego programas un módulo (en vbA) recorres cada registro, recortas la cadena y la vas guardando en cada campo, una cosa así:

Código:

Dim rs As New ADODB.Recordset
Dim sql

rs.Open "select [REF ACTUAL],[REF NUEVA],[REG INTERNO],[OBSERVACIONES] from AGAETE", CurrentProject.Connection, adOpenDynamic, adLockBatchOptimistic


While Not rs.EOF
  
    'Separar la REFERENCIA ACTUAL en UTM y PLANO
    If (rs.Fields("REF ACTUAL") <> "") Then
    
        sql = "UPDATE AGAETE SET Referencia_Actual_UTM = '" & Mid(rs.Fields("REF ACTUAL"), 1, 7) & "' WHERE [REF ACTUAL] = '" & rs.Fields("REF ACTUAL") & "'"
        CurrentProject.Connection.Execute sql
        
        sql = "UPDATE AGAETE SET Referencia_Actual_Plano = '" & Mid(rs.Fields("REF ACTUAL"), 8, 7) & "' WHERE [REF ACTUAL] = '" & rs.Fields("REF ACTUAL") & "'"
        CurrentProject.Connection.Execute sql
                
    End If