Goto Specific Textbox in Userform
 

I am developing userform that needs to validate any change in a textbox.
If the new data is outside of the specified region, then I want the current
textbox to be remain selected, but unfortunately I cant find a way to do this.

The code I am currently using is

Private Sub BENCH_Tour_Amber_txt_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If Not BENCH_Tour_Amber_txt.Value < 100 Then
BENCH_Tour_Amber_txt.Value = Format(Me.BENCH_Tour_Amber_txt.Value, "")
Else
MsgBox Prompt:="Amber Tolerance Must Be Between 0 & 100",
Buttons:=vbExclamation

End If
End Sub

Also
This re-occurs numerous times in the same userform, so is it possible to
write the code no matter which textbox is "exited", or will I just have to
repeat for each textbox??

Thanks for any help that you can give.

Goto Specific Textbox in Userform
 

Private Sub BENCH_Tour_Amber_txt_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If Not BENCH_Tour_Amber_txt.Value < 100 Then
BENCH_Tour_Amber_txt.Value = Format(Me.BENCH_Tour_Amber_txt.Value,
"")
Else
MsgBox Prompt:="Amber Tolerance Must Be Between 0 & 100",
Buttons:=vbExclamation
Cancel = True
End If
End Sub

For the exit event, since it is provided by the controls container, you
would need to create one for each textbox.

--
Regards,
Tom Ogilvy


"Kris_Wright_77" wrote in message
...
I am developing userform that needs to validate any change in a textbox.
If the new data is outside of the specified region, then I want the
current
textbox to be remain selected, but unfortunately I cant find a way to do
this.

The code I am currently using is

Private Sub BENCH_Tour_Amber_txt_Exit(ByVal Cancel As
MSForms.ReturnBoolean)
If Not BENCH_Tour_Amber_txt.Value < 100 Then
BENCH_Tour_Amber_txt.Value = Format(Me.BENCH_Tour_Amber_txt.Value,
"")
Else
MsgBox Prompt:="Amber Tolerance Must Be Between 0 & 100",
Buttons:=vbExclamation

End If
End Sub

Also
This re-occurs numerous times in the same userform, so is it possible to
write the code no matter which textbox is "exited", or will I just have to
repeat for each textbox??

Thanks for any help that you can give.

Goto Specific Textbox in Userform
 

Thanks
Works exactly the way I wanted.

Could you let me know why this works?
I have seen it used similarly in other pieces of code that I have found and
adapted from this forum, and obviously didn't need to understand
My VBA is entirely self taught, and haven't been able to find any
explanations in the couple of reference books that I have.

Kris

"Tom Ogilvy" wrote:

Private Sub BENCH_Tour_Amber_txt_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If Not BENCH_Tour_Amber_txt.Value < 100 Then
BENCH_Tour_Amber_txt.Value = Format(Me.BENCH_Tour_Amber_txt.Value,
"")
Else
MsgBox Prompt:="Amber Tolerance Must Be Between 0 & 100",
Buttons:=vbExclamation
Cancel = True
End If
End Sub

For the exit event, since it is provided by the controls container, you
would need to create one for each textbox.

--
Regards,
Tom Ogilvy


"Kris_Wright_77" wrote in message
...
I am developing userform that needs to validate any change in a textbox.
If the new data is outside of the specified region, then I want the
current
textbox to be remain selected, but unfortunately I cant find a way to do
this.

The code I am currently using is

Private Sub BENCH_Tour_Amber_txt_Exit(ByVal Cancel As
MSForms.ReturnBoolean)
If Not BENCH_Tour_Amber_txt.Value < 100 Then
BENCH_Tour_Amber_txt.Value = Format(Me.BENCH_Tour_Amber_txt.Value,
"")
Else
MsgBox Prompt:="Amber Tolerance Must Be Between 0 & 100",
Buttons:=vbExclamation

End If
End Sub

Also
This re-occurs numerous times in the same userform, so is it possible to
write the code no matter which textbox is "exited", or will I just have to
repeat for each textbox??

Thanks for any help that you can give.

Goto Specific Textbox in Userform
 

Cancel is a variable defined by the event declaration. If is found in the
argument list of most events that start with BEFORE and it used to signal
the triggering activity not to occur. While exit is not entitled
BeforeExit, setting cancel to true still causes the Exit action not to
occur.

--
Regards,
Tom Ogilvy


"Kris_Wright_77" wrote in message
...
Thanks
Works exactly the way I wanted.

Could you let me know why this works?
I have seen it used similarly in other pieces of code that I have found
and
adapted from this forum, and obviously didn't need to understand
My VBA is entirely self taught, and haven't been able to find any
explanations in the couple of reference books that I have.

Kris

"Tom Ogilvy" wrote:

Private Sub BENCH_Tour_Amber_txt_Exit(ByVal Cancel As
MSForms.ReturnBoolean)
If Not BENCH_Tour_Amber_txt.Value < 100 Then
BENCH_Tour_Amber_txt.Value =
Format(Me.BENCH_Tour_Amber_txt.Value,
"")
Else
MsgBox Prompt:="Amber Tolerance Must Be Between 0 & 100",
Buttons:=vbExclamation
Cancel = True
End If
End Sub

For the exit event, since it is provided by the controls container, you
would need to create one for each textbox.

--
Regards,
Tom Ogilvy


"Kris_Wright_77" wrote in
message
...
I am developing userform that needs to validate any change in a
textbox.
If the new data is outside of the specified region, then I want the
current
textbox to be remain selected, but unfortunately I cant find a way to
do
this.

The code I am currently using is

Private Sub BENCH_Tour_Amber_txt_Exit(ByVal Cancel As
MSForms.ReturnBoolean)
If Not BENCH_Tour_Amber_txt.Value < 100 Then
BENCH_Tour_Amber_txt.Value =
Format(Me.BENCH_Tour_Amber_txt.Value,
"")
Else
MsgBox Prompt:="Amber Tolerance Must Be Between 0 & 100",
Buttons:=vbExclamation

End If
End Sub

Also
This re-occurs numerous times in the same userform, so is it possible
to
write the code no matter which textbox is "exited", or will I just
have to
repeat for each textbox??

Thanks for any help that you can give.