Hi,
This form is to allow customer to add customer name, ID, password and other previleges. But when I go do a Delete, I get a run time error 3426 - this action was cancelled by an associated object. It points to
Datax(tx).Recordset.MoveNext
I have out a MsgBox before and after this line to see what Datax(tx) is fetching. The Datax1(tx) = customer but cannot get through after that. The odd thing is it still delete the record after that.
Can anyone shed some light as to what I can do to resolve this?
thanks,
Ann
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Sub cmdDelete_Click()
If txtID(tx) = "" Then Exit Sub
If MsgBox("Delete Item " & txtID(tx) & "?", 36) = 6 Then
Datax(tx).Recordset.Delete
MsgBox("Datax1(tx) = " & Datax(tx))
Datax(tx).Recordset.MoveNext
MsgBox("Datax2(tx) = " & Datax(tx))
If Datax(tx).Recordset.EOF = True Then
Datax(tx).Recordset.MoveFirst
End If
End If
End Sub
This form is to allow customer to add customer name, ID, password and other previleges. But when I go do a Delete, I get a run time error 3426 - this action was cancelled by an associated object. It points to
Datax(tx).Recordset.MoveNext
I have out a MsgBox before and after this line to see what Datax(tx) is fetching. The Datax1(tx) = customer but cannot get through after that. The odd thing is it still delete the record after that.
Can anyone shed some light as to what I can do to resolve this?
thanks,
Ann
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Sub cmdDelete_Click()
If txtID(tx) = "" Then Exit Sub
If MsgBox("Delete Item " & txtID(tx) & "?", 36) = 6 Then
Datax(tx).Recordset.Delete
MsgBox("Datax1(tx) = " & Datax(tx))
Datax(tx).Recordset.MoveNext
MsgBox("Datax2(tx) = " & Datax(tx))
If Datax(tx).Recordset.EOF = True Then
Datax(tx).Recordset.MoveFirst
End If
End If
End Sub