[Resolvido]Código para validar telefone fixo

Boa tarde!

Pessoal, poderiam por favor me ajudar...

No meu form tenho 3 campos para inserir telefone, sendo um deles para telefone fixo e outros 2 para celular.

Tem pessoas que estão colocando número de celular no campo 'Telefone Fixo' e isso não pode ocorrer, pois preciso que no cadastro exista um número de tel. fixo.

Nestes sites onde cadastramos (o ENEM por exemplo), quando a gente coloca um nº de cel no campo pra tel. fixo o sistema emite um aviso do tipo "Este número de telefone não é válido!"

Alguém sabe de de um código onde o Access validaria isso também?

*Obs.: No campo tenho a máscara de entrada: "("99") "9999"-"9999


Obrigado!

Boa tarde, Krauss
Vá ao controlo e abra as máscaras de introdução e acrescente uma máscara, de acordo com as exigências do número.
Se precisar de ajuda, descreva todas as condicionantes para a validação do campo

A questão é que os telefones fixos começam com número 5, 4, 3, ou 2.

Ex: 5000-000, 4034-0000, 3404-0000, 2473-0000

E celulares começam a partir de 5...

Krauss,
Tenho pouco tempo para lhe dispensar. No entanto, coloque, no acontecimento AoSair do controlo para verificar se o dígito da esquerda é 2,3,4 ou 5
Select Case Left(NomeControlo,1)
Case 0,1,6,7,8,9
msgbox "O número tem de começar por 2, 3, 4 ou 5"
Docmd.cancelevent
end select

Caro amigo Neves!

Não funfou!

Krauss,
Disponibilize parte da bd para se analisar

Boa tarde Krauss !

O código do colega Alexandre funciona sim ! Acredito eu, que você deva estar usando alguma máscara de entrada.

Montei uma base aqui para testes, mas sem a máscara de entradas para telefone. Veja o código dele.

Private Sub telefone_Exit(Cancel As Integer)
Select Case Left(telefone, 1) ' coloque aqui o nome do campo onde esta o telefone
Case 0, 1, 6, 7, 8, 9
MsgBox "O número tem de começar por 2, 3, 4 ou 5"
DoCmd.CancelEvent
End Select
End Sub

Teste e nos informe.

Abraços.

Silvio

Grande Alexandre Neves....

Não vi a tua resposta.....

fica valendo a tua resposta.

Abraços a ti.

Silvio

Funfou!!!

Porém eu precisava que lesse o terceiro dígito, pois a pessoa tem que informar tbm o prefixo.

Ex: 1151230000

O sistema teria que analisar o terceiro dígito.. tentei mudando o código para:

Select Case Left(NomeControlo,3)
Case 0,1,6,7,8,9
msgbox "O número tem de começar por 2, 3, 4 ou 5"
Docmd.cancelevent
end select

mas nao funcionou!

Bom dia, Krauss
A função Left (esquerda) devolve os caracteres da esquerda. Tantos quantos os indicados no argumento.
Ao utilizar Select Case Left(NomeControlo,3) é devolvido "xxx"
Para devolver o 3º caracter, utilize a função Mid

Poderia descrevê-la pra mim por favor Alexandre! rs

Desculpa ignorância precoce!

Mid(NomeControlo,3,1)

Mid
controle
começo da validação
fim da validação

exemplos:



Mid ("Tech on the Net", 1, 4) would return "Tech"



Mid ("Alphabet", 5, 2) would return "ab"



Mid ("Alphabet", 5) would return "abet"

Poderia descrever por favor..

Meu campo se chama 'Telefone_Fixo' e quero que o sistema retorne a mensagem "O número inserido não é válido", caso o terceiro caractere comece com 0, 1, 6, 7, 8 ou 9.

Obrigado!

Boa tarde, Krauss
pretendia verificar o 1º dígito, depois pretendia verificar o 3º dígito
O que pretende verificar?

Recapitulando...

Tenho um campo chamado 'Telefone_Fixo' e está sem máscara de entrada.

A pessoa deverá inserir 10 dígitos nesse campo sendo 2 do prefixo e 8 do número.. ex: 1151234567

Eu gostaria que o sistema verificasse (Após atualizar) o terceiro dígito, somente o 3º.
-------------------------------------------------------------------------------------------------------
- O terceiro dígito pode começar com 2, 3, 4 ou 5..

- Caso comece com 0, 1, 6, 7, 8 ou 9, o sistema deverá emitir a msg:
"O número inserido não é válido", pois se trata de números de celulares e o campo é pra inserir um nº de tel fixo certo?

Bom é isso ai...

Boa tarde, Krauss
Lembrem-se (você e quem ler esta mensagem, supondo que sejam todos os que procuram conhecimento no fórum) que tem de falar para a bd com todos os detalhes consistentes, senão, é uma sorte que acerte.
Exemplo: Disse que o sistema devia verificar somente o 3º dígito e, depois coloca condição também para o 1º dígito. Se é somente o 3º dígito, o 1º não importa qual seja; se também é o 1º dígito, deixa de ser somente o 3º. Estes erros de português traduzem-se em erros de código e desvios do programa!
Sendo eu a alvitrar as condições que você pretende, suponho que o 1º dígito não pode começar por 0, 1, 6, 7, 8 ou 9 e o 3º dígito só pode ser (e não começar, pois o começo é no 1º algarismo) 2, 3, 4 ou 5.. (imagino que termina em 9, ou em 0?) e supondo que o controlo onde digita o número se chama TxtTelefoneFixo. Utilize o seguinte código:
select case left(TxtTelefoneFixo,1)
case 0, 1, 6, 7, 8, 9
msgbox "O número do telefone fixo não pode começar por 0, 1, 6, 7, 8 nem 9."
docmd.cancelevent
case else
selec case mid(TxttelefoneFixo,3,1)
case 2,3,4,5,6,7,8,9
case else
msgbox "O 3º algarismo do número do telefone fixo não pode ser 2, 3, 4, 5, 6, 7, 8 nem 9."
docmd.cancelevent
end select
end select

Agora sim meu amigo neves!!!

O código ficou assim:

Select Case Mid(Telefone_Fixo, 3, 1)
Case 2, 3, 4, 5
Case Else
MsgBox "O valor inserido não corresponde a um número de telefone fixo. Por favor, informe um número válido!", vbExclamation, " Aviso"
DoCmd.CancelEvent
End Select

Muito obrigado pela ajuda e principalmente pela paciência!

Abraços!