Delete multiple selections

[Evgeny]

Hey guys, its good to be back to this forum

Here is my piece of code that deletes selected Building, question is: how can i make it deleted several selected building? Thanks in advance


Private Sub cmd_DeleteBuilding_Click()

Dim Answer As String

If IsNull(Me.Building__Subform.Form.BuildingID) Then

MsgBox ("Please select a building")



Exit Sub

End If

Answer = MsgBox("Delete Building?", vbQuestion + vbYesNo, "Confirm")

Select Case Answer

Case vbYes

CurrentDb.Execute "Delete * From Building Where BuildingID = " & Me.Building__Subform.Form.BuildingID

DoCmd.Requery

Case vbNo

Exit Sub

End Select

End Sub

[pbaldy]

You could use a multiselect listbox, and delete each item the same way you are within a loop of the selected items.

[Evgeny]

sory, i have been out of access development for 3 - 4 months, could you explain bit further, my brain is still bit raw heheh

[pbaldy]

This type of thing, but with your delete SQL instead of the recordset lines.

http://www.baldyweb.com/MultiselectAppend.htm

[Evgeny]

thank you, will give it go

[Evgeny]

oh... looks bit complex for my vba haha, if you ever have a min could you fill me into the details bit more

[pbaldy]

Sorry, I lost track of this thread. Did you get it sorted out?

[DaveT]

I think this only works for using recordselect for adjacent records, but is a way to select multiple records and enumerate (list) them in code.

How to enumerate selected form records in Access 2003 and in Access 2002
http://support.microsoft.com/kb/294202