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]Loop remover-apagar parte de uma palavra (string) de um campo na tabela

    XPTOS
    XPTOS
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 601
    Registrado : 20/01/2014

    [Resolvido]Loop remover-apagar parte de uma palavra (string) de um campo na tabela Empty [Resolvido]Loop remover-apagar parte de uma palavra (string) de um campo na tabela

    Mensagem  XPTOS 11/10/2014, 03:25

    Prezados,

    Achei na net uma função e fiz uma adaptações ao meu projeto, porém, tem uma campo em minha tabela chamado senhaAutorizacao e nele tem o seguinte registros 11-41754297. Como fazer para deletar o simbolo (-) da tabela?

    Usei a função abaixo e somente remove o que está à direita ou à esquerda do simbolo (-).

    Call RemoveTexto 'Chama a sub-rotina que remove os caracteres à esquerda


    Public Sub RemoveTexto()
    On Error Resume Next
    Dim nENDERECO As String
    Dim strTexto As String
    Dim intPos As String
    nENDERECO = senhaAutorizacao
    intPos = InStr(nENDERECO, "-") 'Localiza a string a partir do primeiro caracter
    strTexto = Trim(Mid(nENDERECO, intPos)) 'Remove a string à esquerda do simbolo
    senhaAutorizacao = strTexto
    End Sub
    Dilson
    Dilson
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1743
    Registrado : 11/11/2009

    [Resolvido]Loop remover-apagar parte de uma palavra (string) de um campo na tabela Empty Re: [Resolvido]Loop remover-apagar parte de uma palavra (string) de um campo na tabela

    Mensagem  Dilson 11/10/2014, 03:59

    Se deseja tirar o traço de qualquer parte dos registros do campo senha, pode usar no evento que desejar:

    Dim rs As Recordset
    Set rs = CurrentDb.OpenRecordset("SELECT * FROM SuaTabela")
    While (Not rs.EOF)
    rs.Edit
    rs("SeuCampoSenha") = Replace(rs("SeuCampoSenha"), "-", "")
    rs.Update
    rs.MoveNext
    Wend
    rs.Close
    XPTOS
    XPTOS
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 601
    Registrado : 20/01/2014

    [Resolvido]Loop remover-apagar parte de uma palavra (string) de um campo na tabela Empty Re: [Resolvido]Loop remover-apagar parte de uma palavra (string) de um campo na tabela

    Mensagem  XPTOS 11/10/2014, 16:16

    Olá Dilson,

    Perfeito, funcionou que é uma maravilha.

    Grato,
    Dilson
    Dilson
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1743
    Registrado : 11/11/2009

    [Resolvido]Loop remover-apagar parte de uma palavra (string) de um campo na tabela Empty Re: [Resolvido]Loop remover-apagar parte de uma palavra (string) de um campo na tabela

    Mensagem  Dilson 11/10/2014, 18:37

    Agradecemos o feedBack.

    Mudei o titulo para facilitar na ferramenta de buscas do fórum.

    De: Deletar para da palavra na tabela.
    Para: Loop remover-apagar parte de uma palavra (string) de um campo na tabela

    Conteúdo patrocinado


    [Resolvido]Loop remover-apagar parte de uma palavra (string) de um campo na tabela Empty Re: [Resolvido]Loop remover-apagar parte de uma palavra (string) de um campo na tabela

    Mensagem  Conteúdo patrocinado


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