Close objects and re-open switchboard

With a little help, I figured out how to synchonize using code.

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
reflected based on the sync. Any ideas? Here's the post with my code.

What would I add to the code to close open objects and then reopen the form
switchboard?

"Michael Walsh" wrote:

> 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
>