Issues with forms and set focus

[princesstech]

Hi,

I have a form with several text boxes. At least one of those text boxes is set to validate on exit, generate an error message then return the cursor to the text box so the EU can make the correction.

Here's the code I'm using, and I can't find anything wrong with it.

Private Sub TextBox2_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If TextBox2 = "" Then
MsgBox "fill it in"
TextBox2.SetFocus
End If
End Sub

What am I doing wrong? Any help would be appreciated.

TIA

Marie

 

[Andrew Poulsom]

My test UserForm had 2 TextBoxes. With the code I posted, if I clicked on TextBox2 without having completed TextBox1, focus returned to TextBox1. You don't need any Exit event procedures, but you will need Enter event procedures for each of your TextBoxes, with appropriate code.

 

[princesstech]

Hi Andrew,

Sorry I haven't gotten back to you on this one sooner, I took a long weekend from work

I created a new form with only the 2 text boxes, and your code worked great until I added a third text box. When I add the 3rd text box, the focus goes to that 3rd text box when I tab out of the first text box into the 2nd one.

I was thinking it was just my machine, so I tried it on a different computer, both computers are Windows 2k with Office XP.

Any other ideas? This one really has me stumped

 

[Andrew Poulsom]

Very strange!

Back to the Exit event - try this:

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    If TextBox1.Value = "" Then
        MsgBox "Fill me in"
        Cancel = True
    End If
End Sub

The secret seems to be setting the Cancel property to True.

 

[princesstech]

Thank you for your time and your patience, that works beautifully. I would never have though to set the cancel property to true.

Thanks again!

:D

Marie