VERIFICANDO DADOS NO MASKEDITBOX

NEGRON 23/08/2009 20:22:22
#320729
Boa noite Galera!!!!!!

Galera a minha duvida é a seguinte:
Criei uma tela de cadastro de clientes com vários campos, onde o telefone e cpf, eu utilizei o MASKEDITBOX, formatando a mascara para
MASK = (##) ####-#### que é o comum.
Agora a minha dúvida é a seguinte, como faço para validar, se o usuario digitou o número do telefone completo... ou parte dele
ex:(18) -
porque as vezes acontece do usuario digitar somente o primeiro numero e gostaria de evitar isso, caso isso acontecesse o sistema informaria que os dados estão incompletos
Agradeço Galera
ASHKATCHUP 23/08/2009 20:29:57
#320730 

If Len (MaskEdit1.Text) = 14 then valido
else invalido
NEGRON 23/08/2009 21:42:31
#320732
Amigo ASHKATCHUP
O código que vc passou num da certo não....
porque usando esse recurso, ele já considera que já tem 14 caractere por causa da mascara mas (##) #### - #### , entaum se eu ditar tipo assim (18) 9215 -
ele irá considerar que já tem 14

Agradeço, pela atenção

valeu
TECLA 23/08/2009 22:23:28
#320733 Resposta escolhida
  • Resultado


  • Fonte
    Private Sub MaskEdBox1_Validate(Cancel As Boolean)
    Dim Tel As String
    Tel = Replace(Trim(MaskEdBox1),
    • [Ô]_[Ô], [Ô][Ô])
    If Len(Tel) < 14 Then
    MsgBox [Ô]Telefone inválido![Ô], vbExclamation, [Ô]Atenção[Ô]
    Cancel = True
    End If
    End Sub
    NEGRON 24/08/2009 00:28:49
    #320740
    valeu
    TECLA

    deu certinho valeu brigadão pela ajuda
    Tópico encerrado , respostas não são mais permitidas
    Voltar