[RESOLVED] Multi Step OLE DB Generated errors

[FishGuy]

Hi People
I am getting the error Multi Step OLE DB Generated error on this piece of code.

Dim rsDel As Recordset
Dim cnn As Connection
Dim strSQL As String
Set rsDel = New Recordset
Set cnn = CurrentProject.Connection
strSQL = "Select * from EmployeeStates Where FK_EmpID =" & Me.Parent!EmployeeID & " "
rsDel.Open strSQL, cnn, adOpenDynamic, adLockOptimistic, adCmdText
 
   While Not rsDel.BOF And Not rsDel.EOF
  With rsDel
  .Delete
       .Update
       
    
    End With
       Wend
   rsDel.Close

Does anyone know a workround?

[anguswalker]

It looks like you are deleting all records with a specific employee ID- presumably an employee who leaves. (BTW why not instead have a boolean field to mark that they have left. That way you retain the data)
Assuming cnn is an ADODB connection, try:

cnn.Execute("Delete * from EmployeeStates Where FK_EmpID =" & Me.Parent!EmployeeID)

[FishGuy]

excellent thanks

Dim cnn As Connection
Dim strSQL As String
Set cnn = CurrentProject.Connection
strSQL = "Delete * from EmployeeStates Where FK_EmpID =" & Me.Parent!EmployeeID & " "
 cnn.Execute strSQL