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
Partager