What went wrong - Please advise!

[Guest]

Hi,
I used MS Access 2K, ODBC link to SQL2K Server
I got an error code Run-time error 3146. It's highlight at ".Update"

Dim db As Database
Dim Rs1, Rs2, Rs4 As Recordset
Set db = CurrentDb
Set Rs1 = db.OpenRecordset("dbo_case", dbOpenDynaset, dbSeeChanges)
With Rs1
If Not IsNull(Me.lname) And Not IsNull(Me.fname) Then
.AddNew
!Status = 1
.Update
End If
End With
If I put a "s" after Recordset(s) I got an error: Data Method not found.

 

[Brendan Reynolds]

Probably there are fields other than 'Status' which are required, or there
are foreign key or other constraints which prevent the saving of the record.

If you open the table in datasheet view, enter a 1 in the 'Status' field,
and attempt to save the record, you'll likely get a more informative error
message which will indicate what the problem is.

 

[Douglas J Steele]

In addition to what Brendan said, I'd like to point out that your
declaration isn't doing what you probably think it is.

Dim Rs1, Rs2, Rs4 As Recordset

only declares Rs4 to be a recordset: Rs1 and Rs2 are being declared as
Variants.

Since you're using DAO methods, your declaration should be:

Dim Rs1 As DAO.Recordset, Rs2 As DAO.Recordset, Rs4 As DAO.Recordset