dbSeeChanges Code

[tucker61]

I recently moved some of my tables into a SQL server, with a access front end, With this code the LogErrors (Allen Browne) is giving me a error code.

Initially it was error 3622 -"You must use the dbSeeChanges option with OpenRecords", so i added SDSeeChanges, and now getting error 3001 at the same line.

Any advise appreciated.

  Set db = CurrentDb()
    Set rst = db.OpenRecordset("tblQCLogError", dbSeeChanges)
    rst.AddNew
        rst![ErrNumber] = iErrNumber
        rst![ErrDescription] = Left$(strErrDescription, 255)
        rst![ErrDate] = Now
        rst![CallingProc] = strCallingProc
        rst![UserName] = GetLongName
        rst![Parameters] = Job_ID
    rst.Update
    rst.Close

 

[theDBguy]

What is error 3001?

 

[Minty]

How have you defined rst?
Error 3001 is very vague without the description text.

 

[sonic8]

i added SDSeeChanges

You didn't.
dbSeeChanges is an value for the Options argument, but you pass it for the Type argument. See the documentation of OpenRecordset for details.

 

[Minty]

As Sonic says you don't have the syntax correct

Set rst = db.OpenRecordset("tblQCLogError", dbOpenDynaset , dbSeeChanges )

 

[tucker61]

Thanks ALL.

Now working !!