Help with Focus/Lost Focus

[Kid_Coke]

Here is the code another member gave me.


Private Sub TextBox1_Change()
If Val(TextBox1.Text) < 1 Or Val(TextBox1.Text) > 5 Then
MsgBox "Please enter a number between 1 and 5".
TextBox1.SetFocus
End If
End Sub

That works fine, it limits users from entering values less than one and greater than 5 but if the user simply presses enter or tab the box remains blank.

I have tried several ways to capture this event. Is this a problem with the AutoTab feature?

Thanks.

[TheBionicOrange]

Try using the LostFocus event :

Private Sub Text1_LostFocus()
    If Val(Text1) < 1 Or Val(Text1) > 5 Then
        MsgBox "Valid Values between 1 and 5 !"
        Text1.SetFocus
    End If
    
End Sub

[Kid_Coke]

There is no lostfocus event in excel vba.

Is there another way to do this?

[TheBionicOrange]

ummm .... I hate to disappoint you but Im afraid there is.

I am presuming you are using a textbox, based on your code above.

[Kid_Coke]

I tried to write my own

Private Sub Textbox1_lostfoucs()

and it did not work ... any reasons?

[TheBionicOrange]

Ummm ..... you've spelt LostFocus as "lostfoucs"

Just as a matter of interest ..... if you double click your textbox whilst in design mode this takes you to the default "Change" event for a textbox.

If you use the pull-down box in the VBA environment that lists all the events for the textbox can you not see "LostFocus" listed ?

[Kid_Coke]

OK... Somethings up. I don't have a mouseover event.

What should I use instead.

I want a label to change color when the mouse is over it.

That is all.'

[RobDog888]

Use the mousemove event.

Private Sub Label1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
 
End Sub