delete multiple records at once

[akrylik]

I have a database with a form that is linked to one table and a subform linked to another table. In the subform there is a field called "DeleteRecord" and is a checkbox. What i am trying to do is create a delete button that deletes all the records in the proper table that have the field checks. I have tried finding the problem in the code but cant seem to find it. The way it is supposed to work is it looks at if the "DeleteRecord" box is checked, and if it is, then it looks to make sure the Owner for the record matches the current user, who logins in w/ his owner name. If they are equal, all checked records for that owner are deleted.

Any ideas?

Private Sub Command22_Click()


Set rst = CurrentDb.OpenRecordset("ResourceAllocation")


Do Until rst.EOF
If ResourceAllocation.[DeleteRecord] = True And ResourceAllocation.[Owner] = Owners.[Owner Name] Then
DoCmd.RunMacro "delete"
End If

rst.MoveNext
Loop

End Sub

[June7]

Try (no recordset and no loop code):

CurrentDb.Execute "DELETE FROM ResourceAllocation WHERE DeleteRecord=True AND Owner = '" & Me![Owner Name] & "'"

What is Owners.[Owner Name] - is it an open form and a control that has the logged in owner name?

Why do you need to delete records? Why not just tag them as Active/Inactive and filter on this attribute?

[akrylik]

That gave me the following error :

Run-time error '3464':
Data type mismatch in criteria expression

[akrylik]

and yes, owners.owners name is an open form. The way it works is when the db opens, you are asked for a login, and based on the login, the owner's name is auto populated and shows all resourceallocation records where his name is the value for the Owner field in the ResourceAllocation table.

[June7]

Owner and Owner Name are both text fields? Or is Owner Name a text or combobox name reference?

Do you want to provide project for analysis? Follow instructions at bottom of my post.

[akrylik]

Im working on getting the sample to put up here. i had the code wrong. owner name was the label for the combo box. I changed it to me.combo10.column(1) which is where the value is from and i still get the same error