Unreplicate A97 using Graham Seach utility
- From: "jacksonmacd" <jacksonmacd@xxxxxxxxxxx>
- Date: 28 Oct 2005 10:43:04 -0700
Trying to use Graham's utility from
http://www.pacificdb.com.au/MVP/Code/UnReplicate.htm
Had problems getting the A97 form to import correctly, so I used the
A2002 version and downgraded it to A97. I removed references to
CurrentProject properly on lines like:
If (Me.chkDeleteExistingObject = True) Or
Len(CurrentProject.AllForms(rsX!Name).Name) = 0 Then
Starting from a fresh database, I can unreplicate the tables and
queries of a typical backend database, but the Relationships are not
being copied. I've single-stepped thru the code, focussing on the
section with the Get All Relations comment:
dbC.Relations.Append relC
dbC.Relations.Refresh
Me.ActionProgress.Value = Me.ActionProgress.Value + 1
If bStop Then GoTo Proc_Exit
Next relX
For the first time thru the code, the Immediate window reports the
Currentdb.Relations.Count = 0 before the .Append line is executed, and
Err.Num is 0. The properties of the relC object appear to be correct.
If I single-step after the .Append command, the count of relations is
still 0, but Err.Num is now 3284 "Index Already Exists"
It appears that attempting to append the relationship also creates an
index, which has already been created earlier.
Next, I commented-out the section that creates the Indexes and ran the
process again on a fresh database. This time, there is an error #3609,
no Unique Index on the primary table.
I am stumped... Is it possible to use this utility on an A97 database,
and copy the Relationships?
BTW - this line:
Me.lblCurrentActivity.Caption = fldX!Name
generates an error message when Error Trapping is turned off. I think
the correct syntax should be fldX.Name.
.
- Follow-Ups:
- Re: Unreplicate A97 using Graham Seach utility
- From: Graham R Seach
- Re: Unreplicate A97 using Graham Seach utility
- Prev by Date: Re: TSI Un-replicator not working ?
- Next by Date: Re: Unreplicate A97 using Graham Seach utility
- Previous by thread: Re: Is Replication a vaild means to avoid Data Corruption
- Next by thread: Re: Unreplicate A97 using Graham Seach utility
- Index(es):
Relevant Pages
|
