[Resolvido]Proibir conjunto de caracter ao mesmo tempo

Bom Dia Pessoal, tudo bem?

Tenho uma dúvida:

Eu tenho um campo no meu form chamado "NumPed" (mas é de texto) e nele eu entro com o numero do pedido + uma letra, por exemplo: R1234, T5678, AS12, e o que mais for necessário a ser digitado pelo usuário... ai eu utilizo como automatico do sistema duas criações de pedido e elas começam com TE..... (para transformações) e E..... (pra estoque) ou seja, eu gostaria que quando a pessoa digitasse TE no "NumPed" do formulario nao fosse permitido. eu tentei usar um exemplo do fórum para proibir teclas, mas dai ele proibe ela em qualquer lugar tipo T5555, não é permitido ou E5555 também não. ou 123T456E nao permite.... e eu só gostaria de proibir o TE..... alguma coisa e E... alguma coisa.


Desde ja muito obrigado.

Veja se assim dá:

Private Sub nomedocampo_KeyPress(KeyAscii As Integer)
Const ChNaoPermitidos = "TE"
If InStr(ChNaoPermitidos, Chr(KeyAscii)) > 0 Then
KeyAscii = 0
Call MsgBox("Caracteres não permitidos...", vbCritical, "Aviso")
End If
End Sub

Obrigado Vieira, mas era bem este que eu tinha tentado, rsrs....

Mas ele Proibe as duas letras tipo o T e o E e em qualquer parte do campo, eu gostaria que fosse proibido exatamente o TE+numeros e o E+numeros. mas permitir que seja colocado por exemplo numeroTEnumero ou numeroEnumero.

Eu coloquei o código assim, quase funcionou, exceto pelo fato de que o E proibe em qualquer posição.

Private Sub Numero_do_Pedido_KeyPress(KeyAscii As Integer)

Const ChNaoPermitidos = "TE"
If InStr(ChNaoPermitidos, Chr(KeyAscii)) > 1 Then
KeyAscii = 0
Call MsgBox("Caracter não permitidos...", vbCritical, "Aviso")
End If

End Sub

Try this one:

Private Sub nomedocampo_KeyPress(KeyAscii As Integer)
If Left(SeuCampo, 2) = "TE" Or Left(SeuCampo, 1) = "E" Then
KeyAscii = 0
MsgBox "Caracteres não permitidos...", vbCritical, "Aviso"
End If
End Sub

Private Sub nomedocampo_KeyPress(KeyAscii As Integer)
Const ChNaoPermitidos = "T-E"
If InStr(ChNaoPermitidos, Chr(KeyAscii)) > 0 Then
KeyAscii = 0
Call MsgBox("Caracteres não permitidos...", vbCritical, "Aviso")
End If
End Sub

Separando veja se dá

Obrigado pelo retorno.

Tentei as duas formas, e não deu certo... a do Vieira continuou igual, porém proibe o hifem tb.

ja o do criquio não bloqueou nenhum do dois.

Boa tarde,

Não percebi a dúvida.
No campo NumPed introduz R1234, T5678, AS12, e o que mais for necessário
Onde quer que limite a introdução de TE e E? Qual o critério de escolha do filtro para TE e para E?

oi Alexandre tudo bem? obrigado pela atenção.

Eu gostaria que fosse limitado a introdução no início, por exemplo:

Permitidos: 12T34, 5TE678
Negados: TE1234, TE678, TE66666 ou E1234, E4444, E33333

pois estes digitos com TE e E no início faz parte de uma rotina automática dentro do sistema.

Tente no evento "Após atualizar" do campo:

If Left(Me.NomeDoCampo, 1) = "E" Or Left(Me.NomeDoCampo, 2) = "TE" Then
MsgBox "Caracteres não válidos"
Me.NomeCampo = Null
Else
Exit Sub
End If

Pode utilizar o código do criquio ou
Em vez de
If Left(Me.NomeDoCampo, 1) = "E" Or Left(Me.NomeDoCampo, 2) = "TE" Then
Pode colocar
If NomeControlo Like "E*" or NomeControlo Like "TE*" Then
Cumprimentos,

Ò colega desculpe que não o abandonei, não. Perdi o tino de este tópico. Acontece quando na mesma altura existem outros postes. Nunca mais me lembrei de si. Desculpe.

Não tem problema não Vieira, eu entendo que vocês tem diversos afazeres.... Criquio testei o código depois de atualizar e funcionou perfeitinho.... Muito Obrigado...

Alexandre... vou testar o seu agora.... e ja te digo se deu certo...

de qualquer forma agradeço a todos pela a ajuda...
Muito obrigado mesmo.

Então coloque o resolvido por favor.

Posts Resolvido duas vezes... Alexandre o seu também funcionou....

Novamente muito obrigado.. a todos...

Obrigado pelo retorno e desculpe-me mais uma vez.

Capaz Vieira... nao se preocupe... Obrigado..