Discussion :

[NoBru]

Bonjour,

Voilà, je sais comment trouver en VBA le/les champ(s) clé primaire d'une table, mais je ne sait pas comment le/les supprimer :

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
Dim bds As Database, dft As TableDef, chp As Field
Dim idx As Index
 
    ' base de données en cours.
    Set bds = CurrentDb
 
    ' Retourne un objet Tabledef pointant sur une table.
    Set dft = bds.TableDefs("Z_TMP_table")
 
    ' Parcourt la collection Indexes de l'objet TableDef.
    For Each idx In dft.Indexes
 
        ' Vérifie la propriété Primary de l'index de l'objet Recordset.
        If idx.Primary Then
             For Each chp In idx.Fields
                 Debug.Print chp.Name   'clef primaire trouvé
            Next chp
        End If
    Next idx
 
    Set bds = Nothing

Pourriez vous me tuyauter ?
D'avance merci

[Frank]

Code :

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

ALTER MATABLE DROP COLUMN MACOLONNE

:

[NoBru]

Salut,
A la lumière de ce que tu m'as proposé, j'ai essayé les instructions suivantes mais sans succès:

Code :

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

1
2
3
4
5
    strSQL = "ALTER Z_TMP_table.* DROP PRIMARY KEY;"
    DoCmd.RunSQL strSQL
 
    strSQL = "ALTER Z_TMP_table DROP PRIMARY KEY;"
    DoCmd.RunSQL strSQL

Je dois oublier Kekchose ou bien, mal m'y prendre...

[Demco]

Dans ton code tu trouve le nom du champ grace à :

Code :

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

Debug.Print chp.Name   'clef primaire trouvé

A partir de ce nom, il faut que tu construise une requête basée sur ce nom de champ, en suivant le modèle de Frank :

Code :

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

ALTER MATABLE DROP COLUMN MACOLONNE

MACOLONNE ici en locurence est ce que renvoie chp.Name.

Cette Q/R t'aidera:
http://access.developpez.com/faq/?pa...riteres#txtQry
Le principe étant le même pour les variables et les contrôles de formulaire.

[NoBru]

Salut,
Attention les copains, je ne veux pas Supprimer (DROP COLUMN MACOLONNE) la colonne de ma table Temporaire hein, je veux juste supprimer les clés de cette table Temporaire
Celle-ci a d'ailleur été créée via l'instruction suivante

Code :

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

    DoCmd.CopyObject , "Z_TMP_table", acTable, "PERSONNE"

(peut être n'est ce pas la bonne méthode ?)
Et puis, avec

Code :

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

1
2
3
Debug.Print "==> "; chp.Name    '''clef primaire trouvé
strSQL = "ALTER TABLE Z_TMP_table DROP COLUMN " & chp.Name & ";"
DoCmd.RunSQL strSQL

j'ai l'erreur suivante:
Erreur d'exécution '3280':
Impossible de supprimer un champ qui fait partie d'un index ou est nécessaire au système.

Mais peut-être que mon problème est mal posé:
En fait, ce que je voudrais à la base, c'est avoir une copie d'une de mes tables, mais sans les contraintes de clé que j'ai dans ma table source

[ActionAccess]

Bonjour,

Ci-dessous, ton bout de code aménagé pour supprimer toutes les clés primaires d'une table.

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
Private Sub SupprimerLesIndex_Click()
Dim bds As Database, dft As TableDef, chp As Field
Dim idx As Index
    ' base de données en cours.
    Set bds = CurrentDb
 
    ' Retourne un objet Tabledef pointant sur une table.
    Set dft = bds.TableDefs("NomDelaTable")
 
    ' Parcourt la collection Indexes de l'objet TableDef.
    For Each idx In dft.Indexes
 
        ' Vérifie la propriété Primary de l'index de l'objet Recordset.
        If idx.Primary = True Then
            dft.Indexes.Delete idx.Name
        End If
    Next idx
    Set bds = Nothing
 
End Sub

J'espère que cette fois-ci cela répond à ta question.

Bon courage

[NoBru]

YESSSSSSSS
Puré, exactement ce que je voulais !
Quand je vois la solution, je me dit "Que je suis C.. !" j'aurai dût le trouver tout seul
En tous K, encore mille merci
@+