Mensaje enviado por "Pedro Delgado" <pdelgado@mx2.redestb.es>
Primero hay que preparar la base para que sea replicable.
Sub CreaReplica()
Set BdMiBase = OpenDatabase(App.Path & "\MiBase.mdb", True)
' MiBase es la base que
' quieres replicar
Set REPPROP = BdMiBase.CreateProperty()
REPPROP.Name = "replicable"
REPPROP.Type = dbText
REPPROP.Value = "T"
BdMiBase.Properties.Append REPPROP
BdMiBase.MakeReplica "c:\Temporal.mdb", 0
' Temporal.mdb es el nombre que le quieras dar
' a la base replicada y que te creará.
BdMiBase.Close
End Sub
Y para que te sincronice la una con la otra:
Sub sincroniza()
BdMiBase.Synchronize "c:\Temporal.mdb"
' Sincroniza con MiBase.mdb. Yo la tengo en C:\
End sub
También se puede hacer una réplica parcial.
Un consejo: antes de crear la réplica, hazte una copia de la base. En según que condiciones, no podrás modificar la misma.
Prueba y dime como te ha ido. (A mi me funciona de maravilla).
Pedro