[Resolvido]UpDate / Replace

Boa noite

O campo contém dados de placas de carro: BGX 0989

Preciso remover, de todos os registro, o espaço entre as letras e os número: BGX0989

Tentei assim:
CurrentDb.Execute "UPDATE Motorista SET Motorista.Placa = Replace([Placa]," ", "");"

E assim:
Dim rs As Recordset
Set rs = CurrentDb.OpenRecordset("Motorista")
Do While Not rs.EOF
rs.Edit
rs!Placa = Replace(rs!Placa, " ", "")
rs.Update
rs.MoveNext
Loop
rs.Close
Set rs = Nothing

Não funcionou.

Peço ajuda aos amigos

Obrigado

Aparece alguma mensagem de erro? Se sim, depura para qual linha?

Olá, Criquio.
Como vai? Espero que bem.

Erro: uso de nullo.

Depois de quebrar a cabeça, resolvi com TRIM.

Ficou assim: CurrentDb.Execute "UPDATE Motorista SET Motorista.Placa = Trim([Placa]);"


Abraços

Certo. Acredito que poderia ser resolvido assim tambem:

Código:

CurrentDb.Execute "UPDATE Motorista SET Motorista.Placa = Replace([Placa]," ", "") WHERE Not IsNull([Placa]);"

ou assim usando o Recordset:

Código:

Do While Not rs.EOF
    If rs!Placa <> "" Then
        rs.Edit
        rs!Placa = Replace(rs!Placa, " ", "")
        rs.Update
    End If
    rs.MoveNext
Loop

Ou, para o Recordset, melhor ainda filtrar os não nulos antes de fazer o Loop. Melhor porque não passa pelos registros nulos e, portanto, deve ficar mais rápido:

Código:

Set rs = CurrentDb.OpenRecordset("SELECT * FROM Motorista WHERE Not IsNull(Placa)")

São algumas maneiras de se fazer a mesma coisa. Mas se está resolvido, resolvido está, como diria alguem que não sei quem