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]Validar Caixa de Texto

    =>Nois
    =>Nois
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 944
    Registrado : 09/11/2012

    [Resolvido]Validar Caixa de Texto Empty [Resolvido]Validar Caixa de Texto

    Mensagem  =>Nois 25/8/2021, 13:19

    Bom dia!

    aparentemente parece ser bobo, mas ainda não encontrei a solução

    Tenho uma caixa de texto onde faço leitura de código de barras (os códigos são do tipo numérico)

    mas... devido algum erro não entendo bem uma vez a cada 1000 leituras apresenta uma falha e sai algum caractere tipo letra ou simbolo

    bom não posso alterar a caixa de texto para que só aceite número, se a leitura falhar ela deve continuar,

    só preciso avisar que houve um erro em especifico

    o formato é este com 14 digitos: 16220214567896

    as vezes como disse acontece isso:162202145678** ou 162202145678*a ...



    .................................................................................
    Att. Nois

    Se tudo não der certo... tente de novo drunken
    =>Nois
    =>Nois
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 944
    Registrado : 09/11/2012

    [Resolvido]Validar Caixa de Texto Empty Re: [Resolvido]Validar Caixa de Texto

    Mensagem  =>Nois 25/8/2021, 14:51

    fiz assim deu certo


       Dim Verifica As Double
       
       Verifica = Nz(CDbl([minhacaixatexto]) *1, 0)
       
       If Verifica > 0 Then

       MsgBox "inteiro"

       Else

       MsgBox "erro"

       End If


    .................................................................................
    Att. Nois

    Se tudo não der certo... tente de novo drunken

      Data/hora atual: 1/10/2022, 15:05