ExcelBanter - setfocus on user form

ExcelBanter (https://www.excelbanter.com/)

- Excel Programming (https://www.excelbanter.com/excel-programming/)

- - setfocus on user form (https://www.excelbanter.com/excel-programming/329439-setfocus-user-form.html)

inquirer

setfocus on user form

In a user form I want to ensure that textbox7 contains either YES or NO when
the form is completed. If there is anything else in textbox7, I want the
form shown again with the focus on textbox7 and its contents highlighted.
The following does not set the focus or highlight the contents but doesn't
let me exit the form until I have yes or no in the textbox. Can someone tell
me what is missing please?

Private Sub CommandButton1_Click()
Dim test As Boolean

again1:
test = UCase(TextBox7.Value) = "YES" Or UCase(TextBox7.Value) = "NO"
If Not test Then
normLog10.Hide
MsgBox (TextBox7.Value & " is not acceptable, must be yes or no" &
vbCrLf & vbCrLf & _
" Try again")
normLog10.Show
TextBox7.SetFocus
TextBox7.SelStart = 0
TextBox7.SelLength = 100
GoTo again1:
End If
end sub

Thanks
Chris

Neil[_24_]

setfocus on user form

Chris,

Try this, I haven't tested it.

normLog10.Show

With TextBox7
.SelStart = 0
.SelLength = Len(.Text)
End With

GoTo again1:

regards
Neil

"inquirer" wrote in message
...
In a user form I want to ensure that textbox7 contains either YES or NO
when the form is completed. If there is anything else in textbox7, I want
the form shown again with the focus on textbox7 and its contents
highlighted.
The following does not set the focus or highlight the contents but doesn't
let me exit the form until I have yes or no in the textbox. Can someone
tell me what is missing please?

Private Sub CommandButton1_Click()
Dim test As Boolean

again1:
test = UCase(TextBox7.Value) = "YES" Or UCase(TextBox7.Value) = "NO"
If Not test Then
normLog10.Hide
MsgBox (TextBox7.Value & " is not acceptable, must be yes or no" &
vbCrLf & vbCrLf & _
" Try again")
normLog10.Show
TextBox7.SetFocus
TextBox7.SelStart = 0
TextBox7.SelLength = 100
GoTo again1:
End If
end sub

Thanks
Chris

Toppers

setfocus on user form

Hi,
Moved .show line.

Private Sub CommandButton1_Click()
Dim test As Boolean

again1:
test = UCase(TextBox7.Value) = "YES" Or UCase(TextBox7.Value) = "NO"
If Not test Then
normLog10.Hide
MsgBox (TextBox7.Value & " is not acceptable, must be yes or no" &
vbCrLf & vbCrLf & _
" Try again")

TextBox7.SetFocus
TextBox7.SelStart = 0
TextBox7.SelLength = 100
normLog10.Show <=========== Moved!
GoTo again1:
End If
end sub

"inquirer" wrote:

In a user form I want to ensure that textbox7 contains either YES or NO when
the form is completed. If there is anything else in textbox7, I want the
form shown again with the focus on textbox7 and its contents highlighted.
The following does not set the focus or highlight the contents but doesn't
let me exit the form until I have yes or no in the textbox. Can someone tell
me what is missing please?

Private Sub CommandButton1_Click()
Dim test As Boolean

again1:
test = UCase(TextBox7.Value) = "YES" Or UCase(TextBox7.Value) = "NO"
If Not test Then
normLog10.Hide
MsgBox (TextBox7.Value & " is not acceptable, must be yes or no" &
vbCrLf & vbCrLf & _
" Try again")
normLog10.Show
TextBox7.SetFocus
TextBox7.SelStart = 0
TextBox7.SelLength = 100
GoTo again1:
End If
end sub

Thanks
Chris

Bob Phillips[_7_]

setfocus on user form

This works for me

Private Sub CommandButton1_Click()
Dim test As Boolean

With TextBox7
test = UCase(.Value) = "YES" Or UCase(.Value) = "NO"
If Not test Then
MsgBox (.Value & " is not acceptable, must be yes or no" & _
vbCrLf & vbCrLf & " Try again")
.SetFocus
.SelStart = 0
.SelLength = Len(.Text)
End If
End With
End Sub

--
HTH

Bob Phillips

"inquirer" wrote in message
...
In a user form I want to ensure that textbox7 contains either YES or NO
when
the form is completed. If there is anything else in textbox7, I want the
form shown again with the focus on textbox7 and its contents highlighted.
The following does not set the focus or highlight the contents but doesn't
let me exit the form until I have yes or no in the textbox. Can someone
tell
me what is missing please?

Private Sub CommandButton1_Click()
Dim test As Boolean

again1:
test = UCase(TextBox7.Value) = "YES" Or UCase(TextBox7.Value) = "NO"
If Not test Then
normLog10.Hide
MsgBox (TextBox7.Value & " is not acceptable, must be yes or no" &
vbCrLf & vbCrLf & _
" Try again")
normLog10.Show
TextBox7.SetFocus
TextBox7.SelStart = 0
TextBox7.SelLength = 100
GoTo again1:
End If
end sub

Thanks
Chris

Harald Staff

setfocus on user form

Hi Chris

Allow me to say that a textbox is perhaps the worst choice of control for a
forced yes-no-response. You should use either a combobox set to List style,
or two optionbuttons (aka radio buttons).

HTH. Best wishes Harald

"inquirer" skrev i melding
...
In a user form I want to ensure that textbox7 contains either YES or NO
when
the form is completed. If there is anything else in textbox7, I want the
form shown again with the focus on textbox7 and its contents highlighted.
The following does not set the focus or highlight the contents but doesn't
let me exit the form until I have yes or no in the textbox. Can someone
tell
me what is missing please?

Private Sub CommandButton1_Click()
Dim test As Boolean

again1:
test = UCase(TextBox7.Value) = "YES" Or UCase(TextBox7.Value) = "NO"
If Not test Then
normLog10.Hide
MsgBox (TextBox7.Value & " is not acceptable, must be yes or no" &
vbCrLf & vbCrLf & _
" Try again")
normLog10.Show
TextBox7.SetFocus
TextBox7.SelStart = 0
TextBox7.SelLength = 100
GoTo again1:
End If
end sub

Thanks
Chris

Dave Peterson[_5_]

setfocus on user form

Or even a single checkbox.

Harald Staff wrote:

Hi Chris

Allow me to say that a textbox is perhaps the worst choice of control for a
forced yes-no-response. You should use either a combobox set to List style,
or two optionbuttons (aka radio buttons).

HTH. Best wishes Harald

"inquirer" skrev i melding
...
In a user form I want to ensure that textbox7 contains either YES or NO
when
the form is completed. If there is anything else in textbox7, I want the
form shown again with the focus on textbox7 and its contents highlighted.
The following does not set the focus or highlight the contents but doesn't
let me exit the form until I have yes or no in the textbox. Can someone
tell
me what is missing please?

Private Sub CommandButton1_Click()
Dim test As Boolean

again1:
test = UCase(TextBox7.Value) = "YES" Or UCase(TextBox7.Value) = "NO"
If Not test Then
normLog10.Hide
MsgBox (TextBox7.Value & " is not acceptable, must be yes or no" &
vbCrLf & vbCrLf & _
" Try again")
normLog10.Show
TextBox7.SetFocus
TextBox7.SelStart = 0
TextBox7.SelLength = 100
GoTo again1:
End If
end sub

Thanks
Chris

--

Dave Peterson

Harald Staff

setfocus on user form

Yes

Best wishes Harald

"Dave Peterson" skrev i melding
...
Or even a single checkbox.

Harald Staff wrote:

Hi Chris

Allow me to say that a textbox is perhaps the worst choice of control
for a
forced yes-no-response. You should use either a combobox set to List
style,
or two optionbuttons (aka radio buttons).

HTH. Best wishes Harald

inquirer

setfocus on user form

Mnay thanks for your help. Moving the .show line fixed my problem. I will
look into replacing the textbox with an option button or check box as well.
Thanks again
Chris

"Toppers" wrote in message
...
Hi,
Moved .show line.

Private Sub CommandButton1_Click()
Dim test As Boolean

again1:
test = UCase(TextBox7.Value) = "YES" Or UCase(TextBox7.Value) = "NO"
If Not test Then
normLog10.Hide
MsgBox (TextBox7.Value & " is not acceptable, must be yes or no" &
vbCrLf & vbCrLf & _
" Try again")

TextBox7.SetFocus
TextBox7.SelStart = 0
TextBox7.SelLength = 100
normLog10.Show <=========== Moved!
GoTo again1:
End If
end sub

"inquirer" wrote:

In a user form I want to ensure that textbox7 contains either YES or NO
when
the form is completed. If there is anything else in textbox7, I want the
form shown again with the focus on textbox7 and its contents highlighted.
The following does not set the focus or highlight the contents but
doesn't
let me exit the form until I have yes or no in the textbox. Can someone
tell
me what is missing please?

Private Sub CommandButton1_Click()
Dim test As Boolean

again1:
test = UCase(TextBox7.Value) = "YES" Or UCase(TextBox7.Value) = "NO"
If Not test Then
normLog10.Hide
MsgBox (TextBox7.Value & " is not acceptable, must be yes or no" &
vbCrLf & vbCrLf & _
" Try again")
normLog10.Show
TextBox7.SetFocus
TextBox7.SelStart = 0
TextBox7.SelLength = 100
GoTo again1:
End If
end sub

Thanks
Chris

All times are GMT +1. The time now is 02:55 AM.