Deselecting list causing issue

[DMT Dave]

Hi Guy's



I am trying use a de select option in a list, so this line:

Me.lstMainOptions.ListIndex = -1

I have the above line as very last in the on click procedure so it allows the option to execute (does that fine)

I have a tab control on my MainMenu, after I have selected anything in the list, then the tab pages on my main form doesn't respond to selecting pages !!

once i remove Me.lstMainOptions.ListIndex = -1 then all works normal ??

My aim was to once list item selected then remove the highlighted selection from the list

DO you think the option i am using is the best option to deselect list items (last line in procedure)

[Minty]

Not enough to go on here.
A list box has no natural interaction with a tab page so you must have some code that is doing something after the listbox selection.

Post up the whole code or better still a bit of database that demonstrates what's happening, or not.

[DMT Dave]

Hi Minty, thank you, i thought it shouldn't effect as there is no interaction

I will do some more work and come back if i can't find a solution, you have confirmed what i thought that there is no link the end of a procedure and selecting another option mot related

[Welshgasman]

Here is how I deselected listbox entries until I used MajP listbox class. Now commented out.

'Dim i As Integer
'
'For i = Me.lstCrew.ListCount - 1 To 0 Step -1
'    Me.lstCrew.Selected(i) = False
'Next

[Gicu]

Is the listbox set to multiselect? You could reset its row source or use the following function:

Function ClearList(lst As ListBox) As Boolean
Dim varItem
If lst.MultiSelect = 0 Then
	lst = Null
Else
	For Each varItem In lst.ItemsSelected
		lst.Selected(varItem) = False
	Next
End If
End Function

To use it in your click event:

ClearList(Me.lstMainOptions)

Cheers,

[DMT Dave]

Hi Guys, no not set to multi select, I will test your suggested solutions

Thanks guys, will confirm back

[DMT Dave]

Tried a version of WGM, list doesn't deselect

my version of WGM

Dim iItems As Integer

For iItems = Me.lstMainOptions.ListCount - 1 To 0 Step -1
    Me.lstMainOptions.Selected(iItems) = False
Next

Bizarre when i have tried Vlad's sub or function not defined

so changed to Public Function

Function not defined

Option Compare DatabaseOption Explicit
Public Function ClearList(lst As ListBox) As Boolean
Dim varItem
If lst.MultiSelect = 0 Then
    lst = Null
Else
    For Each varItem In lst.ItemsSelected
        lst.Selected(varItem) = False
    Next
End If
End Function

Then run the function as suggested!!!!

It's not mega important but would be good not to have the list highlighted after procedures of list events

[Welshgasman]

Vlad's would be better as that just looks at those selected, so in your case, just the one. Mine went through the whole list, not knowing any better.

[Gicu]

Can you please show both the public function and how you call it (the click procedure)? No need to make the function return a boolean, just leave it as I post it.

Cheers,

[DMT Dave]

Hi Vlad, so i have added the following to my module called Public Functions

Option Compare DatabaseOption Explicit
Public Function ClearList(lst As ListBox) As Boolean
Dim varItem
If lst.MultiSelect = 0 Then
    lst = Null
Else
    For Each varItem In lst.ItemsSelected
        lst.Selected(varItem) = False
    Next
End If
End Function

I have added the following to the last procedure my list on Click event

The full event is quite large but basically the list is set a table/Query from tblMainList with 2 fields

field 1 is RecordNo set to Number field 2 is ListItems

lstMainList column(0) (record No) is set to zero width and column(1) is set to display (ListData)

Then using select case Me.lstMainList.Column(0)

Case 1
Open Form
Case 2
Send Email
etc etc..

unsure if it makes a difference that the list source is table.query and not value list ?

anyhow this is the last part of code as full procedure is large

Case 5    
        DoCmd.OpenForm "frmStorage"
    
    Case 6
    
    
        DoCmd.OpenForm "frmSearch"
    
    If Not IsNull(Forms!frmMainMenu!frmIndex1!cboCustomer) Then
        strCust = Forms!frmMainMenu!frmIndex1!cboCustomer
    Else
        strCust = DLookup("Name", "tblCustomers", "[RecordNo] = 98")
    End If
    
    Forms!frmSearch!txtCustomer = strCust
    


End Select


ClearList (Me.lstMainOptions)






End Sub

[Gicu]

Can you try this please:

Public Function ClearList(lst As ListBox) 
Dim varItem
    For Each varItem In lst.ItemsSelected
        lst.Selected(varItem) = False
    Next
End Function

Cheers,

[DMT Dave]

Hi Vlad, i have ticked require variable declarations in alt F11/Tools/Options

I have this issue before i think when trying to run from Function!!

Option Compare DatabaseOption Explicit
Public Function ClearList(lst As ListBox)
Dim varItem
    For Each varItem In lst.ItemsSelected
        lst.Selected(varItem) = False
    Next
End Function

[DMT Dave]

This topic is not super important but i know it should work from suggestions

It is one of those where if you have started something, don't be beat in completing it

[DMT Dave]

A Plan B i am thinking is to set the focus elsewhere it's just a matter of which event

currently using on click for the list

maybe on exit/after update/on lost focus

[DMT Dave]

Hi Again Vlad, I have found this does the trick but still unsure why function won't recognize!!!!!

Private Sub lstMainOptions_LostFocus()
Me.lstMainOptions.ListIndex = -1
Me.lstMainOptions.Requery
End Sub