Comparing Files

  • Thread starter Thread starter Irnst
  • Start date Start date
I

Irnst

We have several computers sharing a database. One day the
computers were no longer sharing the database. Therefore,
we ended up with several databases. Entries were made
during the time that the database was no longer shared. I
would like to compare the data in all the databases. How
does one do that? Thank you.
 
To get you started...
This is code I use to set group permissions on objects between two releases
(Access versions, backends ...)
but the idea is the same....

Sub FixPerms(ByVal RemoteDB AS String)
Dim db As DAO.Database, RDb As DAO.Database
Dim Ct As DAO.Container, RCt As DAO.Container
Dim DOC As DAO.DOCUMENT, RDoc As DAO.DOCUMENT
Dim Grp As DAO.Group
Set db = Access.CurrentDb
Set RDb = OpenDatabase(RemoteDB)
For Each Ct In db.Containers
Set RCt = RDb.Containers(Ct.Name)
For Each DOC In Ct.Documents
On Error Resume Next

Set RDoc = RCt.Documents(DOC.Name)
If Err.Value = 0 Then
Debug.Print DOC.Name
For Each Grp In DAO.Workspaces(0).Groups
RDoc.USERNAME = Grp.Name
DOC.USERNAME = RDoc.USERNAME
DOC.Permissions = RDoc.Permissions
Next
End If
Next
Next

End Sub
 
Back
Top