Closing a combo box

[Remster]

Folks



This one is driving me up the wall. I have several combo boxes on my form, which are locked depending on the value entered in another field. When the user clicks on one of these combo boxes, a message pops up telling them they can't make any changes. So far so good. But if they've clicked on the down-arrow on the right of the combo box, once they've OK'd the message the full dropdown list is displayed. How on earth do I stop this happening or at least close the list again programmatically?

I have variants of this in my On Mouse Down events:

 
If Me!Status.Value = "Cancelled" Then
    MsgBox "You cannot amend a record for a cancelled document." _
        , vbInformation
End If

Remster

[RuralGuy]

Set the cbo Enabled property to False instead of the Locked property to True.

[Remster]

Set the cbo Enabled property to False instead of the Locked property to True.

The thing is, I want any previously selected values to remain visible, so I don't want the box to be greyed out.

[Remster]

The other problem is that if the combo boxes can't receive the focus, my message box won't pop up (this has occurred to me just now because I've tried setting Locked to True and Enabled to False, which avoids the greying out).

I really need F4 or Escape or something to fire when the message is OK'd (just adding SendKeys as an extra line of code doesn't work).

[RuralGuy]

You should be able to close the DropDown by simply moving the focus to another control.

[Remster]

It's all right, I've sorted it now. What I didn't tell you is that as well as my On Mouse Down event I have a corresponding On Key Down event. I'd forgotten either to exempt the F4 key or to add the 'SendKeys "{F4}"' instruction to this:

    If Not KeyCode = vbKeyF4 Then
        If Me!Status.Value = "Cancelled" Then
            MsgBox "You cannot amend a record for a cancelled document." _
                , vbInformation
            SendKeys "{F4}"
        End If
    End If

Without the 'SendKeys "{F4}"' instruction, the dropdown list is left open. Without the line 'Not KeyCode = vbKeyF4', the 'SendKeys "{F4}"' instruction in the other event creates an eternal loop. D'oh!

Sorry for littering your website with these petty issues.