How to delete selected record in MS Access (VBA) table within a form

[2k7mmurtaza]

I have a view bookings page where once customers make a booking it shows their list of all bookings they have made.



The issue that I am getting is it doesn't allow me to delete a selected record and only keeps deleting the record which is on the top despite selecting another record. I inserted an error message which doesn't delete past booking dates because of keeping them as historical records. I only want to be able to delete future tense bookings. How do i delete selected records?

This is my current coding to delete a booking

Private Sub btnDelete_Click()


If Day <= Now Then
MsgBox "Past booking dates are for historical records and cannot be deleted"
Else
Msg = "Are you sure you want to cancel booking"
   Style = vbYesNo
   Response = MsgBox(Msg, Style)
   If Response = vbYes Then
    DoCmd.SetWarnings False
    DoCmd.RunCommand acCmdDeleteRecord
    Exit Sub
   End If
   If Response = vbNo Then Me.Undo
      Exit Sub
    End If
Exit_ErrHandler:
Exit Sub
End If
End Sub

 

[pbaldy]

It will/should delete the record with focus. I would have the form in continuous view and have the button in the detail section. I'd either use the code created by the button wizard or execute SQL that specified the record.