Can U help me?Access2000,Runtime Error:3246.

[Ferri Weng]

'This is sourcecode:

Private Sub Form_Delete(Cancel As Integer)
Cancel = 1

Dim rs As DAO.Recordset

Set rs = Me.Recordset

If Nz(rs("DF"), " ") <> "D" Then
rs.Edit
rs("DF") = "D"
rs.Update
Set rs = Nothing
Me.Requery 'Access2000:Runtime Error:3246
End If
End Sub

 

[Wayne Morgan]

Just guessing. You are canceling the delete with the line, Cancel=1. If this is like other
procedures, the cancel doesn't actually take place until you exit the procedure. If that
is the case, then you have a record in the delete buffer, yet you are trying to requery
the recordset with part of it not there.