[Resolvido]Código VBA para avisar quando o usuário digitar um determinado caractere na caixa de texto.

Thel 20/8/2018, 21:43

Thel: Intermediário; Respeito às regras :

Sexo :
Localização :
Mensagens : 114
Registrado : 19/06/2012

Mensagem nº1

[Resolvido]Código VBA para avisar quando o usuário digitar um determinado caractere na caixa de texto.

Mensagem Thel 20/8/2018, 21:43

Olá a todos!

Alguém aí teria algum código VBA que exiba uma mensagem quando for digitado determinado caractere dentro de uma caixa de texto?
Exemplo: eu quero que quando o usuário digitar o caractere traço de menos ("-"), sozinho ou acompanhado de outros caracteres dentro de um determinado texto na caixa de texto, apareça a mensagem: "não é permitido o uso do traço de menos '-'".

Grato.

JOSEMORAES 20/8/2018, 22:01

JOSEMORAES

JOSEMORAES: Avançado; Respeito às regras :

Sexo :
Localização :
Mensagens : 220
Registrado : 23/02/2011

Mensagem nº2

Re: [Resolvido]Código VBA para avisar quando o usuário digitar um determinado caractere na caixa de texto.

Mensagem JOSEMORAES 20/8/2018, 22:01

Porque não usa "Ao pressionar a tecla".

Veja esse código:

Public Function SemLetras(Key As Integer) As String
Const NumerosPermitidos$ = "0123456789"
SemLetras1 = Key
If Key <> 8 Then
If InStr(NumerosPermitidos$, Chr(Key)) = 0 Then
SemLetras1 = 0
End If
End If
End Function

Veja que somente será permitido numeros, caso deseje acrescentar mais algum carácter fique a vontade

La no seu campo use esse função "Ao pressionar a tecla", assim caso o usuário desejar pressionar a tecla "-", não será emitido aviso, mas não vai deixa-lo digitar

.................................................................................
[Resolvido]Código VBA para avisar quando o usuário digitar um determinado caractere na caixa de texto. 10715412

Thel 20/8/2018, 23:06

Thel

Thel: Intermediário; Respeito às regras :

Sexo :
Localização :
Mensagens : 114
Registrado : 19/06/2012

Mensagem nº3

Re: [Resolvido]Código VBA para avisar quando o usuário digitar um determinado caractere na caixa de texto.

Mensagem Thel 20/8/2018, 23:06

Tem como você adaptar esse código para mim?
No caso eu quero que faça essa verificação no evento AO CLICAR do botão BotaoConsultar. O nome da caixa de texto onde o dado será digitado é txtTudo.

Eu quero somente que apareça uma mensagem de erro, se o usuário digitar o traço de menos ("-") na caixa de texto txtTudo. Mesmo que seja digitado o traço de menos junto com outros caracteres, por exemplo: ABC-012, A-0001, ABCD-0 ou o traço de menos sozinho.

Abraços e obrigado pela atenção! Very Happy

Thel 21/8/2018, 14:16

Thel

Thel: Intermediário; Respeito às regras :

Sexo :
Localização :
Mensagens : 114
Registrado : 19/06/2012

Mensagem nº4

Re: [Resolvido]Código VBA para avisar quando o usuário digitar um determinado caractere na caixa de texto.

Mensagem Thel 21/8/2018, 14:16

Eu criei este código VBA e deu certo:

If [TxtTudo] = "-" Then
DoCmd.Beep
MsgBox "É PROIBIDO O USO DO TRAÇO '-'." , vbCritical, "ERRO"
Me.TxtTudo = Null
DoCmd.GoToControl "txtTudo"

Porém não funciona se eu digitar o traço com outros caracteres, por exemplo: -abc, abc-, a-bc, ab-c. Funciona somente se eu digitar o traço sozinho.

Alguém teria uma sugestão para a solução desse problema?

**Silvio** 21/8/2018, 14:38

Silvio

Silvio: Developer; Respeito às regras :

Sexo :
Localização :
Mensagens : 5078
Registrado : 20/04/2011

Mensagem nº5

Re: [Resolvido]Código VBA para avisar quando o usuário digitar um determinado caractere na caixa de texto.

Mensagem Silvio 21/8/2018, 14:38

Bom dia...

Não sei se vai funfar...mas teste ai....

If [TxtTudo] = "-" or "*-" or "-*"Then

.................................................................................
Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
www.maximoaccess.com/t860-resolucao-de-topicos

"Quase tudo é possível quando se tem determinação e força de vontade. Não desista tão rápido."

Thel 21/8/2018, 14:48

Thel

Thel: Intermediário; Respeito às regras :

Sexo :
Localização :
Mensagens : 114
Registrado : 19/06/2012

Mensagem nº6

Re: [Resolvido]Código VBA para avisar quando o usuário digitar um determinado caractere na caixa de texto.

Mensagem Thel 21/8/2018, 14:48

Infelizmente não, deu a mensagem "erro em tempo de execução 13. tipos incompatíveis".

FranklinJSP 21/8/2018, 14:53

FranklinJSP

FranklinJSP: Avançado; Respeito às regras :

Sexo :
Localização :
Mensagens : 479
Registrado : 25/02/2016

Mensagem nº7

Re: [Resolvido]Código VBA para avisar quando o usuário digitar um determinado caractere na caixa de texto.

Mensagem FranklinJSP 21/8/2018, 14:53

Tente isso

Código:: Dim X X = InStr(1, [TxTudo], "-") If X > 0 Then DoCmd.Beep MsgBox "É PROIBIDO O USO DO TRAÇO '-'." , vbCritical, "ERRO" Me.TxtTudo = Null Me.TxtTudo.SetFocus End If

Espero ter ajudado
Saludos desde Bolivia

.................................................................................
Meu Português não é muito bom,
mas eu gosto de colaborar... em qualquer idioma
Smile

"Access... minha paixão"

Thel 21/8/2018, 15:05

Thel

Thel: Intermediário; Respeito às regras :

Sexo :
Localização :
Mensagens : 114
Registrado : 19/06/2012

Mensagem nº8

Re: [Resolvido]Código VBA para avisar quando o usuário digitar um determinado caractere na caixa de texto.

Mensagem Thel 21/8/2018, 15:05

O código:
Dim X
X = InStr(1, [TxTudo], "-")
If X > 0 Then
DoCmd.Beep
MsgBox "É PROIBIDO O USO DO TRAÇO '-'." , vbCritical, "ERRO"
Me.TxtTudo = Null
Me.TxtTudo.SetFocus
End If

Deu erro nesta parte:
X = InStr(1, [TxTudo], "-")

O erro:
"erro em tempo de execução 2465: o Microsoft Access não pode localizar o campo '|1' referido em sua expressão.

FranklinJSP 21/8/2018, 15:07

FranklinJSP

FranklinJSP: Avançado; Respeito às regras :

Sexo :
Localização :
Mensagens : 479
Registrado : 25/02/2016

Mensagem nº9

Re: [Resolvido]Código VBA para avisar quando o usuário digitar um determinado caractere na caixa de texto.

Mensagem FranklinJSP 21/8/2018, 15:07

X = InStr(1, [TxTudo], "-")

faltou "t" em TxtTudo

X = InStr(1, [TxtTudo], "-")

.................................................................................
Meu Português não é muito bom,
mas eu gosto de colaborar... em qualquer idioma
Smile

"Access... minha paixão"

Thel 21/8/2018, 15:12

Thel

Thel: Intermediário; Respeito às regras :

Sexo :
Localização :
Mensagens : 114
Registrado : 19/06/2012

Mensagem nº10

Re: [Resolvido]Código VBA para avisar quando o usuário digitar um determinado caractere na caixa de texto.

Mensagem Thel 21/8/2018, 15:12

Até eu não prestei atenção no nome do campo! rsrsrsrs...
Show de bola!
Como dizemos aqui no Brasil: teu código "FUNFOU" legal! rsrsrsrs...

Obrigado pela tua valiosa atenção e SALUDO DESDE BRAZIL!

cheers

FranklinJSP 21/8/2018, 15:14

FranklinJSP

FranklinJSP: Avançado; Respeito às regras :

Sexo :
Localização :
Mensagens : 479
Registrado : 25/02/2016

Mensagem nº11

Re: [Resolvido]Código VBA para avisar quando o usuário digitar um determinado caractere na caixa de texto.

Mensagem FranklinJSP 21/8/2018, 15:14

Que bom!!!
lol!

.................................................................................
Meu Português não é muito bom,
mas eu gosto de colaborar... em qualquer idioma
Smile

"Access... minha paixão"

JOSEMORAES 21/8/2018, 16:31

JOSEMORAES

JOSEMORAES: Avançado; Respeito às regras :

Sexo :
Localização :
Mensagens : 220
Registrado : 23/02/2011

Mensagem nº12

Re: [Resolvido]Código VBA para avisar quando o usuário digitar um determinado caractere na caixa de texto.

Mensagem JOSEMORAES 21/8/2018, 16:31

Na minha humilde opinião, acho desnecessário ter que deixar o usuário, preencher o campo e depois clicar no botão, para então sim dar uma mensagem de proibição de caracteres.

Continuo com proposta de inibir esse caractere na ação "Ao pressionar a tecla"

Mas claro, é apenas a minha opinião

Valeu, bons estudos

.................................................................................
[Resolvido]Código VBA para avisar quando o usuário digitar um determinado caractere na caixa de texto. 10715412

**Alvaro Teixeira** 21/8/2018, 16:46

Alvaro Teixeira

Alvaro Teixeira: Moderador Global; Respeito às regras :

Sexo :
Localização :
Mensagens : 7920
Registrado : 15/03/2013

Mensagem nº13

Re: [Resolvido]Código VBA para avisar quando o usuário digitar um determinado caractere na caixa de texto.

Mensagem Alvaro Teixeira 21/8/2018, 16:46

Olá a todos,

Jose, pesquise no fórum ao primir a tecla.

Tema diversa vezes abordado.

cheers

Thel 21/8/2018, 17:19

Thel

Thel: Intermediário; Respeito às regras :

Sexo :
Localização :
Mensagens : 114
Registrado : 19/06/2012

Mensagem nº14

Re: [Resolvido]Código VBA para avisar quando o usuário digitar um determinado caractere na caixa de texto.

Mensagem Thel 21/8/2018, 17:19

Vou tentar essa ideia de José Moraes, porque é bem mais prático mesmo. No caso o código no evento AO PRESSIONAR TECLA ficaria como? Este é o código atual:
Dim X
X = InStr(1, [TxtTudo], "-")
If X > 0 Then
DoCmd.Beep
MsgBox "É PROIBIDO O USO DO TRAÇO '-'." , vbCritical, "ERRO"
Me.TxtTudo = Null
Me.TxtTudo.SetFocus
End If

Observação:
No evento AO PRESSIONAR TECLA já tenho este código inserido para forçar a digitação em letras maiúsculas:
KeyAscii = Asc(UCase(Chr(KeyAscii)))

Como ficaria os dois códigos juntos?

**Alvaro Teixeira** 21/8/2018, 18:06

Alvaro Teixeira

Alvaro Teixeira: Moderador Global; Respeito às regras :

Sexo :
Localização :
Mensagens : 7920
Registrado : 15/03/2013

Mensagem nº15

Re: [Resolvido]Código VBA para avisar quando o usuário digitar um determinado caractere na caixa de texto.

Mensagem Alvaro Teixeira 21/8/2018, 18:06

Thel, não fez uma Busca aqui no fórum!

Veja por exemplo, é só ajustar:
https://www.maximoaccess.com/t2898-resolvidoproibir-conjunto-de-caracter-ao-mesmo-tempo

Abraço a todos

JOSEMORAES 21/8/2018, 18:48

JOSEMORAES

JOSEMORAES: Avançado; Respeito às regras :

Sexo :
Localização :
Mensagens : 220
Registrado : 23/02/2011

Mensagem nº16

Re: [Resolvido]Código VBA para avisar quando o usuário digitar um determinado caractere na caixa de texto.

Mensagem JOSEMORAES 21/8/2018, 18:48

KeyAscii = Asc(UCase(Chr(KeyAscii)))
KeyAscii = SemLetras(KeyAscii)

.................................................................................
[Resolvido]Código VBA para avisar quando o usuário digitar um determinado caractere na caixa de texto. 10715412

**Alvaro Teixeira** 22/8/2018, 11:21

Alvaro Teixeira

Alvaro Teixeira: Moderador Global; Respeito às regras :

Sexo :
Localização :
Mensagens : 7920
Registrado : 15/03/2013

Mensagem nº17

Re: [Resolvido]Código VBA para avisar quando o usuário digitar um determinado caractere na caixa de texto.

Mensagem Alvaro Teixeira 22/8/2018, 11:21

Olá a todos,

Thel, seria algo assim:

Código:: Private Sub NomeCliente_KeyPress(KeyAscii As Integer) 'ahteixeira 2018 - MaximoAccess If Chr(KeyAscii) = "-" Then KeyAscii = 0 MsgBox "Caracter não permitido.", vbCritical, "Aviso" End If End Sub

Montei um exemplo

Abraço a todos

Anexos

AoPrimirTecla.zip: Você não tem permissão para fazer download dos arquivos anexados.; (20 Kb) Baixado 21 vez(es)

Thel 22/8/2018, 19:36

Thel

Thel: Intermediário; Respeito às regras :

Sexo :
Localização :
Mensagens : 114
Registrado : 19/06/2012

Mensagem nº18

Re: [Resolvido]Código VBA para avisar quando o usuário digitar um determinado caractere na caixa de texto.

Mensagem Thel 22/8/2018, 19:36

Prezados amigos José Moraes, Sílvio, FranklinJSP, AhTeixeira,

Problema resolvido!

O código para o botão de comando que funcionou perfeitamente:
Autor: FranklinJSP
Dim X
X = InStr(1, [TxtTudo], "-")
If X > 0 Then
DoCmd.Beep
MsgBox "É PROIBIDO O USO DO TRAÇO '-'." , vbCritical, "ERRO"
Me.TxtTudo = Null
Me.TxtTudo.SetFocus
End If

O código para o evento AO PRESSIONAR TECLA da caixa de texto TxtTudo que funcionou perfeitamente:
Autor: Eu
If KeyAscii = 45 Then
MsgBox "É PROIBIDO O USO DO TRAÇO '-'." , vbCritical, "ERRO"
KeyAscii = 0
Me.TxtTudo.Undo
Me.TxtTudo.SetFocus
Else
End If

Grato pela contribuição de cada um de vocês.

Um forte abraço! cheers

FranklinJSP 23/8/2018, 15:55

FranklinJSP

FranklinJSP: Avançado; Respeito às regras :

Sexo :
Localização :
Mensagens : 479
Registrado : 25/02/2016

Mensagem nº19

Re: [Resolvido]Código VBA para avisar quando o usuário digitar um determinado caractere na caixa de texto.

Mensagem FranklinJSP 23/8/2018, 15:55

Que bom!!! Funcionou!!!

lol!

.................................................................................
Meu Português não é muito bom,
mas eu gosto de colaborar... em qualquer idioma
Smile

"Access... minha paixão"

Thel 23/8/2018, 15:58

Thel

Thel: Intermediário; Respeito às regras :

Sexo :
Localização :
Mensagens : 114
Registrado : 19/06/2012

Mensagem nº20

Re: [Resolvido]Código VBA para avisar quando o usuário digitar um determinado caractere na caixa de texto.

Mensagem Thel 23/8/2018, 15:58

**Alvaro Teixeira** 23/8/2018, 16:13

Alvaro Teixeira

Alvaro Teixeira: Moderador Global; Respeito às regras :

Sexo :
Localização :
Mensagens : 7920
Registrado : 15/03/2013

Mensagem nº21

Re: [Resolvido]Código VBA para avisar quando o usuário digitar um determinado caractere na caixa de texto.

Mensagem Alvaro Teixeira 23/8/2018, 16:13

Olá a todos,

Thel , obrigado pelo retorno, o fórum agradece.

cheers

Thel 23/8/2018, 16:17

Thel

Thel: Intermediário; Respeito às regras :

Sexo :
Localização :
Mensagens : 114
Registrado : 19/06/2012

Mensagem nº22

Re: [Resolvido]Código VBA para avisar quando o usuário digitar um determinado caractere na caixa de texto.

Mensagem Thel 23/8/2018, 16:17

Obrigado a você, A. H. Teixeira, e a todos os colaboradores!

lol!

Conteúdo patrocinado

Conteúdo patrocinado

Conteúdo patrocinado

Mensagem nº23

Re: [Resolvido]Código VBA para avisar quando o usuário digitar um determinado caractere na caixa de texto.

Mensagem Conteúdo patrocinado

MaximoAccess

MaximoAccess

MaximoAccess

[Resolvido]Código VBA para avisar quando o usuário digitar um determinado caractere na caixa de texto.

[Resolvido]Código VBA para avisar quando o usuário digitar um determinado caractere na caixa de texto.

Re: [Resolvido]Código VBA para avisar quando o usuário digitar um determinado caractere na caixa de texto.

Re: [Resolvido]Código VBA para avisar quando o usuário digitar um determinado caractere na caixa de texto.

Re: [Resolvido]Código VBA para avisar quando o usuário digitar um determinado caractere na caixa de texto.

Re: [Resolvido]Código VBA para avisar quando o usuário digitar um determinado caractere na caixa de texto.

Re: [Resolvido]Código VBA para avisar quando o usuário digitar um determinado caractere na caixa de texto.

Re: [Resolvido]Código VBA para avisar quando o usuário digitar um determinado caractere na caixa de texto.

Re: [Resolvido]Código VBA para avisar quando o usuário digitar um determinado caractere na caixa de texto.

Re: [Resolvido]Código VBA para avisar quando o usuário digitar um determinado caractere na caixa de texto.

Re: [Resolvido]Código VBA para avisar quando o usuário digitar um determinado caractere na caixa de texto.

Re: [Resolvido]Código VBA para avisar quando o usuário digitar um determinado caractere na caixa de texto.

Re: [Resolvido]Código VBA para avisar quando o usuário digitar um determinado caractere na caixa de texto.

Re: [Resolvido]Código VBA para avisar quando o usuário digitar um determinado caractere na caixa de texto.

Re: [Resolvido]Código VBA para avisar quando o usuário digitar um determinado caractere na caixa de texto.

Re: [Resolvido]Código VBA para avisar quando o usuário digitar um determinado caractere na caixa de texto.

Re: [Resolvido]Código VBA para avisar quando o usuário digitar um determinado caractere na caixa de texto.

Re: [Resolvido]Código VBA para avisar quando o usuário digitar um determinado caractere na caixa de texto.

Re: [Resolvido]Código VBA para avisar quando o usuário digitar um determinado caractere na caixa de texto.

Re: [Resolvido]Código VBA para avisar quando o usuário digitar um determinado caractere na caixa de texto.

Re: [Resolvido]Código VBA para avisar quando o usuário digitar um determinado caractere na caixa de texto.

Re: [Resolvido]Código VBA para avisar quando o usuário digitar um determinado caractere na caixa de texto.

Re: [Resolvido]Código VBA para avisar quando o usuário digitar um determinado caractere na caixa de texto.

Re: [Resolvido]Código VBA para avisar quando o usuário digitar um determinado caractere na caixa de texto.

Tópicos semelhantes

Tópicos semelhantes

Pesquisar

Resultados por: Mensagens Tópicos
Pesquisa avançada