Trying to make my first Acc97 partial replica using VBA code. Used some code from a MS article (??), and modified it for my purposes. Can’t open the partial replica database in Exclusive mode using VBA even though I can open it Exclusive with the Access user interface. If I open the file non-exclusive, it fails in the db.populatepartial method.
Any help appreciated.
************************
Option Compare Database
Option Explicit
Const sDBPARTIALName As String = “I:systemcorpdataAdmanBE.WDCorp.mdb”
Const sDBMASTER As String = “H:COMPUTERAdMANReplicateAdmanBE.DesignMaster.mdb”
Public Function CreatePartialReplica()
Dim db As Database
Set db = OpenDatabase(sDBMASTER)
db.MakeReplica sDBPARTIALName, “WD version of only CORPORATE data”, dbRepMakePartial
db.Close
End Function
Public Function CreatePartialFilter()
Dim db As Database
Dim rs As Recordset
Dim tdf As TableDef
Dim rel As Relation
Set db = OpenDatabase(sDBPARTIALName, True)
Set rs = CurrentDb.OpenRecordset(“dLkupPartiallyReplicatedTableNames”)
While Not rs.EOF
Set tdf = db.TableDefs(rs!tablename)
tdf.ReplicaFilter = “RecordstatusID = 1 OR RecordstatusID = 2”
For Each rel In db.Relations
If rel.Table = rs!tablename Or rel.ForeignTable = rs!tablename Then
rel.PartialReplica = True
End If
Next rel
rs.MoveNext
Wend
db.Close
MsgBox “done”
End Function
Public Function PopulatePartial()
Dim db As Database
Set db = OpenDatabase(sDBPARTIALName, True)
db.PopulatePartial sDBMASTER
db.Close
End Function
