Reading time: 2 minutes
Como definir a Propriedade de um TextBox para não Receber Números
Definir o tipo de dado a ser inserido a um Banco de Dados é tarefa importante para o desenvolvedor Veja na íntegra este artigo. Como definir a Propriedade de um TextBox para não Receber Números
A customização da Máscara de Entrada de uma caixa de texto no Access pode economizar linhas de programação para tratar possíveis erros de digitação.
Foi pensando nisso que estamos trazendo este artigo para mostrar a você que há 2 maneiras para que possamos restringir os dados a serem inseridos em um banco de dados.
Neste nosso exemplo vamos mostrar como um campo de um TextBox deve receber somente caractere.
Vamos ao tutorial então….
1ª Forma: Folha de Propriedade do TextBox
A primeira opção que podemos restringir estes dados é através da opção Máscara de Entrada da propriedade deste campo.
No exemplo abaixo, se quisermos parametrizar para que o campo ‘Iniciais Nome’ receba apenas 3 caracteres do tipo texto, podemos customizar a Máscara de entrada.
a) Podemos definir este campo para ser Obrigatório, para isto devemos utilizar o caractere “L”
b) Podemos definir este campo para ser Opcional, para isto devemos utilizar o caractere “?”
2ª Forma – Através do Código VBA.
Caso você queira executar este procedimento via VBA, há um código que executa esta função de forma muito simples.
Primeiramente devemos atribuir este código ao evento ‘Ao Alterar’ do TextBox.
Após declararmos a variável que vai receber a informação digitada pelo usuário, o código verifica se esta informação foi digitada ou não.
Caso seja digitada ele vai ara um outra condicional. Nesta nova condição o código verificar, por meio da função Val() se á algum número dentro da cadeia.
Se for encontrado, a função emite uma mensagem “Este campo não admite números!”. Agora se não for encontrado números, o código entra em uma outra condicional e através da função InstR() ele faz uma comparação com a última posição do caractere digitado na caixa de texto.
Se realmente for igual a 0 ele sai do procedimento.
Veja o código abaixo
Private Sub txtIniciais_Change()
Dim nome As String
nome = Me!txtIniciais
If IsNull(nome) Or nome = "" Then
Exit Sub
Else
If Val(Mid(nome, Len(nome)) = 0 Then
If InStr(Mid(nome, Len(nome)), "0") = o Then
Exit Sub
End If
MsgBox "Este campo não aceita números!!"
Me!txtIniciais.Undo
End If
End If
End SubAté o próximo tutorial!
Um forte abraço!
Aldir Oliveira
