MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

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


2 participantes

    [Resolvido]Como capturar a primeira palavra de um campo

    Eloirp
    Eloirp
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Como capturar a primeira palavra de um campo Empty Como capturar a primeira palavra de um campo

    Mensagem  Eloirp Ter 29 Out 2013, 6:08 am

    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...
    avatar
    Clebergyn
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 785
    Registrado : 30/08/2012

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

    Mensagem  Clebergyn Ter 29 Out 2013, 8:35 am

    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
    Eloirp
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  Eloirp Qua 30 Out 2013, 5:04 am

    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
    avatar
    Clebergyn
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 785
    Registrado : 30/08/2012

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

    Mensagem  Clebergyn Qua 30 Out 2013, 8:25 am

    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
    [Resolvido]Como capturar a primeira palavra de um campo Attachmentmodelo.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (88 Kb) Baixado 83 vez(es)

    jomaras gosta desta mensagem

    Eloirp
    Eloirp
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  Eloirp Qua 30 Out 2013, 7:29 pm

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

    Conteúdo patrocinado


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

    Mensagem  Conteúdo patrocinado


      Data/hora atual: Sex 29 Mar 2024, 6:00 am