Hello all;

I'm getting an error "Method or Data Member Not Found" at line "rs.Edit" in the below code. Does anyone have a guess as to why? I tried changing the Recordset to DAO but that gives me a type mismatch error? Perplexed? Thanks in advance for any suggestions.


On Error GoTo Err_cmdSave_Click
Dim vntRetVar As Variant
Dim db As Database
Dim rs As Recordset
Set db = CurrentDb()
Set rs = db.OpenRecordset("tblImageBLOBs")
'If Validated, Save; if not, just return to Form
If Validate Then
vntRetVar = ReadBLOB(Me![imgTheImage].Picture, rs, "ImageItem")
If vntRetVar <= 0 Then GoTo SpecialError
rs.MoveLast
rs.Edit
rs("ImageShortName") = Me![txtImageShortName]
rs("ImageName") = Me![txtImageName]
rs("ImageFileExtension") = Right(Me![imgTheImage].Picture, 3)
rs.Update
On Error Resume Next
DoCmd.Echo False
Forms![frmImageBLOBSummaryList].Requery
DoCmd.Echo True
DoCmd.Close acForm, Me.Name
End If
Exit_cmdSave_Click:
On Error Resume Next
rs.Close
Set rs = Nothing
Set db = Nothing
Exit Sub
Err_cmdSave_Click:
MsgBox "Err: " & Err.Number & " : " & Err.Description & _
" in Sub cmdSave_Click", vbCritical, "Images in Access Example"
Resume Exit_cmdSave_Click
SpecialError:
MsgBox "Error " & -vntRetVar & " trying to write the BLOB", vbExclamation, "Images in Access Example"
Resume Exit_cmdSave_Click
End Sub

thats almost certainly a missing reference or library

check what libraries are associated with this code int he code editor.

make sure you don't confuse ADO with DAO or vice versa, be consistent with your data objects use either or but not both (unless of course you need TO)

However its possible that you have moved beyond the current recordset (its possible that a recordset may empty.. that could casue an error

incidentally when posting code please enlcose it in code tags <squarebracket'['>code<squarebracket']'>
I think its the # button on the normal reply function. it makes reading code much much easier

Thanks very much for the input....sorry about the lack of code tags...whoops