[Resolvido]Substituição de número por letra

Boa Tarde, Senhores


Tenho um sistema voltado a administração de Despachante Documentalista e com essa nova mudança da placa Mercosul estou com um problema.
Preciso de um procedimento para atualização do segundo número da placa de veiculo para uma letra. Por exemplo "KGB0001 atualizar para KGB0A01".


Obrigado...

Caro Amigo,

Crie uma consulta com dados da placa antiga, crie um novo campo: PlacaMercoSul:Esquerda([placaAntiga];4) & "A" & Direita([placaAntiga];2). Teste para ver se é isso que queres. Se correto transforme a consulta em Consulta Atualização. Acho que resolve.

Abraços

Caro Amigo,

Crie um botão e cole o código abaixo:

Dim db As Database
Dim rs As Recordset
Set db = CurrentDb
Dim PlcaNova As String

Set rs = db.OpenRecordset("Select * from SuaTabela")

Do While Not rs.EOF

rs.Edit
PlacaNova = rs![NomeCampodaPlaca]
rs("NomeCampodaPlaca") = Left([PlacaNova], 4) & "A" & Right([PlacaNova], 2)

rs.Update
rs.MoveNext
Loop

rs.Close
db.Close

Assim acho que também funciona.

Abraços

Forma alternativa:

Código:

Call CurrentDb.Execute("update SuaTabela set [CampoPlaca] = left([CampoPlaca], 4) & 'A' & right([CampoPlaca], 2);")

Finformática, como estás buscando aprendizado, aí vai uma dica de boa prática:

Veja isso

Código:

Set rs = db.OpenRecordset("Select * from SuaTabela")

Com o *, isso vai carregar todos os campos da tabela no recordset. Isso é só sobrecarga de memória desnecessariamente. Imagina se a tabela tem 40 campos?

No fim das contas, o procedimento precisa atualizar somente um campo, então é sempre bom carregar só o campo necessário para execução da tarefa.

Assim

Código:

Set rs = db.OpenRecordset("select CampoPlaca from SuaTabela")

Bons estudos.

Grande Damasceno,

Muito grato por mais essa explanação. Mais uma aula com fundamentos absolutos. Sempre prestativo. Muito Obrigado.

Grande Abraço

Caros amigos,

Agradeço muito pelas respostas, mais não e isso que preciso. Preciso que essa alteração seja feita automaticamente via procedimento e não informada pelo usuário.
Quando o usuário informar a placa do veiculo, automaticamente o procedimento substituir o numero pela letra correspondente.

É no formulário? Se sim, no evento após atualizar, coloque:
Me.CompoPlaca = Esquerda([CampoPlaca];4) & "A" & Direita([CampoPlaca];2)

Seria isso?

Caro Mestre Alexandre Fim,

Muito Obrigado era isso mesmo que estava precisando...