En poursuivant votre navigation sur ce site, vous acceptez l'utilisation de cookies pour vous proposer des contenus et services adaptés. Mentions légales.

Recherche

Recherche

Les mémos

Je débute...

Visites

 1206600 visiteurs

 3 visiteurs en ligne

Nous contacter

Contact

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
Catégorie : Les mémos - String
Page lue 4967 fois
Vous êtes ici :   Accueil » Filtrer téléphone