[Resolvido]Como cancelar a digitação num campo

Boa tarde

Tenho este comando ao sair do campo, para não deixar gravar Nº de telefone cujo primeiro digito seja diferente do numero "2".

Private Sub TELEFONE_1_Exit(Cancel As Integer)
If left(TELEFONE_1, 1) <> 2 Then
MsgBox "Só Nº Telefone Fixos Começados por 2 ", vbInformation, "Aviso"
Me.TELEFONE_1.SetFocus
Me.TELEFONE_1 = Null
Exit Sub
Else
End If


Funciona mas só ao sair do campo e depois de ter digitado todo o número.

Como detetar logo ao digitar o primeiro numero se é diferente a "2" e cancelar logo ai a digitação?


Obrigado

Bom dia Assis....saudações....

Que tal colocar o código, após perder o foco ?? e habilitar o próximo campo dessa forma: seucamposeguinte.enable=true ?


Desse jeito:

Private Sub Telefone_LostFocus()
If Left(Telefone_1, 1) <> 2 Then
MsgBox "Só Nº Telefone Fixos Começados por 2 ", vbInformation, "Aviso"
Me.Telefone_1.SetFocus
Me.Telefone_1 = Null
Exit Sub
Else
proximocampo.Enable = True
End If
End Sub

Penso eu, que travaria legal.

abraços.

Viva Silvio

Acho que não me fiz entender. É um form de introdução de dados.
Quando o campo "Telefone" recebe o foco está nulo. E eu queria que logo no primeiro digito não deixe digitar o Nº "2"
Obrigado

Observação o Campo tem mascara de introdução assim: 000\ 000\ 000;0;_

Boa tarde
Norberto

Não resulta
Obrigado

Olá Experimente assim:

Private Sub Telefone_1_KeyPress(KeyAscii As Integer)
If Len(Me!Telefone_1 & "") = 0 Then If KeyAscii = 50 Then KeyAscii = 0
End Sub


Sucesso!

Avelino

Peço desculpa mas afinal nao resulta.

0 Campo é para por um numero assim: 213 222 789
E com a formula que o Avelino me passou não admite o 2 em lado nenhum

A ideia é o primeiro ser só "2", não deixar digitar 3, ou 4

Obrigado

Bom dia Avelino

Nem tudo é possivel ?

Obrigado

Bom dia.....Assis e Avelino.

Apenas uma sugestão Assis.....o campo na tabela Telefone esta em texto ou em número ? se for texto, trave o primeiro digito na máscara de entrado sendo 2 (200\ 000\ 000;0;_) ! O que você acha da ideia ?

Caso ainda não tenha resolvido, eis uma forma que talvez atenda, no evento "Ao alterar"(Change):

If Left(Me.NomeDoCampo.Text, 1) <> 2 Then
    Me.NomeDoCampo = Null
End If

Boa tarde Criquio

É isso aí meu grato

Obrigado

Resolvido definitivo

Legal. Grato pelo retorno.