• Revista PROGRAMAR: Já está disponível a edição #53 da revista programar. Faz já o download aqui!

M.offspring.R

[VB6][Resolvido] Comparacao com campo vazio e numeros

5 mensagens neste tópico

Boas noites.

Após ter ajudado o meu amigo fiquei com o bichinho do VB (deve ser amor de pouca dura...) e decidi "brincar" um pouco com isto... Então tenho uma duvida:

-> Tenho tipo um formulário com N campos e 3 desses campos são para preencher com números, se se preencher com letras (ou caracteres) mostra uma mensagem de aviso... É esta comparação que estou encalhado e não sei resolver... Tenho o seguinte código:

If ( ( (Text7.Text="") Or (Text7.Text<>NUMEROS) ) ) Then
    MsgBox ("Estes campos apenas recebem numeros.")
End If

Onde o NUMEROS é a tal comparação com números de 0-9. Será que dá para fazer o que quero?

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Utiliza a função IsNumeric:

Exemplo:

If Not Isnumeric(text7.text) Then

MsgBox ("Estes campos apenas recebem numeros.")

End If

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Já andei inventando e já não estou a captar agora isto...

Já implementei, fiz com a text7.text e apareceu a tal mensagem de erro e registou os dados... Eu quero que vá mostrando a mensagem ate que nesse campo surja so números... e não estou a conseguir fazer...

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Para não estar a complicar muito mete um Exit Sub abaixo da MsgBox

If Not Isnumeric(text7.text) Then
MsgBox ("Estes campos apenas recebem numeros.")
Exit Sub
End If

O que isto faz e sair do procedimento tambem podias usar um Else no If

If Not Isnumeric(text7.text) Then
  MsgBox ("Estes campos apenas recebem numeros.")

Else
'codigo que deve ser executado se forem valores numericos
End If

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Resultou com o primeiro... Falta é juntar a text8.text e a text9.text

PS:

Já consegui fazer o que pretendia...

Penso que a parte do registar finalmente ficou a funcionar... falta o consultar... mais "dores de cabeça" para amanha

Thanks pelas dicas  :P

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Crie uma conta ou ligue-se para comentar

Só membros podem comentar

Criar nova conta

Registe para ter uma conta na nossa comunidade. É fácil!


Registar nova conta

Entra

Já tem conta? Inicie sessão aqui.


Entrar Agora