Discussion :

[jbbabb]

Comment compléter mon code pour ajouter un deuxièmle champ à ma relation ??

Code :

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

1
2
3
4
5
6
7
Dim rela As DAO.Relation
        Set rela = CurrentDb.CreateRelation("ArticleColis", "Article", "Colis")
        rela.Attributes = dbRelationDontEnforce
        Set chp = rela.CreateField("Date Fact") '
        chp.ForeignName = "Date fact"
        rela.Fields.Append chp
        CurrentDb.Relations.Append rela

Mon deuxième champ de relation est bien entendu toujours entre les tables Article et Colis

[léti07]

bonjour

J'ai pas tous compris dans ton explication
tu veux rajouter un champs dans la table-relation articlecolis c'est ca??