| Sub JROConflictTables() Dim repMaster As New JRO.Replica Dim rstConflicts As ADODB.Recordset repMaster.ActiveConnection = ".\NorthWind.mdb" Set rstConflicts = repMaster.ConflictTables If rstConflicts.BOF And rstConflicts.EOF Then ' There are no conflict tables so no conflicts occurred. Debug.Print "No conflicts." Else Do Until rstConflicts.EOF Debug.Print rstConflicts.Fields(0) & " had a conflict." rstConflicts.MoveNext Loop End If End Sub |
Replica, Conflict Tables |
India web developer web development India | Freelance web development ecommerce web developer | Prayagasoft - web designer India, Ecommerce developer india, Ecommerce design