Setfocus not focusing

[Matt0110]

Hi all,

Why isn't the code below focusing on my textbox? I get the message box but when i click OK the focus is not set on my textbox where the wrong data has been entered.

Private Sub TextBox12_AfterUpdate()
If TextBox12.Enabled And TextBox12.Value < TextBox11.Value Then
 
    MsgBox "Please check reading - it appears to be lower than the first reading."
    TextBox12.SetFocus
End If
End Sub

Any help would be appreciated.

Cheers,

 

[RoryA]

It's easier to use the Before_Update event:

Private Sub TextBox12_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean)
   If TextBox12.Enabled And TextBox12.Value < TextBox11.Value Then
    
       MsgBox "Please check reading - it appears to be lower than the first reading."
       Cancel = True
   End If
End Sub

HTH

 

[RoryA]

I should have mentioned that the reason the SetFocus appears not to work is that you haven't actually left the textbox when the event is triggered. Therefore your code resets the focus (no change) and then when you exit the routine, the cursor leaves the textbox and goes to the next control as normal.

 

[Matt0110]

Great stuff - thanks for both the solution and explanation!

Much appreciated