Groups | Search | Server Info | Keyboard shortcuts | Login | Register [http] [https] [nntp] [nntps]

Groups > comp.databases.ms-access > #11197

Re: "Record Deleted" error when appending to a memo field from a memo field

Show all headers | View raw

"PW" <emailaddyinsig@ifIremember.com> wrote in message 
news:0q3t1b5honvikosk3rq8jgembbhdg96dn0@4ax.com...
> On Wed, 14 Oct 2015 10:39:27 -0500, "Ron Paii" <None@none.com> wrote:
>
>>
>>
>>"PW" <emailaddyinsig@ifIremember.com> wrote in message
>>news:87er1b94ldigtjtfohp5e6007ogrch27ti@4ax.com...
>>> On Tue, 13 Oct 2015 12:02:45 -0700 (PDT), Patrick Finucane
>>> <patrickfinucanetx@gmail.com> wrote:
>>>
>>>>On Tuesday, October 13, 2015 at 1:46:58 PM UTC-4, PW wrote:
>>>>> I found what is causing the error by removing various fields from the
>>>>> Append Query.  I also get the error when doing an INSERT INTO.
>>>>>
>>>>> I do not get the error if I do not list the memo field in the Insert
>>>>> or have it in the Append Query.
>>>>>
>>>>> This is not happening with the same field in another query (but I need
>>>>> to check that again).
>>>>>
>>>>> Any ideas why I am getting the "Record Deleted" error?  No records end
>>>>> up getting written to the destination table.
>>>>>
>>>>> I know it used to work.
>>>>>
>>>>> -paulw
>>>>
>>>>Are you sure the fields in both tables are the same?
>>>>
>>>>What happens if you update record by record?
>>>>Dim r as recordset
>>>>Dim r1 as recordset
>>>>set r = currentdb.openrecordset("Table1",dbopensnapshot)
>>>>set r1 = currentdb.openrecordset("Table1",dbopenDynaset)
>>>>R.movefirst
>>>>Do while not r.eof
>>>>  r1.addnew
>>>>  r1!Field1 = r!Field1
>>>>  r1.update
>>>>  r.movenext
>>>>loop
>>>
>>> *-----
>>>
>>> That is what I ended up doing.  And no errors.  But for some reason I
>>> have a looping problem!
>>>
>>> I see nothing wrong here yet.  But it wrote tens of thousands of the
>>> same record to the output table before I had to hit ctrl-break.
>>>
>>> rstCaseCorrespondence.MoveFirst
>>>
>>> Do While Not rstCaseCorrespondence.EOF
>>>
>>>    With rstWrkf
>>>
>>>        rstWrkf.AddNew
>>>
>>>            !correspondence_id =
>>> rstCaseCorrespondence!correspondence_id
>>>            !correspondence_type =
>>> rstCaseCorrespondence!correspondence_type
>>>            !notes = rstCaseCorrespondence!notes
>>>            !followup_date = rstCaseCorrespondence!followup_date
>>>            !start_time = rstCaseCorrespondence!start_time
>>>            !end_time = rstCaseCorrespondence!end_time
>>>            !outlook_yn = rstCaseCorrespondence!outlook_yn
>>>            !RelatedPersonNospace =
>>> rstCaseCorrespondence!RelatedPersonNospace
>>>            !case_number = rstCaseCorrespondence!case_number
>>>            !defendant = rstCaseCorrespondence!defendant
>>>            !followup_yn = rstCaseCorrespondence!followup_yn
>>>
>>>        rstWrkf.Update
>>>
>>>    End With
>>>
>>>    rstCaseCorrespondence.MoveNext
>>>
>>> Loop
>>
>>I would have to believe the original problem is caused by corruption. Have
>>you done a compact/repair on the database.
>
> Yup I did.
>
>> As for your loop, do you have a
>>"On Error resume next" statement before the loop. If so add error checking
>>and retest.
>
> No, I do not.  What would that do?
>

"resume next" would hide an error caused by the MoveNext, causing EOF never 
being reached. If the function has no error trapping, VBA looks up the call 
tree for trapping in other functions. 

Back to comp.databases.ms-access | Previous | Next — Previous in thread | Next in thread | Find similar | Unroll thread

Thread

"Record Deleted" error when appending to a memo field from a memo field PW <emailaddyinsig@ifIremember.com> - 2015-10-13 11:46 -0600
  Re: "Record Deleted" error when appending to a memo field from a memo field Patrick Finucane <patrickfinucanetx@gmail.com> - 2015-10-13 12:02 -0700
    Re: "Record Deleted" error when appending to a memo field from a memo field PW <emailaddyinsig@ifIremember.com> - 2015-10-13 20:10 -0600
      Re: "Record Deleted" error when appending to a memo field from a memo field Patrick Finucane <patrickfinucanetx@gmail.com> - 2015-10-14 06:38 -0700
        Re: "Record Deleted" error when appending to a memo field from a memo field PW <emailaddyinsig@ifIremember.com> - 2015-10-14 11:22 -0600
          Re: "Record Deleted" error when appending to a memo field from a memo field Patrick Finucane <patrickfinucanetx@gmail.com> - 2015-10-14 12:38 -0700
            Re: "Record Deleted" error when appending to a memo field from a memo field PW <emailaddyinsig@ifIremember.com> - 2015-10-14 20:23 -0600
          Re: "Record Deleted" error when appending to a memo field from a memo field Patrick Finucane <patrickfinucanetx@gmail.com> - 2015-10-14 13:24 -0700
            Re: "Record Deleted" error when appending to a memo field from a memo field PW <emailaddyinsig@ifIremember.com> - 2015-10-14 20:26 -0600
      Re: "Record Deleted" error when appending to a memo field from a memo field "Ron Paii" <None@none.com> - 2015-10-14 10:39 -0500
        Re: "Record Deleted" error when appending to a memo field from a memo field PW <emailaddyinsig@ifIremember.com> - 2015-10-14 11:23 -0600
          Re: "Record Deleted" error when appending to a memo field from a memo field "Ron Paii" <None@none.com> - 2015-10-14 12:28 -0500
            Re: "Record Deleted" error when appending to a memo field from a memo field "Phil" <phil@stantonfamily.co.uk> - 2015-10-14 19:32 +0100
    Re: "Record Deleted" error when appending to a memo field from a memo field PW <emailaddyinsig@ifIremember.com> - 2015-10-13 20:11 -0600

csiph-web