Suppression d'un espace (=blanc) entre deux mots

**Echizen1** · 07/04/2006, 09h57

bonjour tout le monde,
tout d'abord, merci pour cette excellent site et forum, ils sont super bien faits et très utiles ^.^. Je n'ai pas eu le temps de tout parcourir (forcément), mais je rencontre un problème dans mon projet.
Le voici :

Je dispose d'une base access, et d'une table.
J'ai pas loin de 100 variables dans cette table et le "hic" c'est que c'est variables sont mal nommées. en effet certaines contiennent un espace ou autres caractère (par ex. : \ ou / ou encore °...)

Je souhaiterai donc savoir comment changer automatiquement (via une macro ?) le nom de ces variables de manière à remplacer ces carractères "bizarres" par un "_".

En vous remerciant par avance.

Echizen

**loufab** · 07/04/2006, 10h03

soit en travaillant avec des alias dans une requête soit en renommant manuellement les noms des champs directement dans la structure de la table... le problème c'est qu'il faut faire cela également dans l'interface.

**Echizen1** · 07/04/2006, 10h07

(Merci pr cette réponse ultra rapide ! :o )

Il n'est donc pas possible de faire une macro, de manière à ce qu'elle aille "chercher" ma table, puis parcourir colonne par colonne et changer le nom de ma variable en remplaçant les "espaces" par "_" ?

**loufab** · 07/04/2006, 10h59

pas par macro.

Il faut utiliser le VBA (DAO ou ADO)

Le point d'entré est le contener TableDefs. C'est lui qui contient la définition des noms et propriétés des champs.

Pour une centaine de champs, vu le caractère jetable d'une telle procedure et le temps à passer pour le developpement de cette procédure, mon conseil est de la faire manuellement.

**Echizen1** · 07/04/2006, 11h13

Re salut,
Moi je suis OK pour le faire à la main, mais ça pose problème pour le prof, il veut absolument tout automatiser. Comme ça si la table change (tout en gardant la même trame de variable), tout se refait tout seul.

**loufab** · 07/04/2006, 11h23

Oups à la lecture de ton code je m'aperçois que l'on ne parle pas de la même chose...

Il semble que tu parles du contenu des champs, donc des valeurs contenu dans la table et non des champs.

Pour cela utilise une requête mise à jour avec la fonction Replace().

Code :

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

UPDATE APPAREIL SET Table.champ = Replace(Champ," ","_");

Sinon par du code VBA

Avec le code que tu as en utilisant le Replace qui fait le remplacement de toute les occurences en 1 seule fois. A partir de la V2000 uniquement.

**Echizen1** · 07/04/2006, 11h36

Oups, peut-être que je me suis mal exprimé.

Voilà, le truc, j'ai les variables suivantes dans ma table :

Jour Naissance, Mois Naissance, Annee Naissance , Solde Compte
(C'est l'intitulé des colonnes)

Je veux les transformer en :

Jour_Naissance, Mois_Naissance, Annee_Naissance , Solde_Compte

Serait-il possible de me dire en détail (je débute sous Access) comment faire cette bizarrerie ?

Merci encore

PS.
J'ai Effacer le code pour pas alourdir le post

**loufab** · 07/04/2006, 11h52

Oui donc c'est bien ce que j'avais compris au début.

Donc il te faut utiliser le contener TableDefs puisque c'est la structure de la table qu'il faut modifier. Je te donne un code qui est une piste, il faut l'adapter à ta sauce car il ne fait pas de modif du nom du champ mais uniquement des propriétés annexes. Donc à adapter !

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
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
Function fAddUpdateField(nombase, nomtable As String, NomChamp, TypeChamp, ValDefaut, Longueur, ValFormat, _
 valCaption, ValDescr) As Variant
' Ajoute un champ s'il n'existe pas
' sinon le modifie
 
    Dim CurDbs As Database
    Dim MyTableDef As TableDef
    Dim MyField As Field
    Dim Exist As Variant
    Dim i As Integer
    Dim AddOk As Variant
 
    ' initialise la base courrante avec le param NomBase
    If IsNull(nombase) Then
       ' verification de la version de table
       nombase = GetAttachedDBName(nomtable)
    End If
 
    Set CurDbs = DBEngine.Workspaces(0).OpenDatabase(nombase)
 
    ' initialise la TableDef avec NomTable
    Set MyTableDef = CurDbs.TableDefs(nomtable)
 
    ' Verifie si le nom du champ existe déjà
    Exist = False
    For i = 0 To MyTableDef.Fields.Count - 1
        If MyTableDef.Fields(i).Name = NomChamp Then Exist = True
    Next i
    If Not Exist Then
        ' défini le nouveau champ
        Select Case TypeChamp
           Case dbAutoIncrField                                         ' cas d'un Numero Auto
                Set MyField = MyTableDef.CreateField(NomChamp, dbLong)
                MyField.Attributes = MyField.Attributes + dbAutoIncrField    ' long + autoincr
 
           Case dbText                                                  ' cas du text + size
                Set MyField = MyTableDef.CreateField(NomChamp, TypeChamp)
                If Not IsNull(Longueur) Or Not IsEmpty(Longueur) Or Longueur > 0 Then
                   MyField.Size = Longueur
                End If
           Case Else
                Set MyField = MyTableDef.CreateField(NomChamp, TypeChamp) ' les autres cas
                MyField.Attributes = MyField.Attributes
 
        End Select
 
 
        ' initialise la valeur par defaut
        If Not (ValDefaut = "") Then
           MyField.DefaultValue = ValDefaut
        End If
        ' Ajoute le nouveau champ
        MyTableDef.Fields.Append MyField
 
        'initialise les propriétés
        SetProperty MyField, "Format", ValFormat      ' Format
        SetProperty MyField, "Description", ValDescr  ' Desciption
        SetProperty MyField, "Caption", valCaption    ' Etiquette
 
        AddOk = True
    Else
        'le champ existe (modification)
        MyTableDef.Fields(NomChamp).DefaultValue = ValDefaut
        AddOk = False
    End If
 
    fAddUpdateField = AddOk
 
End Function

Bonne chance. N'hésite pas à poser des questions si tu as des problèmes.

Cordialement,
ha c'est profs... ils sont loins des réalités...

Il faudra également penser à faire la modification du code, des contrôles (etats et formulaires), des requêtes...

Pour le code tu pouvais le laisser... c'est pas ça qui va penaliser les serveurs. Par contre n'oubli pas les balises Code Merci

**Echizen1** · 07/04/2006, 12h16

Merci, je vais voir pour le code, mais ça m'a l'air hyper compliqé

.

Est-il toujours possible, compte-tenu de mon problème de le faire avec des requêtes SQL ?

**loufab** · 07/04/2006, 15h22

Non pas avec des requêtes. Le SQL ne permet que la manipulation de données pas de la structure.

PS : Le code est générique il faut nettoyer, adapter une fois fait il devrait te rester une quinzaine de ligne tout au plus.

Sinon fait une recherche dans la FAQ et dans les Tutos je pense que tu devrais y trouver ton bonheur.

**Echizen1** · 09/04/2006, 09h29

Resalut tlm,
Voilà après plusieurs essais, je n'arrive à rien faire. JE suis complètement perdu

.
Personne ne pourrait me le faire svp ? 8)

EDIT :

J'ai pensé à autre chose, ce n'est certe pas l'optimum mais bon là je suis coincé.
En fait est-il (si oui comment ?) possible de copier le contenu de ma table dans une autre table avec les mêmes variables mais cette fois nommées différemment ?

Merci en tout cas pour votre aide

**Echizen1** · 09/04/2006, 11h59

Voilà j'ai trouvé ce que je veux je pense dans la FAQ

:

Je rappelle le code :

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
Function RenommerChamp(NomTable As String, Ancien As String, Nouveau As String) As Boolean
On Error GoTo err:
Dim MCat As New ADOX.Catalog
Dim MTable As ADOX.Table
Dim MField As ADOX.Column
Set MCat.ActiveConnection = CurrentProject.Connection
Set MTable = MCat.Tables(NomTable)
Set MField = MTable.Columns(Ancien)
MField.Name = Nouveau
RenommerChamp = True
err:
Set MCat = Nothing
Set MTable = Nothing
Set MField = Nothing
End Function

Ensuite pour l'utiliser il est marqué ceci :

Utilisation :

Code :

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

MsgBox RenommerChamp("produit2", "stock", "Stock1")

Renomme le champ stock de la table produit en stock1 et affiche true si l'opération a réussie, false sinon.

Je n'y comprends rien, comment faire pour executer cette fonction ? En fait je ne vois pas comment ni où l'appeller

**ActionAccess** · 09/04/2006, 21h15

Bonsoir,

Ta question originelle était : comment supprimer de tous les champs de ma table, automatiquement, les espaces et autres caractères spéciaux comme "/" ou "\"?

Par code, tu peux remplacer ces caractères par "_".

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
Dim Db As DAO.Database
Dim tbd As DAO.TableDef
Dim fld As DAO.Field
Set Db = CurrentDb
 
Set tbd = Db.TableDefs("NomDelaTableAModifier")
For Each fld In tbd.Fields
fld.Name = Replace(fld.Name, " ", "_", 1)
fld.Name = Replace(fld.Name, "/", "_", 1)
fld.Name = Replace(fld.Name, "\", "_", 1)
Next

La ligne

Code :

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

fld.Name = Replace(fld.Name, "\", "_", 1)

est à répéter pour chaque type de caractère spécial que l'on veut remplacer par "_".

Ce code est à insérer, par exemple, sur l'évènement Clic d'un bouton de commande.

Attention, une erreur se produira si la tentative de renommage donne un nom déjà utilisé par un autre champ. Tu peux toujours rajouter un "On Error Resume Next". Il ne te restera plus qu'à traiter à la main les quelques champs qui n'auront pas pu être renommés.

Espérant avoir répondu à ta question.

**Echizen1** · 10/04/2006, 08h48

Salut,

Effectivement, par champ de ma table j'entends la trame des variables = "la ligne 0".

Je vais essayer ça dans un petit moment et je vous tiens au courant.
Un grand merci encore.

**Echizen1** · 10/04/2006, 09h48

Je sens que je suis proche. Mais il y a comme un pb :

Voici le code que j'ai mis "dans" un bouton.

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
Option Compare Database
Option Explicit
 
Private Sub Commande0_Click()
 
Dim Db As DAO.Database
Dim tbd As DAO.TableDef
Dim fld As DAO.Field
Set Db = CurrentDb
 
Set tbd = Db.TableDefs("MATABLE")
For Each fld In tbd.Fields
fld.Name = Replace(fld.Name, " ", "_", 1)
fld.Name = Replace(fld.Name, "/", "_", 1)
fld.Name = Replace(fld.Name, "\", "_", 1)
Next
 
End Sub

Je vais y réfléchir aussi de mon coté ^^

**Tofalu** · 10/04/2006, 15h00

Bonjour

En consultant les tutoriels ( http://warin.developpez.com/access/dao ) tu aurais remarqué que ce n'était pas vraiment compliqué. Il s'agit d'une simple manipulation de collection.

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
Sub renommer()
Dim oDb As DAO.Database
Dim oTbl As DAO.TableDef
Dim oFld As DAO.Field
'Instancie oDb
Set oDb = CurrentDb
'Parcours les tables
For Each oTbl In oDb.TableDefs
    With oTbl
    'Ignore les tables systemes
    If (.Attributes And dbSystemObject) = 0 Then
        'Parcours les champs
        For Each oFld In .Fields
            With oFld
                .Name = Replace(.Name, " ", "_")
            End With
        Next oFld
    End If
    End With
Next oTbl
End Sub

**Echizen1** · 10/04/2006, 16h51

J'ai beau essayer ça ne marche pas :/

Il ne veut pas executer cette procedure. Je l'ai mise dans un bouton mais ça marche pas, il n'a pas l'air de reconnaitre la fonction Replace en plus.

**Echizen1** · 10/04/2006, 17h24

Ça y est, j'ai compris le problème.

Dans ACCESS 97 (hé oui, il est vieux lol) mais je n'ai que celui là sous la main ! Il n'y a pas la fonction Replace. J'ai trouvé cependant un équivalent dans une des pages du site !

Du coup ça marche impecable !

Derniere precision et j'arrete de vous embeter lol.
Si je veux reommer les champs d'une table précise qu'est-ce qu'il y a lieu de changer exactement SVP ?

Il suffit de supprimer la boucle sur les tables et de spécifier la table en question

Il suffit de remplace la ligne :

Code :

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