Discussion :

[AndréPe]

Bonsoir,
J'ai utilisé le code suivant donné par Christian WARIN dans son tuto "manipulation des données DAO" au § 4.6.5 "Relations".

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
 
Dim oDb As DAO.Database
Dim oRlt As DAO.Relation
Dim oFld As DAO.Field
Set oDb = CurrentDb
'Crée la relation
Set oRlt = oDb.CreateRelation
'Définit les propriétés
oRlt.Attributes = dbRelationUpdateCascade
oRlt.ForeignTable = "Commande"
oRlt.Name = "Rlt_CommandeClient"
oRlt.Table = "Client"
'Crée le champ dans la relation
Set oFld = oRlt.CreateField("NumClient")
'Définit le nom de la clé externe
oFld.ForeignName = "IDClient"
'Ajoute le champ
oRlt.Fields.Append oFld
'Rafraîhit la collection Relations
oDb.Relations.Refresh
'Ajoute la relation
oDb.Relations.Append oRlt
'Rafraîhit la collection Relations
oDb.Relations.Refresh
'Ferme la base de données
oDb.Close
Set oDb = Nothing

Je rencontre une erreur à la ligne 22 ci-dessus

Code :

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

1
2
'Ajoute la relation
oDb.Relations.Append oRlt

"Vous ne pouvez pas ajouter ou modifier un enregistrement car l'enregistrement associé est requis dans la table 'Client'"

Or, si je crée cette relation manuellement, tout se passe bien.

D'où peut provenir cette erreur ?
Amlcalement.

[jimbolion]

AndréPe bonsoir,

je pense au fait que le champ n'ayant pas été créée dans la base, la méthode close n'a pas encore agit. Tu peux essayer après le refresh et si cela ne fonctionne pas créer ta relation après la fermeture de l'objet.

http://social.msdn.microsoft.com/For...onships-in-vba

Cordialement,

Jimbolion

[AndréPe]

Merci jimbolion,
Ta réponse m'a incité à revoir ma méthode manuelle et je me suis aperçu qu'elle fonctionnait parce je n'avais pas demandé l'intégrité référentielle : des références de la table externe n'existaient pas dans l'autre table.

Rectifications faites dans les tables, le programme VBA a bien fonctionné.
Donc résolu !

Amicalement

[jimbolion]

jimbolion