Bonjour,
Je rencontre actuellement un problème pour créer une procédure qui me permet de corriger les entrées d'une table.
Contexte : Je récupère dans ma base de données, de manière automatique, les noms et prénoms d'un certain nombre d'agents. Auparavant, je lançais une procédure de correction pour la table et l'attribut donné. Mais par la suite, en étoffant, je me suis rendu compte que je réutilisais cette procédure à plusieurs reprise. J'ai donc voulu la rendre générique, en la paramétrant. Je l'appelle en y mettant en entrée deux string, correspondant au nom de la table et au nom de la colonne.
Voici le code :
Auparavant je n'avais pas mis les quotes autour de ['Attribut'], mais lorsque je le survolais, il ne faisait pas le lien, depuis que j'ai mis ces quotes, il reconnait bien le nom d'attribut que j'ai passé en paramètre. Toutefois ça ne semble pas suffire.
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 Option Compare Database Option Explicit Sub Correction(T_Table As String, Attribut As String) Dim db As Database Dim rstTable As DAO.Recordset Set db = CurrentDb Set rstTable = db.OpenRecordset(T_Table, dbOpenTable) With rstTable .MoveFirst Do Until .EOF .Edit !['Attribut'] = Replace(rstTable!['Attribut'], "", "é") !['Attribut'] = Replace(rstTable![Attribut], "", "è") !['Attribut'] = Replace(rstTable![Attribut], "", "ç") !['Attribut'] = Replace(rstTable![Attribut], "", "ë") !['Attribut'] = Replace(rstTable![Attribut], "", "ô") !['Attribut'] = Replace(rstTable![Attribut], " ", "à") !['Attribut'] = Replace(rstTable![Attribut], "", "î") .Update .MoveNext Loop rstTable.Close End With End Sub
Merci d'avance pour votre aide qui m'est toujours aussi précieuse.
Cordialement,
SweloMyli
Partager