prevent Clicking "End" to close the form when run time error is shown

[dss28]

In my program if the user does not proceed with the correct method of clicking the row in a listbox to select the row and then click on the delete row button, error message 381 is shown. if the user now clicks on "End" button the form totally closes and the login window is shown.

if the user selects the row to be deleted and then clicks the delete button the code runs smoothly without issues.

Is there any way to prevent the logout of the user if the user does not proceed correctly?

or I have to program in such a way so that the command button delete is not activated till the user selects any line in the listbox to delete. Any coding available for this?

 

[dmt32]

Hi,
Try following

In your commandButton property window set the Enabled state of the control to False

In your userforms code page place this event

Private Sub ListBox1_Change()
    Me.CommandButton1.Enabled = Me.ListBox1.ListIndex <> -1
End Sub

You will need to change the names shown in BOLD as required

Dave

 

[dss28]

Hi,
Try following

In your commandButton property window set the Enabled state of the control to False

In your userforms code page place this event

Private Sub ListBox1_Change()
    Me.CommandButton1.Enabled = Me.ListBox1.ListIndex <> -1
End Sub

You will need to change the names shown in BOLD as required

Dave

Thanks Dave, it worked perfectly. for my knowledge what does <>-1 indicate?

 

[dmt32]

Thanks Dave, it worked perfectly. for my knowledge what does <>-1 indicate?

When no rows are selected, ListIndex returns -1

Glad suggestion resolved your issue & appreciate feedback

Dave