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

    Remover pedaços da palavra

    Compartilhe

    phellippo
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 11
    Registrado : 18/05/2015

    Remover pedaços da palavra

    Mensagem  phellippo em Seg 06 Jul 2015, 20:50

    Boa tarde,

    Estou com um problema aqui,

    Tenho uma Lista, dentro da lista tem alguns campos que tem a seguinte palavra "PB/DOCAS", eu preciso verificar quais linhas da lista tem "PB/DOCAS" é remover somente o "PB/" da palavra, ficando simplesmente "DOCAS"

    Alguém pode me ajudar?


    chsestrem
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 466
    Registrado : 01/03/2010

    Re: Remover pedaços da palavra

    Mensagem  chsestrem em Seg 06 Jul 2015, 21:02

    Olá,

    Você não especificou a origem desta lista, se seria de uma tabela / consulta etc...

    Se a origem for de uma tabela, você pode criar uma consulta usando o replace.

    crie um campo na consulta: Campo: replace([CampoDaTabela];"PB/","")

    Sds,



    .................................................................................
    Charles Sestrem
    [Você precisa estar registrado e conectado para ver este link.]

    phellippo
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 11
    Registrado : 18/05/2015

    Re: Remover pedaços da palavra

    Mensagem  phellippo em Ter 07 Jul 2015, 13:51

    Bom dia amigo,


    A origem vem da consulta, ai o usuário clica no botão "Remover PB" e a lista terá que remover o PB e salvar na tabela

    chsestrem
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 466
    Registrado : 01/03/2010

    Re: Remover pedaços da palavra

    Mensagem  chsestrem em Ter 07 Jul 2015, 14:07

    Bom dia,

    faça o UPDATE na tabela usando o Replace

    No evento click do botão você pode executar uma instrução SQL.

    Dim strsql as String

    strsql = "UPDATE Tabela SET [campoPB] = replace([campoPB],'PB/','');"
    currentdb.execute(strsql)



    .................................................................................
    Charles Sestrem
    [Você precisa estar registrado e conectado para ver este link.]

    phellippo
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 11
    Registrado : 18/05/2015

    Re: Remover pedaços da palavra

    Mensagem  phellippo em Ter 07 Jul 2015, 14:15

    Resolvi dessa maneira

    For x = 1 To Me.LstBW.ListCount - 1

    Remove = Replace(Me.LstBW.Column(1, x), "PB/", "")
    DoCmd.SetWarnings off
    consSQL = "UPDATE tbl_TMABW " _
    & "SET NumNota = '" & Remove & "' " _
    & "where id_BW = " & LstBW.Column(0, x) & ""
    DoCmd.RunSQL consSQL

    Next

    Agora o que eu não estou conseguindo é remover a partir de uma determinado ponto

    Exemplo: 51181818-0021

    Eu quero remover a partir do -, consegui fazer com o replace

      Data/hora atual: Dom 04 Dez 2016, 20:17