Access97: Opening the Synchronize Database dialog though VBA

Hello all,

I have a little VBA script and I'd like to open the Synchronize Database dialog from this script. Does anyone know how I can accomplish this???

The Synchronize Database dialog is accessed though the Tools > Replication > Synchronize Now menu item.

Thank you in advance.

Regards, Anthony

[Mongo]

I've not had the need to try or do what you're asking,
but thought this might be of some help. I found it using
"synchronize" & "CreateReplica" as my keywords.

Hope it helps or at least gives you a few useful ideas!



Public Sub DirectSync()

Dim repMaster As New JRO.Replica
Dim RepNorthwind As New JRO.Replica
Dim conn As New ADODB.Connection

' Open the database.
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data source=C:\Program Files\Microsoft Office\" & _
"Office\Samples\Northwind.mdb;"

' If a replica of the database exists, it is deleted.
repMaster.ActiveConnection = conn
' "C:\Program Files\Microsoft Office\Office\Samples\Northwind.mdb"
If (Dir("C:\Program Files\Microsoft Office\" & _
"Office\Samples\Replica of Northwind.mdb") <> "") Then Kill _
("C:\Program Files\Microsoft Office\" & _
"Office\Samples\Replica of Northwind.mdb")

' Create a new replica of the database.
repMaster.CreateReplica "C:\Program Files\Microsoft Office\" & _
"Office\Samples\Replica of Northwind.mdb", _
"Replica1 for Northwind.mdb", _
jrRepTypeFull, jrRepVisibilityGlobal

' New values are put into tab1.
On Error Resume Next
conn.Execute "drop table tab1"
On Error GoTo 0
conn.Execute "create table tab1 ( col1 int)"
conn.Execute "insert into tab1 values (1)"
conn.Execute "insert into tab1 values (2)"

' Synchronize the values.
repMaster.Synchronize "C:\Program Files\Microsoft Office\" & _
"Office\Samples\Replica of Northwind.mdb", jrSyncTypeImpExp, _
jrSyncModeDirect

End Sub