Como verificar se um número é inteiro no VBA do Access?
Eu tentei
If Int(Me.Numero) Then
Msgbox "É inteiro"
End If
Mas não funcionou.
Eu queria que se eu digitasse 8,5 ele retornasse "Não é inteiro".
O campo é Não Acoplado.
Stack Overflow em Português é um site de perguntas e respostas para programadores profissionais e entusiastas. Leva apenas um minuto para se inscrever.
Inscreva-se para participar desta comunidadeComo verificar se um número é inteiro no VBA do Access?
Eu tentei
If Int(Me.Numero) Then
Msgbox "É inteiro"
End If
Mas não funcionou.
Eu queria que se eu digitasse 8,5 ele retornasse "Não é inteiro".
O campo é Não Acoplado.
A função int( )
retorna a parte inteira do número. Por exemplo,
intNumber = Int(902.3)
faria com que a variável intNumber fosse igual a 902.
No seu caso, basta testar se o número é igual ao inteiro dele. Ou seja:
If Me.Numero = Int(Me.Numero) Then
blablabla
Else
bla2bla2bla2
End If
Segundo esse link, para checar se o tipo da variavel é int/integer, use esse código
If TypeName(x) = "Integer" Then
Use a expressão abaixo, a função val
retorna apenas a parte inteira do número, aí basta comparar o número usando a função contra ele mesmo:
if val([valor]) = [valor] then
msgbox "Inteiro"
else
end if