MaximoAccess

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

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?

    avatar
    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
    avatar
    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: Seg 25 Set 2017, 03:31