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]Identificar se o número termina em 0, 1, 2...9

    Compartilhe

    ifabio
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 51
    Registrado : 25/11/2011

    [Resolvido]Identificar se o número termina em 0, 1, 2...9

    Mensagem  ifabio em 21/9/2018, 22:39

    Boa noite a todos !

    Gostaria de saber se há um código no VBA em que eu possa informar para o access que um determinado número terminou em "0, 1, 2, 3 .... 9". Pois, estou criando um sistema para minha loja em que se o número informado terminar por exemplo em "0", será feito um tipo de calculo; se terminar em "1", outro tipo de calculo e aí por diante.


    Desde já, agradeço pela atenção dos colegas.
    avatar
    Marcelo David
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2487
    Registrado : 21/04/2011

    Re: [Resolvido]Identificar se o número termina em 0, 1, 2...9

    Mensagem  Marcelo David em 22/9/2018, 02:07

    Boa noite,
    em módulo:

    Código:
    Public Function fncFinalNumero(Numero As Integer) As Integer
        fncFinalNumero = Right(CStr(Numero), 1)
    End Function

    Para usar em um If, por exemplo:

    Código:
    If fncFinalNumero(SeuNumero)=0 then
        'Seu código aqui, caso a função retorne 0 (zero)
    End If

    Em um Select:

    Código:
    Select Case fncFinalNumero(SeuNumero)
        Case 0
            MsgBox "Faça o cálculo com número 0"
        Case 1
            MsgBox "Faça o cálculo com número 1"
        Case 2
            MsgBox "Faça o cálculo com número 2"
        Case 9
            MsgBox "Faça o cálculo com número 9"
    End Select

    A função fncFinalNumero sempre retornará o último algarismo do número
    e você poderá usar onde quiser no seu projeto.


    .................................................................................
    Marcelo David
    [Você precisa estar registrado e conectado para ver este link.] (em construção)

    ifabio
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 51
    Registrado : 25/11/2011

    Re: [Resolvido]Identificar se o número termina em 0, 1, 2...9

    Mensagem  ifabio em 22/9/2018, 12:50

    Marcelo David, bom dia!

    Vou testar o código hoje quando chegar e assim que fizer o teste volto para informar sem falta.


    Muito obrigado pela ajuda de pronto.

    Fabio

    ifabio
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 51
    Registrado : 25/11/2011

    Re: [Resolvido]Identificar se o número termina em 0, 1, 2...9

    Mensagem  ifabio em 22/9/2018, 23:07

    Boa noite!

    Testei o código informado, mas deu a seguinte mensagem de erro: "Era esperada variável ou procedimento, não módulo". Eu fiz o seguinte procedimento:


    Criei um módulo:

    Public Function fncFinalNumero(numero As Integer) As Integer
    fncFinalNumero = Right(CStr(numero), 1)
    End Function

    -------------------------------------------------------------------------------

    No evento ao clicar:

    If fncFinalNumero(Me.txt1) = 0 Then

    Me.txt2 = 0

    End If


    Eu fiz esse pequeno teste antes de seguir para o sistema. Criei 2 campos, são eles: "txt1, txt2". Onde "txt2" vai inserir "0", caso o número informado em "txt1" termine em "0".

    Com isso, gostaria de saber como devo proceder para solucionar o erro informado.

    Desde já, obrigado pela ajuda.
    avatar
    Marcelo David
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2487
    Registrado : 21/04/2011

    Re: [Resolvido]Identificar se o número termina em 0, 1, 2...9

    Mensagem  Marcelo David em 22/9/2018, 23:16

    Por gentileza, Zip seu exemplo e ponha aqui para analisarmos.


    .................................................................................
    Marcelo David
    [Você precisa estar registrado e conectado para ver este link.] (em construção)

    ifabio
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 51
    Registrado : 25/11/2011

    Re: [Resolvido]Identificar se o número termina em 0, 1, 2...9

    Mensagem  ifabio em 23/9/2018, 13:46

    Segue banco de teste.

    Obrigado pela ajuda!
    Anexos
    teste.zip
    banco de teste
    Você não tem permissão para fazer download dos arquivos anexados.
    (20 Kb) Baixado 2 vez(es)
    avatar
    Marcelo David
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2487
    Registrado : 21/04/2011

    Re: [Resolvido]Identificar se o número termina em 0, 1, 2...9

    Mensagem  Marcelo David em 23/9/2018, 19:50

    Boa tarde...
    Você pôs o nome do módulo com o mesmo nome da função. Isso não pode.

    Renomeie seu módulo para outro nome qualquer e teste novamente.

    Obs. Se os números nas quais irá trabalhar forem muito grandes, altere a variável Numero para Long e o retorno da função para Long também.
    Se for moeda, altere para Currency  e assim por diante...
    Anexos
    teste_new1.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (25 Kb) Baixado 1 vez(es)


    .................................................................................
    Marcelo David
    [Você precisa estar registrado e conectado para ver este link.] (em construção)

    ifabio
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 51
    Registrado : 25/11/2011

    Re: [Resolvido]Identificar se o número termina em 0, 1, 2...9

    Mensagem  ifabio em 23/9/2018, 21:57

    Deu certo!

    Agradeço pela grande ajuda. Meu muito obrigado!

    Fábio
    avatar
    Marcelo David
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2487
    Registrado : 21/04/2011

    Re: [Resolvido]Identificar se o número termina em 0, 1, 2...9

    Mensagem  Marcelo David em 24/9/2018, 01:49

    Ótimo que deu certo. O Fórum agradece o retorno!


    .................................................................................
    Marcelo David
    [Você precisa estar registrado e conectado para ver este link.] (em construção)

      Data/hora atual: 11/12/2018, 11:54