VBA Form 'Delete' Command Button Code Ammendment

Morning,

I have an invoicing form with a 'Delete' button which deletes rows of data (invoices).

Is there anything I can add to my code to stop it from being able to delete Row 1 as these cells have my titles in and are not actually invoices.

The code I'm currently using is:

Please Login or Register  to view this content.

Also,

Ideally I'd like the delete button to not be active unless there is data populated in the form using the 'Find' button and ListBox for selection of data.

I've attached my project for reference.

Cheers
Davo

Good morning davo3286

You need to provide really concise instructions on how to do what it is you want to prevent.
It may be immediately clear to you how this file works, as you built it.
Seeing this for the first time today it wasn't obvious what I had to do to recreate your issue - which I need to do in order to fix it.
I spent a minute or two on it and moved on. Given it's now been posted for over an hour, with a dozen views, it's clear others feel the same, which is a shame, as on the face of it, it seems like relatively simple fix.

DominicB

Thanks Dominicb,

Basically, once I complete the form and click the 'add' button it then stores the data on the 'MasterData' worksheet and closes the form.

You can then reopen the form, click the 'find' button and then the data stored will appear in the listbox.

Now click on any of the rows in the listbox and it will display the data in the form. From here you can amend the data or click the 'delete' button to delete whatever data is currently displaying in the form (which then deleted the row from 'MasterData').

The problem is that you can just keep clicking the delete button and it will continue to delete rows until the 'MastaData' worksheet is empty.

I was hoping to lock the first row in 'Masta Data' so that it cannot be deleted as this is my Titles field for what data is displayed below'.

I hope this is a better explanation?

Thanks
Davo

Hi davo3286

First off, I think that you need to add a command such as InvoiceList.ListIndex = 0 whenever the listbox is redrawn. This forces one of the rows to be recognised as the active row. It needn't default to row 0 either - you could quite easily capture the previous Listindex value and restore it at that point, but as I said, this needs to take place every time the listbox is updated.

You will then need a line at the start of your DeleteButton_Click routine. Something as simple as :

Please Login or Register  to view this content.

should sort it - needless to say, this needs to come directly after the With Sheets... statement.

HTH

DominicB

More efficient to just test the listindex:

Please Login or Register  to view this content.

Much appreciated - that's EXACTLY what I was hoping for!