SetFocus Code

[Big Lar]

This code will not SetFocus to TextBox2…any ideas as to why?<?xml:namespace prefix = o ns = "urn:schemas-microsoft-comfficeffice" /><o></o>
<o></o>

[FONT=Verdana]Private Sub TextBox2_AfterUpdate()[/FONT]
[FONT=Verdana]<o:p></o:p>[/FONT]
[FONT=Verdana]If Me.TextBox2.Value < Me.TextBox3.Value Then<o:p></o:p>[/FONT]
[FONT=Verdana]Me.TextBox2.SetFocus[/FONT]
[FONT=Verdana]MsgBox "Counter Value is Less Than Previous Reading.", vbCritical[/FONT]
[FONT=Verdana]Exit Sub<o:p></o:p>[/FONT]
[FONT=Verdana]End If<o:p></o:p>[/FONT]
[FONT=Verdana]<o:p></o:p>[/FONT]
[FONT=Verdana]End Sub[/FONT]

<o></o>

 

[Norie]

Could it be because you are comparing text and not numbers?

If Val(Me.TextBox2.Value)<Val(Me.TextBox3.Value) Then

 

[Big Lar]

Norie,
I tried that...but, the focus still goes to the next Textbox.

 

[mikerickson]

I also have problems with .SetFocus in the Enter, Exit, AfterUpdate and BeforeUpdate events.

Have you tried moving the checking to the BeforeUpdate event and using the Cancel variable rather than .SetFocus?

 

[Norie]

Part of the code was cut off, the main thing is to use Val to convert the text in both textboxes to numbers.

Then you can compare them properly, assuming they are meant to be numbers.

By the way which textbox is entered first, is there always a value in TextBox3 when you leave TextBox2?

 

[Big Lar]

Thanks Mike...
I haven't tried that but thanks for the suggestion. I'll give it a go and let you know. Gotta mow the lawn first

 

[Big Lar]

Norie,

I set both TextBoxes to Val(Me.TextBox#.Value)

TextBox3 value is called from a datasheet...with no user input.

All TextBox values are numeric.

 

[Norie]

Well it should work, and it did for me.

Mike has got a good idea though.

 

[Big Lar]

OK…This is how I “fixed” it.
<?xml:namespace prefix = o ns = "urn:schemas-microsoft-comfficeffice" /><o> </o>
I moved the MsgBox and SetFocus code to CommandButton1_Click.
This button runs my process after all textboxes have been populated.
<o> </o>
If TextBox2.Value < TextBox3.Value Then
MsgBox pops and focus is set correctly.