PERSONALIZAR MENSAGEM PARA MASCARA DE ENTRADA

CRISCAMARGO 22/11/2012 12:37:22
#414589
Olá,

Tenho um banco de dados em access, coloquei um campo de consulta (código do produto) num formulário, onde o usuário deve digitar o código do produto com dois dígitos, porém ele está configurado com a máscara de entrada L0;; (uma letra e um número). Como faço para aparecer uma mensagem de erro se o usuário tentar digitar outro padrão de código???

Obrigada!
VELDRAME 22/11/2012 13:59:13
#414596 
 If IsNumeric(Mid(txtPesquisar, 1, 1)) = True Then [ô]Se o primeiro digito for um Número
   MsgBox [Ô]O primeiro digito deve ser uma Letra![Ô], vbApplicationModal + vbCritical, [Ô]Erro[Ô]
End If 


  If Not IsNumeric(Mid(txtPesquisar, 2, 1)) = True Then  [ô]Se o segundo digito NÃO for um Número
   MsgBox [Ô]O Segundo digito deve ser um número![Ô], vbApplicationModal + vbCritical, [Ô]Erro[Ô]
End If
CRISCAMARGO 22/11/2012 15:21:25
#414605
Ah, não funcionou...

Ele mostra a janela de erro mesmo quando digito os caracteres corretos... pq será?
VELDRAME 22/11/2012 16:11:03
#414609
Aonde você colocou o comando que te passei?
Você pode coloca-lo em LostFocus do TEXTBOX ou no Botão Pesquisar.

Você tem certeza que é para Visual Basic 6?
Pois deveria tem funfado.

Se for o caso passa o código que você esta usando e passa o ERRO.

Abraços!
CRISCAMARGO 22/11/2012 17:25:57
#414632
Ah... eu uso o VB 7... Será que é isso?
VELDRAME 22/11/2012 17:37:41
#414636
Você deveria ter postado na sessão VB.NET

Adapte para o seu código se for o caso.

Mas deveria funcionar sim. O que pode acontecer é que você tenha que por em [txt-color=#e80000]MsgBoxStyle[/txt-color] ficando assim, por exemplo:
Antes: vbApplicationModal
Depois: MsgBoxStyle.ApplicationModal
Tópico encerrado , respostas não são mais permitidas
Voltar