Discussion :

[Herman]

Bonjour,

Depuis ma frontale, je veux mettre à jour ma dorsale, je procéde donc comme suit :

Code :

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

1
2
3
4
5
6
7
8
9
10
Dim oDB  As DAO.Database
 
    Set oDB = DBEngine.OpenDatabase(CurrentProject.Path & "\DU_dorsale.mdb", True)
 
    oDB.Execute "ALTER TABLE tbl_moyen ADD COLUMN jour_homme NUMERIC", dbFailOnError
    oDB.Execute "ALTER TABLE tbl_moyen ADD COLUMN cout currency", dbFailOnError
    oDB.Execute "CREATE TABLE tbl_touche_maj (touche_maj INTEGER)", dbFailOnError
 
    oDB.Close: Set oDB = Nothing
    MsgBox "Mise à jour réussie"

Maintenant, j'aimerai supprimer la clé primaire d'une table, qui en fait m'empéche de faire certaines choses. il faut donc que je la supprime par le code, et là, je bloque

Autre petite question, est t-il possible de changer la nature des liaisons entre deux tables, toujours en VBA ?

Merci d'avance !

[Oleff]

Bonjour,
Pour transformer une clé en SQL, regarde du côté de la clause CONSTRAINT.
Pour la transformation en vba, il faut chercher dans la bibliothèque DAO, tu as tout ce qu'il faut (propriété Primary pour les index, objet relation, entre autres...)

[Herman]

En fait, je veux supprimer juste le fait que ce soit une clé primaire, mais pas le champs !

[Oleff]

Normalement, la suppression d'un index n'entraine pas celle des champs le composant.

Un p'tit bout de code qui supprime la clé primaire de la table "xxx"

Code :

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

1
2
3
4
5
6
7
8
9
10
Dim db As DAO.Database, ind As DAO.Index
    Set db = CurrentDb
        Set ind = db.TableDefs("xxx").Indexes("PrimaryKey")
        If ind.Unique And ind.Primary then
            db.TableDefs("xxx").Indexes.Delete (ind.Name)
        end if
        db.TableDefs("xxx").Indexes.Refresh
Set ind = Nothing
db.close
Set db = Nothing