Discussion :

[Mirande]

Bonjour

Je viens chercher du secours ... Je vous explique mon problème.

Je travaille avec une base de données dorsale contenant les données et une base frontale contenant l'applicatif. TOUTES les tables de la base de données dorsale sont importées dans la base de données frontale comme tables liées. Dans ma base dorsale, des relations entre tables ont été créées.

Lorsque je visualise les relations dans la base frontale, elles ont toutes disparu ... Qqun sait-il d'où peut venir le problème ? J'ai absolument besoin de pouvoir consulter les relations pour le bon fonctionnement de l'application.

Merci de votre aide

[Jean-Philippe André]

salut,

pour les tables liées, j'avais proposé une solution dans un post datant de ... 2007
http://www.developpez.net/forums/d43...on-table-liee/

[Mirande]

Salut jpcheck

Mon soucis n'est pas "VBA", pas initialement. Je ne retrouve pas mes liaisons lorsque j'utilise l'interface d'Access 2010 pour attacher des tables. Si je tente de recréer une relation à la main entre deux tables qui sont sensées être liées, Access ne me retrouve pas les cardinalités ...

J'ai également essayé de recréer ces relations par code VBA et j'ai le même problème que toi, erreur 3057. Ci-dessous mon code :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
        Set new_rel = CurrentDb.CreateRelation(rel.Name, rel.Table, rel.ForeignTable, rel.Attributes)
 
        ' Parcourir les champs de la relation pour les créer
        For j = 0 To rel.Fields.Count - 1
            Set fld = rel.Fields(j)
            Set new_fld = new_rel.CreateField(fld.Name)
            new_fld.ForeignName = fld.ForeignName
            new_rel.Fields.Append new_fld
        Next j  ' For j = 0 To rel.Fields.Count - 1
        new_rel.Fields.Refresh
        ' Ajout de la relation à la collection
        CurrentDb.Relations.Append new_rel

[Jean-Philippe André]

les attributs peuvent être directement redonnés depuis la relation originelle

Code :

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

rel.Attributes = relation.Attributes

[Mirande]

Code :

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

rel.Attributes = relation.Attributes

Cela fait une différence par rapport au fait de le passer comme argument dans la fonction CreateRelation comme je le fais dans mon code ?

Code :

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

Set new_rel = CurrentDb.CreateRelation(rel.Name, rel.Table, rel.ForeignTable, rel.Attributes)

[Mirande]

Bonjour le forum

J'apporte une précision, peut-être que ça orientera qqun pour m'aider ...

Les bases de données sur lesquelles je travaille sont à l'origine des bases développées en Access 2002 et qui ont été migrées en Access 2010.

Mon problème de relation ne se produit pas qu'au niveau du développement VBA. Il se pose également lorsque je fais les manips directement dans Access. Par exemple, lorsque j'attache des tables en utilisant l'interface Access, il ne reconstitue pas mes relations. Lorsque je veux visualiser mes relations, Access pédale pendant un moment avant de me présenter uniquement les tables sans les relations. J'ai tendance à penser qu'il essaie de refaire les relations mais qu'il n'y arrive pas ... Mais pourquoi ???
Problème au moment de la migration de la base ?

Merci de vos réponses

[Mirande]

Autre précision ...

Si j'IMPORTE mes tables mes relations sont conservées, si j'ATTACHE mes tables, les relations sont perdues ....

Ca aide qqun ?