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


    [Resolvido]VBA para trabalhar dados

    avatar
    Belobo
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 24
    Registrado : 12/07/2014

    [Resolvido]VBA para trabalhar dados Empty [Resolvido]VBA para trabalhar dados

    Mensagem  Belobo em 30/5/2019, 02:49

    Olá gostaria de transformar um campo composto de 12 dígitos em 24 dígitos
    O campo atual segue o padrão 000000045000
    Gostaria que o campo acima tenha um incremento dígitos 3 a cada caracter ficando assim 303030303030303435303030
    Ou seja o número 3 entra a cada digito existente
    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 6285
    Registrado : 15/03/2013

    [Resolvido]VBA para trabalhar dados Empty Re: [Resolvido]VBA para trabalhar dados

    Mensagem  ahteixeira em 30/5/2019, 10:02

    Olá Leonardo Lobo,

    Criei a seguinte função para o que pretende, veja:
    [Resolvido]VBA para trabalhar dados 059

    Abra o seu projeto, crie um módulo novo e copie o codigo abaixo e coloque nesse módulo:
    Código:
    Public Function Converter12para24$(strNumero12$)
    'ahteixeira 2019 para maximoaccess
        
        Dim iTam%, i%, sTmp$ 'variaveis
        iTam = Len(strNumero12 & "") 'verificar tamanho da string a converter
        
        If iTam > 0 Then 'se a string for maior que zero
            
            For i = 1 To iTam 'vai percorer caracter a caracter da string a converter
                sTmp = sTmp & "3" & Mid(strNumero12, i, 1) 'adiciona o 3 à variável temporária
            Next 'fim do for
            
            Converter12para24 = sTmp 'atribuir variável temporária à função
        
        End If 'fim do IF
    End Function


    Para fazer a chamada da função, pode chamar diretamente:
    Converter12para24("000000045000")

    ou
    Converter12para24([NomeDoCampo])

    Abraço
    avatar
    Belobo
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 24
    Registrado : 12/07/2014

    [Resolvido]VBA para trabalhar dados Empty Re: [Resolvido]VBA para trabalhar dados

    Mensagem  Belobo em 17/7/2019, 16:14

    Obrigado pelo retorno funciona!!!!
    avatar
    Belobo
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 24
    Registrado : 12/07/2014

    [Resolvido]VBA para trabalhar dados Empty Re: [Resolvido]VBA para trabalhar dados

    Mensagem  Belobo em 17/7/2019, 19:35

    Se puder dar uma ajuda no meu tópico “ Conciliação de Cartões de Crédito “ agradeço
    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 6285
    Registrado : 15/03/2013

    [Resolvido]VBA para trabalhar dados Empty Re: [Resolvido]VBA para trabalhar dados

    Mensagem  ahteixeira em 18/7/2019, 15:55

    cheers

    Conteúdo patrocinado

    [Resolvido]VBA para trabalhar dados Empty Re: [Resolvido]VBA para trabalhar dados

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 21/8/2019, 13:00