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

    Pegar numero com exceção dos numeros 0

    Compartilhe
    avatar
    teboman
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 49
    Registrado : 03/08/2016

    Pegar numero com exceção dos numeros 0

    Mensagem  teboman em 14/7/2018, 18:41

    Bom dia caros colegas.
    Gostaria de saber se existe uma forma de pegar todos os numeros de uma textbox com exceção dos numeros 0 porque quero fazer um código para que seja aberto um diretório no servidor porém possuimos registros de 1000 até 80000 em numero de pastas portanto tentei usar o Left(Objeto, 2) + 000 porém não funcionaria devido a diferença entre o 1000 e 10000 em diante. Atualmente meu código está assim. No servidor os diretórios estão separados por milhar por exemplo 1000+, 2000+, 3000+ e assim por diante.


    Private Sub cmdabrirdigitalizados_Click()
    Dim strPasta As String
    Dim strFaixaPasta As String
    Dim objPasta As String
    Dim Diretorio As String

    objPasta = Me!Pasta
    strPasta = Forms!FormProcessos!Pasta
    strFaixaPasta = Left(objPasta, 2) + "000+\"

    Diretorio = "\\00administrador\Arquivos Digitalizados\Pastas\" & strFaixaPasta & strPasta
    Application.FollowHyperlink Diretorio
    End Sub

    Então para resolver isso pensei em fazer um código que pegue somente os numeros que são diferentes de 0 para eu poder jogar no strFaixaPasta e sair o valor certinho da faixa de pasta em que a determinada pasta se encontra. Existe alguma forma de fazer isso ou terei que pensar em armazenar as pastas de outra maneira?

    Agradeço a atenção de vocês mestres. (Mãozinhas juntas agradecendo)
    avatar
    caiosouza
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 362
    Registrado : 05/12/2016

    Re: Pegar numero com exceção dos numeros 0

    Mensagem  caiosouza em 14/7/2018, 18:49

    Boa tarde, use estrutura condicional:

    Código:
    Iif(objPasta > 1000, Left(objPasta, 2) + "0000+\",Left(objPasta, 2) + "000+\")


    .................................................................................
    A persistência leva ao sucesso!

      Data/hora atual: 13/12/2018, 18:25