Discussion :

[Kalvin_20]

Bonjour à tous

voila j'ai un petit souci je voudrais savoir si c'est possible de supprimer automatiquement les caracteres speciaux qui existe dans les cases de ma base de données

et si oui comment ?

Merci d'avance
Cordialement

[Jean-Philippe André]

Salut,
tu peux faire des UPDATE + Replace dans tous les sens.
Comment se fait-il que tu en ai plein et qsue tu veuilles t'en débarrasser ?

[Kalvin_20]

j'ai repris une base faite sur excel par un stagiaire et je l'ai importé sur access et du coup je me suis retrouvé avec plein de caractere speciaux.

Svp comment faire pour UPDATE + Replace???

Merci Jp

[Jean-Philippe André]

Par exemple

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
Dim tempoTable as DAO.TableDef
Dim RS as DAO.RecordSet
Dim StrSQL as String
Dim i as Integer
For Each tempoTable in CurrentDb.TableDefs
if Instr(tempoTable.Name,"Msys")=0 Then
StrSQL = "SELECT * FROM [" & tempoTable.Name & "]"
set RS = CurrentDb.OpenRecordSet(StrSQL,dbOpenDynaset,DbSeeChange)
Do Until RS.EOF
 
For i = 0 to RS.Fields.Count-1
RS.Edit
RS.Fields(i) = SuppressionCaracteresSpeciaux(RS.Fields(i))
RS.Update
Next i
RS.MoveNext
Loop
End if
Next

A toi de développer la fonction SuppressionCaracteresSpeciaux, qui prend en paramètre le contenu en tant que String.

[Kalvin_20]

Merci à toi Jp

sauf que j'ai quelque soucis avec le bout de code que tu m'as donné

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
Dim tempoTable As DAO.TableDefs
   Dim RS As DAO.Recordset
   Dim StrSQL As String
   Dim i As Integer
   For Each tempoTable In CurrentDb.TableDefs
      If InStr(tempoTable.Name, "Msys") = 0 Then ' Il connais pas Name Comme proposition il me donne Append,Count,Delete et refresh !!!!!
         StrSQL = "SELECT * FROM [" & tempoTable.Name & "]"
         Set RS = CurrentDb.OpenRecordset(StrSQL, dbOpenDynaset, DbSeeChange)
         Do Until RS.EOF
            For i = 0 To RS.Fields.Count - 1
            RS.Edit
            RS.Fields(i) = SuppressionCaracteresSpeciaux(RS.Fields(i))
            RS.Update
            RS.MoveNext
         Loop
      End If
   Next

la quel que je prend svp???

voici le code que j'ai mis pour la suppréssion de caractere

Code :

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

1
2
3
4
5
6
7
8
9
Sub SuppressioneCaracteresSpeciaux(tempo As String)
tempo1  as string
For tempo = 0 To tempo.lenghts
      If tempo <> "%" Then
         tempo1=tempo
      End If
   Next
   SuppressioneCaracteresSpeciaux = tempo1
End Sub

Merci de me dire ce que vous en pensez

Cordialement

[Jean-Philippe André]

alors, il s'agit d'une petite erreur,

Code :

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

Dim TempoTable As DAO.TableDef

sans s à TableDef
pour le code, on va être plus direct :

Code :

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

1
2
3
4
5
6
7
8
Function SuppressionCaracteresSpeciaux(tempo As String) as String
Dim tempo1 as String
   tempo1 = tempo
   'on retire donc les symboles % et #
    tempo1= Replace(tempo1,"%","")
   tempo1= Replace(tempo1,"#","")
SuppressionCaracteresSpeciaux = tempo1
End Sub

[Kalvin_20]

Merci bc jp de ton aide

mais le code me génére une erreur comme quoi il y a aucun enregistrement en cours sur la ligne RS.Edit

Voila je donnerai plus de detail, la table ou j'ai des caracteres speciaux se nomme Tableau, elle comporte 2colonnes ou j'ai des %, TRS et TRP
est ce que ça pourrat simplifié le code

Cordialement et grand Merci à toi

[Jean-Philippe André]

il manque la fin de boucle For i/ Next i dans ton code (correction faite dans mon code original d'ailleurs ).
ce qui m'étonne c'est que RS.EOF doit éviter l'erreur relevée...

[Kalvin_20]

Merci a toi c'est resolu grace à ton premier code il est tout nickel