[Resolvido]Updata por vba em toda tabela.

Amigos,

No link abaixo eu tenho o código para separar string em tabela.

Link: https://www.dropbox.com/s/ccb1g13web194j7/BD%20Teste.accdb?dl=0

On Error Resume Next
Dim nEspaco As String
Dim strTextoEsq As String
Dim strTextoDir As String
Dim intPos As String
Dim rs As Recordset
nEspaco = Campo12
intPos = InStr(nEspaco, " ") 'Localiza a string a partir do primeiro caracter
strTextoEsq = left(nEspaco, intPos - 1) 'Esquerda do espaço
strTextoDir = right(nEspaco, Len(nEspaco) - intPos) 'Direita do espaço

Set rs = CurrentDb.OpenRecordset("Select * from tblCedocFichaMV where Identificação =" & Me.Identificação, dbOpenDynaset)

Do Until rs.EOF
rs.Edit
rs.Fields("Campo12").Value = strTextoEsq
rs.Fields("Campo25").Value = strTextoDir
rs.Update
rs.MoveNext
Loop
rs.Close
Set rs = Nothing

Minha dúvida é a seguinte: Como separar os registros de toda a tabela por vba? pois código que tenho ele somente separa um a um.

Ou seja, tenho 118 registros na tabela, não seria viável eu clicar 118 vezes para separar o que a esquerda e a direita do espaço.

Alguém tem uma dica para sugerir?

Código:

Option Compare Database
Dim xMax As Integer 'Variável captura o último registro da tabela

Private Sub Comando9_Click()
On Error Resume Next
If Me.Identificação <= xMax Then: Call Processar

End Sub

Private Sub Form_Load()
xMax = DMax("Identificação", "tblCedocFichaMV") 'último registro da tabela
End Sub

Sub Processar()
Dim nEspaco As String
Dim strTextoEsq As String
Dim strTextoDir As String
Dim intPos As String
Dim rs As Recordset
nEspaco = Campo12
intPos = InStr(nEspaco, " ") 'Localiza a string a partir do primeiro caracter
strTextoEsq = left(nEspaco, intPos - 1) 'Esquerda do espaço
strTextoDir = right(nEspaco, Len(nEspaco) - intPos) 'Direita do espaço

Set rs = CurrentDb.OpenRecordset("Select * from tblCedocFichaMV where Identificação =" & Me.Identificação, dbOpenDynaset)
   
Do Until rs.EOF
    rs.Edit
    rs.Fields("Campo12").Value = strTextoEsq
    rs.Fields("Campo25").Value = strTextoDir
    rs.Update
    rs.MoveNext
  Loop
    rs.Close
    Set rs = Nothing
Me.Refresh

If Me.Identificação = xMax Then: Call Comando9_Click: Exit Sub
DoCmd.GoToRecord , , acNext
Call Comando9_Click

End Sub


Funciona perfeitamente assim ...
Observação: Se for rotina terás que criar um campo sim/não na tabela para flag dos registros processados e a partir daí criar o critério no VBA para processar apenas os registros com valor = 0


Abraços,

Perfeito amigo.

Nota 10!
Era isso mesmo que precisava.

Reabrindo apenas para uma pequena curiosidade que me surgiu hoje.
Como salvar em um módulo e chamar?

.