Filtrer téléphone

Nettoyage d'un champ "Téléphone".

On trouve souvent des caractères non numérique dans un champ "Téléphone", qui par ailleurs se doit d'être un champ de type texte.

Selon le cas, on peut trouver des caractères comme l'espace, le point, le tirêt et autres. Le plus simple est alors d'utiliser une fonction qui ne gardera que les caractères numériques du champ.

Utilisation:

Dans une requête, il suffit de créer un champ calculé qui sera par la suite utilisé en lieu et place de l'ancien champ.

TelPropre: CleanPhone([ancien_champ])

Dans un formulaire de saisie, il suffira d'appeler la fonction dans la Sub de l'événement "Sur après mise à jour" du champ "Télephone".

Me.Telephone = CleanPhone(Me.Telephone)

La fonction :

Function CleanPhone(AncienTel As Variant) As String
    Dim sOP As String, sNP As String, sP As String
    Dim i As Integer
    sOP = Nz(AncienTel, "")
    
    If Len(sOP) > 0 Then
        For i = 1 To Len(AncienTel)
            sP = Mid(sOP, i, 1)
            If IsNumeric(sP) Then
                sNP = sNP & sP
            End If
        Next i
    End If
    
    CleanPhone = sNP
    
End Function