|
|
Postada em 05/10/2011 20:28 hs
Boa noite,
eu gostaria de uma ajuda,
estou com com um form que contem
nome, cpf, tel, entre outros com mask
meu problema é
gostaria que eles só fosse para o banco_de_dados.mdb se estivessem realmente certinhos
EX.:
Errado: 123.456.000-0
Certo:123.456.000-00
OBS>: DAO
Obrigado pela Ajuda....
|
|
TÓPICO EDITADO
|
|
|
|
|
|
LCRamos
|
GOIANIA
GO - BRASIL
|
|
ENUNCIADA !
|
|
|
Postada em 06/10/2011 01:40 hs
No caso do CPF, você faz uma função que formata o cpf e verifica se é válido, isto tem na internet, se não achar mande email que te passo.
No caso do telefone, verifique se o usuário digitou apenas números, se digitou outros caracteres, elimine e deixe apenas os números, e faça a sua formatação dependendo do tamanho do campo, também tenho esta função.
EXEMPLO:
TAMANHO 8 = PREFIXO + NÚMERO
TAMANHO 9 = INVÁLIDO
TAMANHO 10 = DDD + PREFIXO + NÚMERO
TAMANHO 11 12 = INVÁLIDO
TAMANHO 13 = OPERADORA + DDD + PREFIXO + NÚMERO
vlu//
|
|
|
|
|
|
Postada em 06/10/2011 13:52 hs
Tente deste jeito,pois impede de faltar dígitos.
Private Sub MaskEdBox1_LostFocus()
If Len(MaskEdBox1) < 11 Then
MsgBox "Faltando Dígito!", vbInformation, "Número do Cpf"
MaskEdBox1 = Clear
MaskEdBox1.SetFocus
Exit Sub
End If
End Sub
|
|
|
|
|
|
Postada em 06/10/2011 19:13 hs
Nelson Esse ai não funionou
acho que quando ele vai contar quantos digitos tem, ele começa apartir dos ___.___.___-__
Quando tiro a mask ele funciona normalmente.
LCRamos
O código que você teria seria muito grande para mandar pelo forum?
|
|
|
|
Treze
|
SÃO VICENTE
SP - BRASIL
|
|
Postada em 06/10/2011 21:49 hs
tente este
Private Sub MaskEdBox1_LostFocus()
If Len(MaskEdBox1.ClipText) < 10 Then
MsgBox "Numero menor que o esperado"
MaskEdBox1.SetFocus
MaskEdBox1.SelStart = InStr(1, MaskEdBox1.Text, "_") - 1
End If
End Sub
|
|
|
|
|
|
Postada em 06/10/2011 22:10 hs
Obrigado treze...
esse deu certinho...
|
|
|
|
