MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access


    [Resolvido]É número inteiro?

    avatar
    Convidad
    Convidado


    [Resolvido]É número inteiro? Empty [Resolvido]É número inteiro?

    Mensagem  Convidad 7/10/2011, 18:28

    Olá!
    Quero retornar se o resultado de uma operação é um número inteiro (True, False).
    Existe uma função pra isso?
    Obrigado.


    Última edição por norbs em 7/10/2011, 20:50, editado 1 vez(es)
    Avelino Sampaio
    Avelino Sampaio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3880
    Registrado : 04/04/2010

    [Resolvido]É número inteiro? Empty Re: [Resolvido]É número inteiro?

    Mensagem  Avelino Sampaio 7/10/2011, 19:50

    Olá

    Creio que assim seja possível (exemplo para por numa consulta):

    teste: iif([campoNumero] = int([campoNumero]);true,false)

    Sucesso!


    .................................................................................
    Vídeos, livros, kit MontaRibbons e acesso vitalício ao site UsandoAcces  
    Clique AQUI e analise o custo beneficio do material oferecido.
    avatar
    Convidad
    Convidado


    [Resolvido]É número inteiro? Empty Re: [Resolvido]É número inteiro?

    Mensagem  Convidad 7/10/2011, 20:48

    A questão original é a seguinte:
    Tenho um campo texto que exibe mensagens que vão mudando no timer.
    Queria variar tambem a cor da fonte, então pensei em alternar quando o código do registro fosse par/impar:
    cod / 2 = é inteiro então cor tal
    cod / 2 = não inteiro então cor tal

    Mas fiz de outro jeito:

    Dim varCod As Integer, varT As Integer
    varC = 1
    Form.TimerInterval = 3000

    Private Sub Form_Timer()
    On Error GoTo Trato

    Me.Texto = DLookup("Mensagem", "tblMensagens", "Código=" & varCod)
    varT = DLookup("Tempo", "tblMensagens", "Código=" & varCod)
    If varCod < DMax("Código", "tblMensagens") Then
    varCod = varCod + 1
    ElseIf varCod = DMax("Código", "tblMensagens") Then
    varCod = 1
    End If
    Form.TimerInterval = varT * 1000
    'aqui a solução encontada:
    Static X As Boolean
    If Not X Then
    Me.Texto.ForeColor = 8388608 'azul.
    Else
    Me.Texto.ForeColor = 8421504 'cinza.
    End If
    X = Not X 'Alterna o estado.

    Exit Sub
    Trato:
    Info Err.Description
    End Sub

    Valeu!
    Avelino Sampaio
    Avelino Sampaio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3880
    Registrado : 04/04/2010

    [Resolvido]É número inteiro? Empty Re: [Resolvido]É número inteiro?

    Mensagem  Avelino Sampaio 7/10/2011, 20:58

    Olá

    Que bom que resolveu!

    Uma outra alternativa é usar o MOD (resto da divisão)

    if varCod MOD 2 = 0 then
    'aqui o valor par
    else
    'aqui o valor impar
    end if

    Sucesso!


    .................................................................................
    Vídeos, livros, kit MontaRibbons e acesso vitalício ao site UsandoAcces  
    Clique AQUI e analise o custo beneficio do material oferecido.
    avatar
    Convidad
    Convidado


    [Resolvido]É número inteiro? Empty Re: [Resolvido]É número inteiro?

    Mensagem  Convidad 7/10/2011, 21:14

    Esta não conhecia...
    Muito bom! É o que eu mais gosto nos fóruns: pergunta-se uma coisa e aprende-se várias outras.
    Grande Avelino, obrigado.

    Conteúdo patrocinado


    [Resolvido]É número inteiro? Empty Re: [Resolvido]É número inteiro?

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 26/4/2024, 13:03