MaximoAccess

Caro Usuário, não tire as suas duvidas nas Salas de Repositório, abra sempre um novo tópico relacionado, nas salas destinadas para o efeito, como Sala de Tabelas, Consultas, Formulários, Relatórios, Macros, Módulos e VBA.

Obrigado

Administração do MaximoAccess

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

    [Resolvido]Como capturar a primeira palavra de um campo

    Compartilhe

    Eloirp
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 149
    Registrado : 15/06/2013

    Como capturar a primeira palavra de um campo

    Mensagem  Eloirp em Ter 29 Out 2013, 00:38

    Estou precisando pegar somente a primeira palavra de um campo para criar outro campo na tabela, seria mais ou menos assim:

    Campo Origem:...........................Novo Campo:
    Ecosport 2WD.............................Ecosport
    Ecosport 4WD.............................Ecosport
    Uno CS..........................................Uno
    Uno Mille........................................Uno

    Ou seja, seria a primeira palavra antes do espaço e pode variar de tamanho e como são mais de 7.000 linhas na tabela eu preciso fazer isso de forma automatizada através de VBA...

    Agradeço se alguém puder me dar uma luz...

    clebergyn
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 519
    Registrado : 29/08/2012

    Re: [Resolvido]Como capturar a primeira palavra de um campo

    Mensagem  clebergyn em Ter 29 Out 2013, 03:05

    se puder enviar seu banco de dados convertido em access2003 zipado, eu faço, deixo a formula e te envio

    se não,
    você cria uma nova consulta,
    seleciona "consulta atualizar",
    adicione a tabela onde esta os campos(coloque só os dois campos)
    no "novo campo" você vai colocar em baixo onde está "atualizar para" a formula abaixo:
    Esquerda([campo origem];EmSeq([campo origem];" ")-1)

    se quiser usar via código vba:

    coloque esta função abaixo no modulo:

    Function PrimeiraPalavra()
    CurrentDb.Execute "UPDATE SuaTabela SET SuaTabela.[Campo Novo] ="  &  _
    " Left([Campo Origem],InStr([Campo Origem],' ')-1)"
    End Function

    Substitua "SuaTabela" pelo nome da tabela que contem os campos que deseja
    Substitua "campo origem" pelo nome do campo que voce quer extrair a primeira palavra
    Substitua "campo novo" pelo nome do campo que você quer colocar o resultado

    coloque em qualuer procedimento de evento, vinculado a um botao(ao clicar), ou a um campo
    a função:
    call PrimeiraPalavra()

    você pode fazer também a função direta assim que cadastrar um novo registro
    ele ja insere no novo campo automatico
    é so usar no procedimento de evento do campo de um formulario a função direta abaixo:
    [campo novo]=Left([Campo Origem],InStr([Campo Origem],' ')-1)

    ah gosta também do Excel?
    use a função: =EXT.TEXTO(A1;1;PROCURAR(" ";A1)-1)

    é isso ai, espero resposta

    Eloirp
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 149
    Registrado : 15/06/2013

    Re: [Resolvido]Como capturar a primeira palavra de um campo

    Mensagem  Eloirp em Ter 29 Out 2013, 23:34

    Olá Cleber,
    Desde já lhe agradeço pela ajuda!
    Anexei o arquivo onde está a tabela tbl_Modelo com os campos: Modelo e ModeloRed sendo que o ModeloRed (de reduzido) é onde eu gostaria de gravar...

    Abraços

    clebergyn
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 519
    Registrado : 29/08/2012

    Re: [Resolvido]Como capturar a primeira palavra de um campo

    Mensagem  clebergyn em Qua 30 Out 2013, 02:55

    Está ai em anexo,
    ja estão separados, mas caso queira colocar outros dados
    cole os dados na tabela e clique na consulta "SeparaPrimeiraPalavra"

    até e um abraço
    Anexos
    modelo.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (88 Kb) Baixado 18 vez(es)

    Eloirp
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 149
    Registrado : 15/06/2013

    Re: [Resolvido]Como capturar a primeira palavra de um campo

    Mensagem  Eloirp em Qua 30 Out 2013, 13:59

    Valeu Cleber!
    Resolvido..... grande abraço...

      Data/hora atual: Sab 10 Dez 2016, 04:52