Re: Unreplicate A97 using Graham Seach utility

Tech Tip: Click here to run a free scan for Windows Errors and optimize PC performance

Jack,

I don't need your data, and you probably don't want that either, so you
might want to just send the schema.

Regards,
Graham R Seach
Microsoft Access MVP
Sydney, Australia
---------------------------

"Jack MacDonald" <jackMACmacdonald@xxxxxxxxx> wrote in message
news:ikl9m11jc2l94mbvfngpdrcu0qk00njhrf@xxxxxxxxxx
> OK - I can do that from the office tomorrow. It's about 16 MB, don't
> know how big it will be when zipped. Is that size OK in an email
> attachment?
>
> On Sun, 30 Oct 2005 17:58:17 +1100, "Graham R Seach"
> <gseach@xxxxxxxxxxxxxxxxxxxx> wrote:
>
>>Someone else is having problems too. Send me your database, because I
>>can't
>>duplicate the problem.
>>
>>Regards,
>>Graham R Seach
>>Microsoft Access MVP
>>Sydney, Australia
>>
>>
>>
>>"jacksonmacd" <jacksonmacd@xxxxxxxxxxx> wrote in message
>>news:1130521384.111744.39310@xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
>>> 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.
>>>
>>
>
> **********************
> jackmacMACdonald@xxxxxxxxxxxxxx
> remove uppercase letters for true email
> http://www.geocities.com/jacksonmacd/ for info on MS Access security


.

Relevant Pages

  • Re: User Accounts
    ... "Graham R Seach" wrote in message ... >> How about the user name being set to blank when exiting the database. ... >>> user names gives a potential hacker half of what they need to break in. ...
    (microsoft.public.access.formscoding)
  • Re: Password change by user
    ... I created a test database and created some usernames to test the coding ... "Graham R Seach" wrote: ...
    (microsoft.public.access.security)
  • Re: How can I add an edit record button
    ... Microsoft Access MVP ... "Graham R Seach" wrote: ... I would like to add an 'edit record' button to my form. ...
    (microsoft.public.access.gettingstarted)
  • Re: Listing values in a combo box depending on a previous combo box
    ... Dim strSQL As String ... Microsoft Access MVP ... Graham R Seach wrote: ...
    (microsoft.public.access.formscoding)
  • Re: Work Day Calculation Question
    ... Microsoft Access 2003 VBA Programmer's Reference ... > Private Sub Form_Current ... > Graham R Seach ...
    (microsoft.public.access.gettingstarted)