How do I delete a record from a subform

captainlove · April 28th, 2008, 08:09 AM

Here is my code, but it is not working. The error is saying user defined type not defined.

Private Sub cmdinsertlist_Click()

Dim Rs As DAO.Recordset
Set Rs = CurrentDb.OpenRecordset("Select * From tblrefLink Where refID = " & Me.ID & " And UserID = '" & Forms.frmqcpList2.txtQcp & "'")

If Not Rs.EOR Or Not Rs.BOF Then
    Do Until Rs.EOF
       Rs.Delete
       Rs.Update
       Rs.MoveNext
   Loop
   Rs.Close
End If

Set Rs = Nothing

End Sub

lucasfatoye

prabodh_mishra · April 29th, 2008, 12:01 AM

In which language are you trying all this, VB or ASP? What does Me.ID and Forms.frmqcpList2.txtQcp denotes?

Prabodh