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

    Remover pedaços da palavra

    avatar
    phellippo
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

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

    Remover pedaços da palavra Empty Remover pedaços da palavra

    Mensagem  phellippo 6/7/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
    chsestrem
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

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

    Remover pedaços da palavra Empty Re: Remover pedaços da palavra

    Mensagem  chsestrem 6/7/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
    http://www.vbabit.com.br
    avatar
    phellippo
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

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

    Remover pedaços da palavra Empty Re: Remover pedaços da palavra

    Mensagem  phellippo 7/7/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
    chsestrem
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

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

    Remover pedaços da palavra Empty Re: Remover pedaços da palavra

    Mensagem  chsestrem 7/7/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
    http://www.vbabit.com.br
    avatar
    phellippo
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

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

    Remover pedaços da palavra Empty Re: Remover pedaços da palavra

    Mensagem  phellippo 7/7/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

    Conteúdo patrocinado


    Remover pedaços da palavra Empty Re: Remover pedaços da palavra

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 28/3/2024, 22:23