Sub synchronizeDB()
Dim cloneDb As DAO.Database
On Error GoTo ERR_synchronizeDB
Screen.MousePointer = 11
strDefFile = "c:\RepDB.mdb"
strNetFile = "s:\NetDB.mdb"
Set cloneDb = DBEngine.Workspaces(0).OpenDatabase(strDefFile)
cloneDb.Synchronize strNetFile, dbRepImpExpChanges
Screen.MousePointer = 0
Exit Sub
ERR_synchronizeDB:
Screen.MousePointer = 0
MsgBox Error$
Exit Sub
End Sub
Best regards Klau
-
K_Muelle
Michael Walsh - 29 Nov 2004 14:47 GMT
Thanks
I have one more question though... rather than refer to a static database
path in the code, how can I refer to a dynamic datase path? That is, if the
database is saved in different paths i.e. "c:\Documents and
Settings\username\My Documents\RepDB.mdb" how do I set that value.
I assume there's way to set the value of strDefFile to the name of the
database that is executing the code.
> Sub synchronizeDB()
> Dim cloneDb As DAO.Database
[quoted text clipped - 23 lines]
> ------------------------------------------------------------------------
> View this thread: http://www.mcse.ms/message1244696.html
Michael Walsh - 29 Nov 2004 18:46 GMT
I also wasn't sure how to call this procedure in the switchboard so I
converted it to a function I think and made the pathname dynamic. I do have
one question about this method of synchronization and conflict resolution.
Does it still work the same or will the conflict resolution manager have to
be called manually?
Here's the modified code...
Function Sync()
'Sub synchronizeDB()
Dim cloneDb As DAO.Database
Dim strDBPath As String
Dim strDBFile As String
strDBPath = CurrentDb.Name
strDBFile = Dir(strDBPath)
CurrentDBDir = Left$(strDBPath, Len(strDBPath) - Len(strDBFile)) &
strDBFile
On Error GoTo ERR_synchronizeDB
Screen.MousePointer = 11
strDefFile = CurrentDBDir
strNetFile = "\\netcopy.mdb"
Set cloneDb = DBEngine.Workspaces(0).OpenDatabase(strDefFile)
cloneDb.Synchronize strNetFile, dbRepImpExpChanges
Screen.MousePointer = 0
'Exit Sub
MsgBox ("Synchronization is complete")
GoTo exitpart
ERR_synchronizeDB:
Screen.MousePointer = 0
MsgBox Error$
MsgBox (CurrentDBDir)
'Exit Sub
'End Sub
exitpart:
End Function
> Sub synchronizeDB()
> Dim cloneDb As DAO.Database
[quoted text clipped - 23 lines]
> ------------------------------------------------------------------------
> View this thread: http://www.mcse.ms/message1244696.html
Michael Walsh - 03 Dec 2004 22:25 GMT
The code works great, but I'm thinking that I should probably have all the
objects close and then reopen my switchboard so that the changes are
relfected based on the sync. Any ideas?
> I also wasn't sure how to call this procedure in the switchboard so I
> converted it to a function I think and made the pathname dynamic. I do have
[quoted text clipped - 62 lines]
> > ------------------------------------------------------------------------
> > View this thread: http://www.mcse.ms/message1244696.html