Bonsoir,
J'ai utilisé le code suivant donné par Christian WARIN dans son tuto "manipulation des données DAO" au § 4.6.5 "Relations".Je rencontre une erreur à la ligne 22 ci-dessus
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"Vous ne pouvez pas ajouter ou modifier un enregistrement car l'enregistrement associé est requis dans la table 'Client'"
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2'Ajoute la relation oDb.Relations.Append oRlt
Or, si je crée cette relation manuellement, tout se passe bien.
D'où peut provenir cette erreur ?
Amlcalement.
Partager