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