ACC: Função de exemplo para remover o alfabeto de um campo numérico

IMPORTANTE: Este artigo foi traduzido por um sistema de tradução automática (também designado por Machine Translation ou MT), não tendo sido portanto traduzido ou revisto por pessoas. A Microsoft possui artigos traduzidos por aplicações (MT) e artigos traduzidos por tradutores profissionais, com o objetivo de oferecer em português a totalidade dos artigos existentes na base de dados de suporte. No entanto, a tradução automática não é sempre perfeita, podendo conter erros de vocabulário, sintaxe ou gramática. A Microsoft não é responsável por incoerências, erros ou prejuízos ocorridos em decorrência da utilização dos artigos MT por parte dos nossos clientes. A Microsoft realiza atualizações freqüentes ao software de tradução automática (MT). Obrigado.

Clique aqui para ver a versão em Inglês deste artigo: 99938
Este artigo foi arquivado. É oferecido "como está" e não será mais atualizado.
Sumário
Avançadas: Requer especialista de codificação, interoperabilidade e habilidades de multiusuário.

Este artigo mostra como criar uma função do Microsoft Access de exemplo chamada RemoveAlphas() para remover caracteres alfa ou não-numéricos, de uma seqüência alfanumérica. Todos os caracteres não numéricos serão removidos.

Um uso comum para a função RemoveAlphas() é remover os parênteses, traços e espaços de um campo de número ou número da previdência social telefone. As seguintes seqüências de contenham parênteses, traços e espaços:
"(206) 635-7050"
"206-635-7050"
"535-87-4529"
Após a função RemoveAlphas() é executada, essas cadeias de caracteres será:
"2066357050"
"2066357050"
"535874529"
Este artigo presume que você esteja familiarizado com Visual Basic for Applications e com a criação de aplicativos do Microsoft Access usando as ferramentas de programação fornecidas com o Microsoft Access. Para obter mais informações sobre o Visual Basic for Applications, consulte sua versão do manual "Criando aplicativos com o Microsoft Access".

Observação: o Visual Basic for Applications é denominado Access Basic no Microsoft Access versões 1.x e 2.0. Para obter mais informações sobre o Access Basic, consulte o manual "Introdução à programação" no Microsoft Access versão 1.x ou no manual "Building Applications" no Microsoft Access versão 2.0
Mais Informações
O exemplo a seguir demonstra como criar a função RemoveAlphas() e como usá-la enquanto está sendo inseridos dados, ou em uma consulta atualização para remover caracteres não numéricos de números de telefone em uma tabela.

Como criar a função RemoveAlphas()

  1. Crie um novo módulo.
  2. No menu Inserir, clique em procedimento.

    Observação: No Microsoft Access 2.0 ou anterior, no menu Editar, clique em New Procedure.
  3. Digite RemoveAlphas na caixa nome e selecione função na caixa tipo. Clique em OK.
  4. Digite a função a seguir na janela de módulo:
               Function RemoveAlphas (ByVal AlphaNum as Variant)         Dim Clean As String         Dim Pos, A_Char$         Pos = 1         If IsNull(AlphaNum) Then Exit Function         For Pos = 1 To Len(AlphaNum)            A_Char$ = Mid(AlphaNum, Pos, 1)            If A_Char$ >= "0" And A_Char$ <= "9" Then              Clean$ = Clean$ + A_Char$            End If         Next Pos         RemoveAlphas = Clean$      End Function						
  5. Salve o módulo com qualquer nome exclusivo.

Como usar a função RemoveAlphas() na entrada de dados

Você pode usar a função RemoveAlphas() para remover parênteses ou traços enquanto números de telefone estão sendo digitados em um campo.

Para um campo chamado Phone, adicione o seguinte código à propriedade AfterUpdate à caixa de texto telefone em um formulário:
   Private Sub Phone_AfterUpdate()      Me![Phone] = RemoveAlphas(Me![Phone])   End Sub				

Como usar a função RemoveAlphas() em uma consulta atualização

  1. Crie uma nova consulta com base na tabela com o campo número de telefone.
  2. Coloque o campo número de telefone na primeira coluna da grade da consulta.
  3. No menu consulta, clique em Atualizar.
  4. Na linha Atualizar para, digite o seguinte para um campo denominado telefone:
    RemoveAlphas([Phone])
  5. Execute a consulta.
SSN hifens

Propriedades

ID do Artigo: 99938 - Última Revisão: 12/04/2015 09:29:12 - Revisão: 2.3

Microsoft Access 1.0 Standard Edition, Microsoft Access 1.1 Standard Edition, Microsoft Access 2.0 Standard Edition, Microsoft Access 95 Standard Edition, Microsoft Access 97 Standard Edition

  • kbnosurvey kbarchive kbmt kbinfo kbprogramming KB99938 KbMtpt
Comentários