Discussion :

[btks59]

Bonjour,

Suite à un remaniement total de ma base de données je me suis rendu compte de quelques erreurs plus ou moins importantes.
Dans une de mes tables (qu'on va appeler A) mon choix de la clé primaire et de la relation avec une autre table n'était pas du tout judicieux, de plus je n'avais pas mis de numérotation automatique.

J'ai "réparé" ce problème qu'à 50%, création d'un champ numérotation automatique qui est devenu ma clé primaire.
Mon soucis est le lien de cette table (A) avec une autre (B).
La table B puisait les informations dans la table A sous forme de liste : le champ en question est du texte.

Or je souhaiterai changer le lien entre les 2 tables et mettre l'ID de la table A en tant que source pour la liste de la table B.
Le problème en faisant ça est la perte de toutes les informations déjà rentrée.

En gros je voudrais savoir comment faire pour remplacer les informations déjà rentrée dans la table B (du texte) par l'ID correspondant que je viens de créer.

Avant par exemple j'avais dans ma table A le nom de familles de produit comme "Toaster", après avoir générer une numérotation automatique, Toaster correspond à l'ID numéro 1.
Dans la table B, le champ famille de produit affiche toaster et non l'ID. Je voudrais donc remplacer Toaster par 1.

Je pourrais faire ça manuellement mais ce serait trop laborieux.

Ca me permettra de changer la relation entre ces 2 tables et de les lier par l'ID cette fois.

Je ne sais pas si c'est la bonne méthode par contre ...

Merci.

[Nitromard]

Bonjour,

La 1ère chose qui me vient en tête serait d'utiliser une requête UPDATE sur la B du genre :

Code :

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

UPDATE [TABLE B] SET [Nom du champ à remplacer]= [Nom du champ qui remplace].[TABLE A]

M'enfin quelque chose comme cela, il faudrait voir de ce côté pour trouver une solution.

Cordialement,

Quentin

[tarnx]

Bonjour,

Tu peux bidouiller pour y parvenir.

Premièrement, ajouter une colonne de type numérique dans ta table B.
Un peu de code pour mettre à jour ta table B.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Dim RcdSet As DAO.RecordSet
Dim StrSQL As String

RcdSet = currentdb.openRecordSet(SELECT * FROM A)

While Not RcdSet.EOF

   strSQL = " UPDATE B " & _
            " SET NouvelleColonne = " & RcdSet![NouvelIDTableA] & _
            " WHERE AncienIdentifiant = '" & RcdSet![AncienIDTableA]  & "'"
    Docmd.RunSQL strSQL
    RcdSet.MoveNext
WEND

Ensuite, dans la table B, tu supprimes l'ancienne colonne et tu renomme la nouvelle par le nom de l'ancienne.

Penses à faire une copie de ta base avant de mettre à jour tes table.

[btks59]

Merci pour vos réponses.

J'essaie la solution avec le code. Je ne m'y connais pas du tout en code par contre. Pour l'insérer il faut bien aller "Database tools", ensuite "Visual Basic", puis "insert" Module ?

Pour info quand je copie le code, il m'affiche un message sur le "SELECT" :
Compil error :
Expected : expression

Il ne faudrait pas plutot écrire ça ?

Code :

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

RcdSet = CurrentDb.OpenRecordset("SELECT * FROM A")

J'ai ensuite essayé de lancer le code (en double cliquant sur le module) mais j'ai la fenêtre de code qui s'ouvre. Je ne fais pas les choses correctement je pense


EDIT :
N'étant pas un pro du VBA, je vais essayer de passer par une requête SQL.

Code :

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

1
2
3
4
 
UPDATE T_Products
SET Products_Family = [ProductFamilies_ID].[T_ProductFamilies]
WHERE Products_ProductFamily = [ProductFamilies_Name].[T_ProductFamilies];

Le problème, en lançant la requête, access me demande l'ID etc...


EDIT 2 :
Après quelques recherches, j'ai modifié le code mais ça ne fonctionne toujours pas, j'ai l'erreur suivante : "operation must use and updateable query"

Code :

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

1
2
3
4
UPDATE T_Products SET Products_Family = (
SELECT ProductFamilies_ID
FROM T_ProductFamilies
WHERE T_Products.Products_ProductFamily = T_ProductFamilies.ProductFamilies_Name);

[tarnx]

Pour ta première requête, les tables doivent être en préfixe et non en suffixe des noms de champs.

Concernant l'erreur, es-tu sûr d'avoir les droits de modification sur la base?

Concernant le code,en effet j'ai oublié les guillemets pour l’instruction SELECT.
Pour exécuter le code, tu te places dans le module, tu définis une procédure :

Code :

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

1
2
3
4
5
Public Sub MaJTables ()
    Ici, le code donné précédemment

    MsgBox("Ok") 'Pour être sûr que l'action s'est déroulée
End Sub

Et tu fais F5.

[f-leb]

bonjour,

EDIT 2 :
Après quelques recherches, j'ai modifié le code mais ça ne fonctionne toujours pas, j'ai l'erreur suivante : "operation must use and updateable query"

Code :

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

1
2
3
4
UPDATE T_Products SET Products_Family = (
SELECT ProductFamilies_ID
FROM T_ProductFamilies
WHERE T_Products.Products_ProductFamily = T_ProductFamilies.ProductFamilies_Name);

L’idée est là je pense mais il faut une autre écriture avec jointure.

Dans l’assistant, ajouter les deux tables et créer la jointure :
T_Products.Products_ProductFamily-------T_ProductFamilies.ProductFamilies_Name

, basculer en requête Mise à jour (UPDATE) et renseigner la colonne à mettre à jour avec la nouvelle clé.

[btks59]

Bonjour,

Après plusieurs essais non concluants, j'ai décidé de mettre à jour ma table manuellement, heureusement ça n'a pas pris beaucoup de temps.

Je continue néanmoins à réfléchir sur ce problème car il est toujours plus intéressant d'automatiser des actions que de tout faire manuellement !

Merci encore pour vos aides.