VBA form - ghost call to textbox exit sub

[jpmccreary]

I am experiencing a strange issue with one of my forms. The form collects customer info from the user using a multi page interface. On the 2nd tab I have a text box called tbEffectiveDate and two frames: Tax and Signature info. Inside the tax frame I have text boxes for business type, incorporated and tax id/ssn. For tax and ssn I have code for exiting to check the length and also format the number entered:

Private Sub tbTaxID_Exit(ByVal Cancel As MSForms.ReturnBoolean)

If IsNumeric(Val(tbTaxID.Value)) And Len(tbTaxID.Value) = 9 Then
tbTaxID.Text = Format(tbTaxID.Text, "00-0000000")
Else
MsgBox "Please enter a valid 9 digit tax id"
Cancel = True
End If

End Sub
​

When I exit tbTaxID this sub is not called. If I tab through all items and back around to the tbEffectiveDate this sub does get called after exiting, but only after tabbing through everything. I deleted the code for tbEffectiveDate but this still occurs. I also tried renaming the text boxes. How can these text boxes be linked with no code?

 

[AlphaFrog]

The tbTaxID_Exit event isn't triggered when you select other objects in other frames. It's only triggered when you select other objects within the same Frame.

Try using the...

Private Sub tbTaxID_[COLOR="Red"]BeforeUpdate[/COLOR](ByVal Cancel As MSForms.ReturnBoolean)

...event instead.

 

[jpmccreary]

Great suggestion! After a little testing I believe the BeforeUpdate is going to work.

So it sounds like the Exit event was getting stored but not processed because I was moving from one frame to the next. Once I was out of the frames the event triggered at the first exit event.

I would never have realized what was happening without your help. Thank you very much.