hide a list box on lost focus

[markjkubicki]

how do i hide a list box when it has lost focus

on an after update, I use this code:

Me.txtManufacturer.SetFocus
Me.lstGoToType_AtType.Visible = False

it works fine
__________________________________
but the user may not update the control; they may simply decide to do 'something' else,n which case, I want the list box to go away

i thought i could do this:

Private Sub lstGoToType_AtType_LostFocus()
Me.lstGoToType_AtType.Visible = False

or

Private Sub lstGoToType_AtType_Exit(Cancel As Integer)
Me.lstGoToType_AtType.Visible = False


but for one reason or another, it's not the right approach

thoughts?


(with thanks in advance)


mark

[ssanfu]

You have to determine under what conditions you want the list box visible. When/why does it become visible??

Is there a control that could cause/require the list box to be visible? Hide the list box, then make it visible when required.

[Missinglinq]

As Steve has noted, you need to determine a strategy for making the Listbox Visible, when appropriate; otherwise, how will you ever make a selection from it?

Is your intention, as is often the case, for it to be remain Visible, until a Selection has been made from it, for a given Record?

As for making it Invisible, you cannot change the Visibility Property of a Control while it still has Focus, as it does when the LostFocus and OnExit events fire. So the trick is to Set Focus to another Control and then make the target Control Invisible.

If, as outlined in the the second paragraph, above, you want it Visible unless/until an item has been selected from it, you would need to do something like this:

Private Sub lstGoToType_AtType_Exit(Cancel As Integer)

If Nz(Me.lstGoToType_AtType,"") <> "" Then  
 AnyOtherControl.SetFocus
 lstGoToType_AtType.Visible = False
Else
 lstGoToType_AtType.Visible = True
End If

End Sub

Private Sub Form_Current()
 
If Nz(Me.lstGoToType_AtType, "") <> "" Then
 lstGoToType_AtType.Visible = False
Else
 lstGoToType_AtType.Visible = True
End If

End Sub

You simply need to replace AnyOtherControl, in the line

AnyOtherControl.SetFocus

with the name of any other Control on the Form that can receive Focus.

Linq ;0)>