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

__________________
lucasfatoye

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


Prabodh