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

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.

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, 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

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.

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

Segue banco de teste.

Obrigado pela ajuda!

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...

Deu certo!

Agradeço pela grande ajuda. Meu muito obrigado!

Fábio

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