Usando Access

Expressões Regulares no Microsoft Access

Nota importante: para ter acesso aos vídeos e arquivos exemplos deste site, adquira um dos planos apresentados abaixo. Você pode comprar em até 5x no Cartão de Crédito, através do Paypal. 

Veja como comprar e saiba mais sobre o material oferecido,  clicando aqui.

Saber utilizar Expressões Regulares no Access, geralmente nos livra de ter que criar códigos mirabolantes e com isso nos poupa um enorme tempo de programação. As Expressões Regulares são utilizadas, basicamente, para se obter determinada sequência de caracteres dentro de um texto ou para validar uma entrada de informação.    

Por exemplo, vamos supor que precisemos extrair os números contidos na seguinte frase:

"O Brasil perdeu de 7 x 1 para a Alemanha em 2014"

Pense aí qual seria a programação utilizada por você, para extrair esses números (7, 1 e 2014) . Com a função oferecida aqui no artigo, resolvemos a questão com pouquíssimas linhas. Veja!

Dim strTexto$

Dim varResultado as Variant 

strTexto = "O Brasil perdeu de 7 x 1 para a Alemanha em 2014"

varResultado = fncER(strTexto,"\d+",false)

A função fncER() irá retornar os números, separados por uma barra vertical 7|1|2014

Observe que \d+ é a nossa expressão.  Expressão é um conjunto de caracteres sequenciados que determina a regra a ser aplicada na busca.  A interpretação de \d+ é: - buscar números de qualquer tamanho na string.

Agora, vamos supor que precisemos validar um campo de entrada de senha.  A senha deve ter, obrigatoriamente, o comprimento de 6 caracteres e pelo menos um número.  Observe com atenção, a expressão em vermelho, aplicada na função:

Private Sub txtSenha_BeforeUpdate(Cancel As Integer)
If fncER(me!txtSenha,"^(?=.*\d).{6}$", true) = false then
   MsgBox "A senha não atende as regras...", vbInformation, "Aviso"
   cancel = true
End If

End Sub

Interpretação da expressão utilizada, para atender as regras propostas:

Se a senha digitada pelo usuário não contiver os 6 caracteres e ao menos um número, a função fncER() retornará o valor FALSE, impedindo assim, o prosseguimento no cadastro.

Quer aprender tudo sobre Expressões Regulares ?

Há um excelente livro disponível em Português, basta acessar gratuitamente o link abaixo:

http://aurelio.net/regex/guia/

Neste outro link, o autor do livro, oferece dois vídeos interessantes:

http://www.piazinho.com.br

Aonde posso testar as Expressões Regulares ?

Existem vários sites disponíveis para esta finalidade.  Seguem dois deles:

https://www.regex101.com

http://www.regexpal.com

Há algum lugar com exemplos ?

Sim, você irá encontrar centenas de expressões exemplos, no seguinte site:

http://www.regexlib.com

Nossa função

Copie e cole a função abaixo para um módulo global do seu projeto. Atente para os comentários

Faça o login aqui para ter acesso ao código.

Mais alguns exemplos de como podemos usar nossa função:

1) - O exemplo abaixo obtém os dados da seguinte XML:

<nome>Avelino</nome><telefone>8277-1528</telefone><cep>20570110</cep>

Veja que em poucas linhas conseguimos extrair as informações desejadas:

Dim strXml as string

Dim varResultado

strXml="<nome>Avelino</nome><telefone>8277-1528</telefone><cep>20570110</cep>"

resultado = fncER(strXml,">([^>|<].*?)<",False)

resultado = fncER(resultado,"[^<|>]+",False)

MsgBox Resultado, vbInformation, "Aviso"

Note que a fncER() foi utilizada por duas vezes.  Na primeira vez, a expressão utilizada na função não conseguiu extrair os dados de forma limpa, trazendo as partes indesejáveis em vermelho:

>Avelino<|>8277-1528<|>20570110<

Na segunda aplicação da função, a expressão utilizada retirou a parte indesejável, retornando apenas com os dados.

Avelino|8277-1528|20570110

Desafio: Tente extrair os dados, criando apenas uma expressão e caso tenha êxito, informe aqui nos comentários deste artigo.

2) - O código abaixo, verifica se o usuário digitou um e-mail válido.

Dim strExpressão$
strExpressão = "^([a-zA-Z0-9_\-\.]+)@[a-z0-9-]+(\.[a-z0-9-]+)*(\.[a-z]{2,3})$"
If fncER(me!Email, strExpressão, true) = False then
   MsgBox "O e-mail não foi digitado corretamente...", vbInformation, "Aviso"
   Cancel = true
end If

Interpretação da expressão utilizada, para atender as regras propostas:

Resuminho dos Metacaracteres utilizados nas Expressões Regulares:

Baixe o arquivo e faça o teste:

Clique aqui e baixe o arquivo exemplo.

Abra a consulta qryTeste e veja que os campos Data Inscrição e Inscrição são dados extraídos do campo Descrição.

Abra a estrutura da consulta e veja a função fncER() sendo aplicada para extrair os dados.  Analise as expressões utilizadas.

Agora, abra o formulário frmTeste.

- Simule e-mails escritos de forma equivocada e veja o resultado. 

- Entre com uma senha sem respeitar as regras estabelecidas e veja o resultado.

Desafio: Tente criar códigos para validar os dois campos do formulário, sem usar as Expressões Regulares.  Conclua se é vantagem ou desvantagem saber utilizar as Expressões Regulares no Access.

Sucesso!

Os dez artigos mais visitados

MontaRibbons v.7.0 - Assistente completo para criar ribbons no Access

Vídeo - Controle personalizado de Acesso de Usuários

Vídeo - Aprenda sobre filtragens

Vídeo - Segurança máxima, usando o OPEN

Uma ajuda para quem está começando um negócio ou um projeto

Integrando o Access com Servidor MySQL - Introdução

Desabilitando a faixa(ribbon) superior do Access

Vídeo - Programação de relatórios - Parte 1

Como carregar o seu menu sem que ele vá para lista de suplementos

Vídeo - Criando Ribbons parte 1  - Conhecendo a estrutura Xml

| Home | Vídeos | Tutoriais | Dicas | Ribbons | Suporte | Downloads | Contato | Artigo |