Discussion :

[Rabastac]

Bonjour,

J'ai développé un outil de gestion de dossiers dans mon entreprise. Cet outil est une base que j'ai faite sous Access 03.
Cette base est sur le réseau et chaque utilisateurs à un réplica de la base sur son poste avec ses dossiers.
Il m'arrive d'avoir des conflits lors de la synchronisation d'un de ces réplica avec le réplica maitre qui est sur le réseau. Quand j'étais sur 2003 je gérais ces conflits avec le gestionnaire présent dans Access. Mais maintenant que je suis passé sous Access 2010, je m'aperçois que ce gestionnaire à disparu et qu'il faut traiter les conflits via un bout de code vba à developper soit même.
Et c'est la que le problème apparait : je n'ai aucune idée de comment faire. Je souhaiterai juste par exemple supprimer l'enregistrement le plus ancien et conserver le plus récent.

Voila est ce que qqun à déjà rencontré ce problème ? Si oui a t'il une solution ?

Cdlt

Romain.

[docjo]

Bonjour

Je ne sais pas si cela peut aider mais j'administre une base qui ne passe pas par des réplicas mais par une frontale sur chaque poste et la dorsale sur un disque partagé. Même si les utilisateurs accèdent en même temps au même enregistrement, il priorise le premier connecté. Cela fonctionnait sous Access 97 et je suis sous 2010 actuellement.
Cordialement

[Rabastac]

Bonjour docjo,

Merci de ta réponse déjà. Avant de partir sur une solution avec des réplicas, j'utilisais la même configuration que celle que tu présentes, mais les lenteurs du réseau et l'impossibilité pour les utilisateurs de travailler en mode déconnecté m'ont fait revoir m'a copie.

Mon problème est bien lié à l'utilisation de réplicas et des conflis que cela entraine. Je m'étonne du peu de réponse car c'est un problème qui va toucher tous ceux qui administrent des bases répliquées et qui vont passer sous Access 2010.

Sur le support microsoft on trouve le squelette de la fonction à coder mais pour moi il en manque un bout :

Sub ViewSyncConflict()
Dim Db As DATABASE
Dim Td As TableDef
Dim i as Integer
Set Db = CurrentDb
' Step backward through the TableDefs collection so you
' do not miss any tables when you delete conflict tables.
For i = Db.TableDefs.Count - 1 to 0 Step -1
Set Td = Db.Tabledefs(i)
If (Td.ConflictTable <> "") Then
' Open a recordset based on the conflict table.
' Insert code to do conflict resolution
' Delete the conflicting record when you are done.
' Delete the conflict table when all its records are deleted..
' Set the ConflictTable property to "".
End If
Next i
End Sub

Voila c'est la partie en rouge qui me manque.
Merci encore de votre aide