VBA combobox dropdown list folded up event.

[keromero]

VBA combobox dropdown list folded up event.

I want to fire a message box as soon as drop down is folded up After selection made.

Change event is not helping it keeps combobox list open during message show up.

After event neither helps it needs another trigger action.

So How could I do?

Thanks in advance

 

[keromero]

Hi Jaafar, trust all is fine over there with yourself.

Just found out a small issue left but I cant resolve. In reference same above,

at same userform I have 3 frames.

The message box defined above works fine within same frame objects. However If I switch another frame message box appears twice.
I feel, this is something related frame switching is triggering an initial code flow, but I can not figure out.

 

[Jaafar Tribak]

Hi Jaafar, trust all is fine over there with yourself.

Just found out a small issue left but I cant resolve. In reference same above,

at same userform I have 3 frames.

The message box defined above works fine within same frame objects. However If I switch another frame message box appears twice.
I feel, this is something related frame switching is triggering an initial code flow, but I can not figure out.

Could you kindly specify the exact code you're referring to? Precision in details is essential.

 

[keromero]

Hi Jaafar, to make it easier I have prepared a very simple sheet. Please see attached image. There are two frames in common user form.

So the scenario, the Text1 Value shall be numeric, non-null and above 0. Otherwise A message pops up to correct this.

In case, If you type anything not meeting the above and press enter or click COmboBox1 there will single message box pop-up.

However If you click TextBox2 which is binded to frame 2 (or any other object which you bind in frame 2 such as text box, combo box etc)
There will be repeating 2 message box pop ups.

Disabling either frame 2 or its objects in complete solve the issue, but this is not something I want.

Thanks and Best REgards,

**************************************

Private Sub TextBox1_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean)

If Len(TextBox1) > 0 And IsNumeric(TextBox1) And TextBox1.Value > 0 Then

ComboBox1.Clear
Me.ComboBox1.Enabled = True
ComboBox1.AddItem "Option01"
ComboBox1.AddItem "Option02"
ComboBox1.AddItem "Option03"

Else

MsgBox "Enter a numeric value or a value greater than zero...", vbInformation, "Selection Utility"
Cancel = True
TextBox1.Text = ""
ComboBox1.Clear

End If
**************************************

 

[Jaafar Tribak]

Coding the events of controls located inside frames is a pain.
I think the easiest way is to replace the Frames with Label controls (add a border around the labels and SpecialEffect = fmSpecialEffectEtched so they look like frames ) and then place the controls over the labels.

Alternatively, in your specific situation, you can add a second Frame inside Frame2 and then place TextBox2 inside the newly added frame. (Do the same with other controls you may have in Frame2 besides TextBox2)