[Resolvido]Função Split para desmembrar dados de string e auto popular outros campos

Fala, galera! Preciso muito da ajuda de vocês!

Comecei a mexer no Access agora por causa de um trabalho que preciso realizar que é o seguinte: tenho uma tabela com 3 colunas (Descrição, Marca e Modelo). Na coluna descrição tenho dados de carros como "Carro ano 2007 da marca Fiat, modelo Palio". O que preciso fazer é atualizar as colunas Marca e Modelo com suas respectivas informações oriundas da coluna Descrição. Já tentei fazer isso criando uma consulta para cada descrição. Ou seja, no exemplo que dei a consulta ficaria:

UPDATE Carros SET Carros.Marca = "Fiat", Carros.Modelo = "Palio"
WHERE (((Carros.Descricao) Like "*Palio*"));



No entanto, isso é muito trabalhoso e estou procurando uma forma de fazer com que o Access identifique que o preenchimento da coluna "Marca" deve ser feito com o valor que vem logo depois da palavra Marca da coluna "Descrição"! Alguém sabe como posso fazer isso??

Se puderem me ajudar ficarei muito grato!! Valeuu!

Olá, seja bem vindo ao fórum!

Por que essa coluna Descrição se tudo que está nela estará nas outras colunas? Dessa forma, estará ocupando muito espaço desnecessário, o que acelerará e muito o fim de vida útil de seu banco.

Na verdade essa imagem que eu usei é só um exemplo. Nos dados que eu trabalho, a coluna descrição é bem mais poluída e, em alguns casos, nem mesmo especifica o modelo. Por isso preciso criar essas duas novas colunas!

Mas essa coluna Descrição tem algum padrão para todos os registros? Ou seja, em todos vai ter Marca <Nome da marca> e Modelo <Nome do modelo>?

Em todos não, mas na grande maioria sim. Por isso, esse procedimento iria facilitar muito a minha vida.

Posta umas linhas reais normalizadas e não normalizadas para ficar mais fácil identificar a situação.

Os dados que eu trabalho são parecidos com esses que coloquei no exemplo:
"Carro ano 2007 da marca Fiat, modelo Palio, cor preta"

Os que não aparecem os dados seriam:
"Carro com motor 1.6, da cor azul, fabricado no Japão com código: xxxx-xxx"

Desses últimos eu sei que não conseguiria identificar. Mas a minha dúvida é que instrução colocar pra que o Access possa encontrar os valores das células que vêm depois das palavras "marca" e "modelo" e, automaticamente, preencher as respectivas colunas com esses valores. Será que tem como? Porque até na imagem lá de cima você pode ver que eu fiz isso criando uma consulta pra cada um, mas isso dá um trabalho do cão!

Foi mal não postar a imagem que você pediu, mas não estou com o arquivo aqui nesse PC e ele é muito extenso, então vou demorar para conseguir baixá-lo.

Avelino, muito obrigado! Funcionou perfeitamente para preencher as marcas e os modelos!! Me salvou, cara! Muito obrigado mesmo!!!

Só mais uma dúvida:

Não tem como eu colocar para ele preencher automaticamente com a primeira palavra que vier depois de Marca ou Modelo na descrição? Sem eu mesmo ter que colocar todas as marcas e modelos na descrição?

Funcionou perfeitamente com as marcas, mas não consegui adaptar para os modelos. Coloquei a função:

Public Function fncModelo(strFrase As String) As String
Dim modelo
modelo = Split(Mid(strFrase, InStr(strFrase, "modelo") + 6), " ")
fncModelo = Replace(modelo(0), ",", "")
End Function

E depois criei uma consulta com

UPDATE carros SET Modelo = fncModelo([Descricao]);

No entanto, quando eu executo a consulta e confirmo a atualização das linhas nada acontece, continuam todas em branco. Sabe por que pode estar acontecendo isso?

Cara, você é sinistro! Funcionou certinho! Se eu quiser pegar as duas palavras que vêm depois de Modelo ao invés de apenas a palavra seguinte, tem como eu adicionar alguma coisa na função pra fazer isso?

Ficaria assim, certo?

Public Function fncModelo(strFrase As String) As String
Dim modelo
modelo = Split(Mid(strFrase, InStr(strFrase, "modelo") + 7), " ")
fncModelo = Replace(modelo(0), ",", "") & " " & modelo(1) & " " modelo(2)
End Function

Deu erro de sintaxe. Não consegui executar a consulta!

Faltou um &

fncModelo = Replace(modelo(0), ",", "") & " " & modelo(1) & " " & modelo(2)

Todas as frases tem as três palavras depois de modelo ?

Funcionou perfeitamente, cara! Você é censurado! Muito obrigado!!

Titulo anterior: "Consulta no modo SQL."

Informando que alterei o titulo do tópico para facilitar a ferramenta de buscas do fórum.