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


2 participantes

    [Resolvido]Campo Texto x Campos Numeros

    avatar
    catatau
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 11
    Registrado : 28/07/2011

    [Resolvido]Campo Texto x Campos Numeros Empty [Resolvido]Campo Texto x Campos Numeros

    Mensagem  catatau 23/3/2015, 00:30

    Para digitar o resultado de diversas dosagens, cada uma com seu valor de referencia,
    Tenho dois campos, Mínimo e Máximo, ambos no formato Número.
    E um terceiro Resultado no formato Texto.
    Me.CampoValorMinímo = 60
    Me.CampoValorMaximo = 100
    Me. campoTextResultado = ???

    Preciso de uma instrução que quando o campo Resultado estiver fora desta faixa, seja alertado com uma msgbox. Já tentei assim:

    If me. campoTextResultado < Me.CampoNumMinímo Or me. campoTextResultado > Me.CampoNumMaximo Then
    MsgBox "esta fora da faixa"
    End if

    Porém se eu digito, por exemplo, 98, o campo reconhece como maior do que 100. Ou seja, só reconhece o primeiro caractere do Valor máximo.
    Como eu disse, o campo Resultado deve ser no formato Texto e os parâmetros no formato número.
    O que eu devo fazer para dar certo? Por favor, me ajudem.

    Avelino Sampaio
    Avelino Sampaio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Campo Texto x Campos Numeros Empty Re: [Resolvido]Campo Texto x Campos Numeros

    Mensagem  Avelino Sampaio 23/3/2015, 07:15

    Seja benvindo!

    Se o resultado for sempre valor inteiro, utilize a função VAL(). Exemplo:

    If val(me!campoTextResultado) < Me.CampoNumMinímo Or val(me!campoTextResultado) > Me.CampoNumMaximo Then
    MsgBox "esta fora da faixa"
    End if

    Se tiver fração, utilize a função CDBL()

    If Cdbl(me!campoTextResultado) < Me.CampoNumMinímo Or Cdbl(me!campoTextResultado) > Me.CampoNumMaximo Then
    MsgBox "esta fora da faixa"
    End if

    Aguardamos


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


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 11
    Registrado : 28/07/2011

    [Resolvido]Campo Texto x Campos Numeros Empty Campo Texto x Campos Numeros

    Mensagem  catatau 23/3/2015, 14:15

    Grande Avelino,

    Deu certo. Só que apareceu outro problema:

    Neste mesmo Me.CampoTextResultado às vezes tenho que digitar o resultado como "Negativo" ou "Positivo".
    Agora, quando faço isto, está dando o erro "tipos incompatíveis".

    Como faço para que ele também aceite Texto?



    Muito Obrigado pela sua ajuda.


    Última edição por catatau em 23/3/2015, 14:46, editado 1 vez(es) (Motivo da edição : Nova dúvida.)
    Avelino Sampaio
    Avelino Sampaio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Campo Texto x Campos Numeros Empty Re: [Resolvido]Campo Texto x Campos Numeros

    Mensagem  Avelino Sampaio 23/3/2015, 15:16

    Experimente

    if not isNumeric(me!me!campoTextResultado) then exit sub
    If val(me!campoTextResultado) < Me.CampoNumMinímo Or val(me!campoTextResultado) > Me.CampoNumMaximo Then
    MsgBox "esta fora da faixa"
    End if

    Aguardamos


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


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 11
    Registrado : 28/07/2011

    [Resolvido]Campo Texto x Campos Numeros Empty Re: [Resolvido]Campo Texto x Campos Numeros

    Mensagem  catatau 24/3/2015, 02:43

    Nobre Avelino,

    Como sou iniciante e curioso, passei este fim de semana todo tentando uma solução sozinho e não encontrei.

    Mas quem sabe, sabe!
    Após sua dica, o VBA ficou assim.

    If Not IsNumeric(Me.campotextResultado) Then
    Exit Sub
    Else
    If CDbl(Me.campotextResultado) < Me.CampoNumMinímo Or CDbl(Me.campotextResultado) > Me.CampoNumMaximo Then
    MsgBox "esta fora da faixa"
    End If
    End If

    Te incomodarei mais vezes, mas por hora, é só.

    Mais uma vez, obrigado e que Deus te ilumine.

    Conteúdo patrocinado


    [Resolvido]Campo Texto x Campos Numeros Empty Re: [Resolvido]Campo Texto x Campos Numeros

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 22/11/2024, 08:51