Discussion :

[BCBFIS]

Bonjour à tous.
Dans une BDD ACCESS j'ai enregistré le nom des pays dans une table (T_Pays) en mentionnant dans la propriété "Format" du champ Pays_Nom le caractère ">" de manière à afficher le nom du Pays en majuscules de sorte que le nom de la Grèce apparaît dans la T_Pays en majuscules avec un accent sur le E majuscule. Si dans un formulaire (F_Pays) dans lequel je vérifie si le pays n'existe pas encore dans la T_Pays, j'ai également mentionné dans la propriété "Format" du champ Pays_Nom le caractère ">" de manière à afficher le nom du Pays en majuscules, mais si je tape :"grece" ou Grece" ou "GRECE", le nom du pays s'aafiche bien en majuscules dans le formulaire, mais l'existence du pays dans la table n'est pas signalée car dans le formulaire il n'y a pas d'accent sur le 1er "E" alors que dans la T_Pays, le nom du pays comporte un accent. Est-il possible de comparer un nom non accentué avec un nom identique mais accentué ?
Dans l'espoir d'une solution, je vous remercie d'avance.

[ONTAYG]

Bonjour,

Je pense que tu devrais t'intéresser à ce genre d'algorithme de contrôle de similarité.

https://www.developpez.net/forums/d1...u-levenshtein/

ONTAYG

[micniv]

Restons pragmatique

La fonction ci-dessous nettoie les accents

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
Public Function ChaineSansAccent(ByVal s As String) As String
' 2010-05-01    Helas, MN
'               Exemple : Ucase(ChaineSansAccent("il était l'affût à Foïx ùune fois"))
    Dim s1 As String, s2 As String, i As Long
 
    s1 = "àâáãäåéèêëïîìíöôðòóüûùúñçÿÀÁÂÃÄÅÈÉÊËÌÍÎÏÒÓÔÕÖÙÚÛÜ"
    s2 = "aaaaaaeeeeiiiiooooouuuuncyAAAAAAEEEEIIIIOOOOOUUUU"
    For i = 1 To Len(s1)
        s = Replace(s, Mid$(s1, i, 1), Mid$(s2, i, 1))
    Next i
    ChaineSansAccent = s
 
End Function

Un exemple pour l'utiliser

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
 
If ChaineSansAccent(nomPays) = ChaineSansAccent(chaine1) then ...

[BCBFIS]

Merci Micniv pour cet éclairage. Toutefois, je ne vois pas comment utiliser cette formule dans mon contrôle.
Pour vérifier si le nom du pays introduit dans mon formulaire F_Pays existe ou non dans la table T_Pays, j'utilise ce test:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
'Test de doublon sur Pays'
Private Sub Pays_Nom_BeforeUpdate(Cancel As Integer)
    If DCount("*", "T_Pays", "Pays_Nom=""" & Me.Pays_Nom & """") <> 0 Then
    CléPays = "1"
    Beep
    DoCmd.OpenForm "FM_DoublonsPays"
  Else
  End If
End Sub

La variable "CléPays sert uniquement à adapter le texte à faire figurer dans le formulaire de message d'erreur en fonction de la nature de celle-ci.
C'est dans mon instruction "DCount" que je ne parviens pas à retrouver le nom figurant dans la table s'il ne comprend pas le caractère accentué (GRèCE) le "è" étant une majuscule accentuée dans la table. Les noms "GRECE", "Grece" ou "grece" introduits dans le formulaire ne déclenche aucune alerte.
Merci à tous.

[User]

Bonjour,

Normalement si on veut être cohérent tu dois utiliser la fonction de part et d'autre du signe égal.

Comme ça tu peux saisir ""Grece"" ou "Grèce" dans ton formulaire.

[micniv]

Pour compléter le bon commentaire de User

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
If DCount("*", "T_Pays", "ChaineSansAccent(Pays_Nom) =""" & ChaineSansAccent(Me.Pays_Nom) & """") <> 0 Then

[BCBFIS]

Merci à tous pour vos éclaircissements compréhensibles.
Néanmoins, étant débutant, malgré que j'ai lu pas mal d'informations, tutoriels et autres sur access, je ne comprends où et comment créer cette "Public Funtion"; j'ai regardé le générateur d'expression, mais ne la trouve pas dans les fonctions "Texte", en outre faut-il la placer dans la source de données du champ ? à l'intérieur de la procédure "Sub" qui teste les doublons sur le nom du pays ? Je l'ignore et ne trouve pas même sur le web on n'explique pas cela, apparemment. Je joins copie de la BDD que j'ai réalisée jusqu'à présent. Le problème se situe donc dans le formulaire Pays (F_Pays).
Merci de votre patience et votre compréhension.

[hyperion13]

Salut
A propos des arguments d'une Sub() ou d'une Function() lire ceci.
La fonction proposée par micniv (Post#3), que je salue, est à coller dans un module standard de l'environnement VBA.

[micniv]

Voici ta base corrigée en ce qui concerne le formulaire Pays pour la saisie du champ Pays
La fonction publique ChaineSansAccent() est déclarée dans un module standard Module1
et j'ai juste revu à ma sauce l'evt Pays_beforeUpdate()

[BCBFIS]

Merci à tous pour votre attention et particulièrement à Micniv qui, en adaptant ma BDD, m'a permis de comprendre comment réaliser l'action souhaitée.
Bonne journée à tous.