[Resolvido]Máscara em caixa de listagem

Fala comunidade,

Tenho este formulário de pesquisa anexo. Ele já faz o que é necessário, a dúvida é se há como formatar os campos cpfcnpj e telefone da lista. Tentei pela propriedade da consulta escrevendo uma expressão, mas ao atualizar ele retorna sem a máscara. Estou mandando ele limpo.

Aguardo,

Olá!

Monte uma função que fica mais flexivel.  Segue o exemplo:

Public Function fncMascara(strText As String) As String
If Len(strText) > 11 Then
   fncMascara = Left(strText, 2) & "." & Mid(strText, 3, 3) & "." & Mid(strText, 6, 3) & "/" & Mid(strText, 9, 4) & "-" & Right(strText, 2)
Else
   fncMascara = Left(strText, 3) & "." & Mid(strText, 4, 3) & "." & Mid(strText, 8, 3) & "-" & Right(strText, 2)
End If
End Function

Aguardamos

Muito obrigado Avelino, era isso mesmo que eu precisava.

Grande Abraço.