Localizar e Substituir em consulta

Pessoal,

Tenho uma tabela do Access que contém um campo com o nome de empresas. Ocorre que algumas dessas empresas possuem um código e, então, o nome delas no campo fica assim: Nome da empresa - 09872514.

Gostaria de saber como faço para, numa consulta, eliminar tudo o que está depois do traço.

No Excel eu iria localizar a posição do "-" e eliminar daquele ponto em diante. Mas no Access não consegui fazer isto e não sei como eliminar estes códigos.

Se alguém puder ajudar.


Obrigado.

Att,

Helcio Gomes
Betim / MG
www.esperanca.com.br

E na tabela tambem está nome e código juntos? Coisa estranha de se ver. O código tem sempre o mesmo número de caracteres?

Se na tabela estiverem separados, basta pegar apenas o campo do nome dessa tabela. Se tambem estiverem juntos e o código tiver sempre 8 dígitos, pode usar a função Left para pegar todo o campo menos os 11 caracteres da direita(Right): 8 dígitos + 2 espaços + 1 ífen = 11:

Me.NomeDoCampo = Left(Me.NomeDoCampo, Len(Me.NomeDoCampo) - 11)

Agora, se o código tiver número variável, aí precisará implementar algo como Split para separar e pegar apenas a primeira parte:

Dim Parte As Variant
Parte = Split(Me.NomeDoCampo, "-")
Me.NomeDoCampo = Trim(Parte(0))

O Trim retira o espaço que fica depois do nome e Part(0) significa a primeira parte do campo antes do ífen.