Réponse n° 1 -------- le 17/01/2013 : 12:30 par samy
visiteur |
finalement j'ai trouvé la solution avec ce code pour ceux qui leurs intéresse:
Sub lier_table2table1()Dim oDb As DAO.DatabaseDim oRlt As DAO.relationDim oFld As DAO.FieldSet oDb = CurrentDb'Crée la relationSet oRlt = oDb.CreateRelation("Rlt_table1table2", "table2", _ "table1", dbRelationDontEnforce)'Crée le champSet oFld = oRlt.CreateField("champ2")'Définit le nom de la clé externeoFld.ForeignName = "champ1"'Ajoute le champoRlt.Fields.Append oFld'Rafraîhit la collection RelationsoDb.Relations.Refresh 'Ajoute la relationoDb.Relations.Append oRlt'Rafraîhit la collection RelationsoDb.Relations.Refresh 'Ferme la base de donnéesoDb.Close Set oDb = NothingEnd Sub et comme ça on aura les deux tables liés sans intégrité référentielle. |