Results 1 to 4 of 4

Thread: Update Issue

  1. #1

    Thread Starter
    Lively Member
    Join Date
    Jan 2001
    Location
    Ca
    Posts
    124

    Smile Update Issue

    Hi everyone

    I was having a problem with this code and was wondering if anyone can help???
    Now when I click the Update command button and then move to another record and click update again I get the error msg > ( Run time error ‘3020’ ) (Update or CancelUpdate without AddNew or Edit)

    Private Sub cmdUpdate_Click()
    datEdgeCoarse.UpdateRecord
    datToolOrgins.UpdateRecord
    datEdgeCoarse.Recordset.Edit
    datEdgeCoarse.Recordset.Fields("EDITDate") = Format(Date, "short Date")
    datEdgeCoarse.Recordset.Fields("EditTime") = Format(Time, "hh:mm:ss AMPM")
    cmdCreateLoad.Enabled = True
    cmdCreateCEdge.Enabled = True
    End Sub
    Any help would be nice

    Reston

  2. #2
    Hyperactive Member Granty's Avatar
    Join Date
    Mar 2001
    Location
    London
    Posts
    439
    Which line is causing the error to fire?

  3. #3

    Thread Starter
    Lively Member
    Join Date
    Jan 2001
    Location
    Ca
    Posts
    124

    Unhappy Re updat issue

    datEdgeCoarse.UpdateRecord is the first line in the click event for my command button

    reston

  4. #4
    Banned randem's Avatar
    Join Date
    Oct 2002
    Location
    Maui, Hawaii
    Posts
    11,385
    tiguy


    (Update or CancelUpdate without AddNew or Edit)

    I don't see a AddNew or Edit anywhere do you??? But you are attempting to do the update. That would seem to be the problem from the message given.

    What are you updating and what state is it in?

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •  



Click Here to Expand Forum to Full Width