Discussion :

[JDev_]

Bonjour,

Je dois "Normaliser" des tables dans ma base Access.
Ici, le terme "Normaliser" ne fait pas référence à la Normalisation 3NF & cie mais à faire en sorte que ma table ne comprenne que des majuscules et ne comportent pas d'accent.

Mon code contenu dans un de mes modules. Pour le moment, je me suis limitée à la conversion d'un champs et malgré cela, ça ne fonctionne pas.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
 
ublic Function sansAccent(ByVal Chaine As String, EnMinuscule As Boolean) As String
 
Chaine = UCase(Chaine)
Chaine = Replace(Chaine, Chr(232), "e")
Chaine = Replace(Chaine, Chr(233), "e")
Chaine = Replace(Chaine, Chr(234), "e")
Chaine = Replace(Chaine, Chr(235), "e")
Chaine = Replace(Chaine, Chr(249), "u")
Chaine = Replace(Chaine, Chr(250), "u")
Chaine = Replace(Chaine, Chr(251), "u")
Chaine = Replace(Chaine, Chr(242), "o")
Chaine = Replace(Chaine, Chr(244), "o")
Chaine = Replace(Chaine, Chr(254), "o")
Chaine = Replace(Chaine, Chr(255), "y")
Chaine = Replace(Chaine, Chr(224), "a")
Chaine = Replace(Chaine, Chr(225), "a")
Chaine = Replace(Chaine, Chr(226), "a")
Chaine = Replace(Chaine, Chr(238), "i")
Chaine = Replace(Chaine, Chr(239), "i")
Chaine = Replace(Chaine, Chr(244), "o")
If EnMinuscule Then Chaine = LCase(Chaine)
sansAccent = Chaine
 
End Function
 
 
Public Sub Norm()
 
    Dim rst As DAO.Recordset
    Dim strSql As String
    Dim strPrenom As String
    Set rst = CurrentDb.OpenRecordset("Test")
 
   While Not rst.EOF
                ' mise à jour
                rst.Edit
                strPrenom = rst("Prénom")
 
           DoCmd.RunSQL "SELECT  [Prénom] FROM Test WHERE " & strPrenom & " =sansaccent(" & strPrenom & ",true)"
 
        rst.Update
        rst.MoveNext
    Wend
 
    rst.Clone
    Set rst = Nothing
 
End Sub

Mon problème se situe à ce niveau :

Code :

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

1
2
 
DoCmd.RunSQL "SELECT  [Prénom] FROM Test WHERE " & strPrenom &" =sansaccent(" & strPrenom & ",true)"

La fonction fonctionne pour une chaine de caractère et je force la saisie avec une variable String.

Si vous aviez une piste pour étendre cette "Normalisation à toute ma table" ?
J'ai essayé plusieurs solutions sans succès.

Merci pour votre aide.

Cordialement,

[Mr.Mof]

Bonjour,

Tu pourrais faire une requête de mise à jour sur ton champ en utilisant ta fonction ? Mais bon tu dis que tu as déjà essayé des solutions donc je pense que tu as déjà essayé?

Cordialement.

[JDev_]

Merci de ta réponse !

Non, je n'ai pas réussi non plus.

Cordialement,

[Mr.Mof]

Je vois pas d'autres solutions que de passer par une mise à jour.
Ca me surprend un peu que ça ne fonctionne pas si tu es sur que ta fonction est correcte.
Normalement quelque chose du style:

Code :

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

Docmd.RunSQL "Update Test SET Test.[Prénom]=sansAccent(Test.[Prénom],true);"

devrait fonctionner.

[JDev_]

Super Merci, ça fonctionne !

J'utilisais ma variable "strPrenom " pour la MAJ.

Je ne sais pas comment faire pour que la fonction fonctionne pour toutes ma table. Je fais quelques tests avec le recordset mais ça ne donne pas grand chose.


Cordialement,