List Box Code

[Moxy1]

I'm having issues with the following code that works on a command button but not on the after update of the list box. I really need it attached to the after update listbox. Any ideas what I'm missing?

Private Sub lstOrgRes_AfterUpdate()
    
Dim ctlOrgReg As Access.Control

Set ctlOrgReg = Me.lstOrgRes

If ctlOrgReg.ItemsSelected.Count > 0 Then
    MsgBox "w00t"
Else
    MsgBox "BS"
End If
    
End Sub

 

[PHV]

Please, define "not works"

Hope This Helps, PH.
FAQ219-2884
FAQ181-2886

 

[Moxy1]

after an item is selected from the list box and the After Update event is fired, it is not recognizing that an item was selected and returns the mesage box, "bs".

 

[PHV]

Is the ListBox multi-select ?

Hope This Helps, PH.
FAQ219-2884
FAQ181-2886

 

[Moxy1]

nope, it's a single select list box. And let me go into a little detail of what I'm up against.

The list box is populated with a listing of values found in a table. One of the items can be a Null value.

If I use a statement that says,

 if isNull(me.lstOrgRes) = False

I would get a false positive when a user selects the null value in the select box.

Hope that helps a little.

 

[PHV]

nope, it's a single select list box
So, your code works as expected.
Typed, untested:

Private Sub lstOrgRes_AfterUpdate()
If Me!lstOrgRes.ListIndex >= 0 Then
    MsgBox "w00t"
Else
    MsgBox "BS"
End If
End Sub

Hope This Helps, PH.
FAQ219-2884
FAQ181-2886