Error message creation
 

Hi All,
I have a udf with two radio buttons inside a frame -- another two radio
buttons inside another frame and then a text box for user input.

Initially the value of all four radio buttons is false, at the request of
the user.

I want to require the user to choose 1 of the 2 from each frame, if they
enter the txt box without doing so, I want to display a message and then
take them out of the text box.

This is my code so far. I know the if statement works because the message
displays, but the cursor is till in the txtbox.

Private Sub txtTkint_Enter()
If (optBill.Value = False And optWork.Value = False) Or (optCalendar.Value =
False And optFiscal.Value = False) Then
lblMsg.Caption = "You must choose at least one entry from " & Chr(34) &
"worked or billable" & _
Chr(34) & " OR " & Chr(34) & "Fiscal or Calendar Year" & Chr(34) & "
areas."
optWork.SetFocus
End If

End Sub


Any help would be appreciated.

Error message creation
 

Sounds like you are on a UserForm, so...
Why not just set the value of the buttons and tell the user
what you have done?...

If ((optBill.Value + optWork.Value ) * (optCalendar.Value + optFiscal.Value)) = 0 Then
optBill.Value = True
optCalendar.Value = True
lblMsg.Caption = "I did it my way"
End If
--------

Jim Cone
San Francisco, USA
http://www.realezsites.com/bus/primitivesoftware



"Rich Mogy"
wrote in message
Hi All,
I have a udf with two radio buttons inside a frame -- another two radio
buttons inside another frame and then a text box for user input.

Initially the value of all four radio buttons is false, at the request of
the user.
I want to require the user to choose 1 of the 2 from each frame, if they
enter the txt box without doing so, I want to display a message and then
take them out of the text box.
This is my code so far. I know the if statement works because the message
displays, but the cursor is till in the txtbox.

Private Sub txtTkint_Enter()
If (optBill.Value = False And optWork.Value = False) Or (optCalendar.Value =
False And optFiscal.Value = False) Then
lblMsg.Caption = "You must choose at least one entry from " & Chr(34) &
"worked or billable" & _
Chr(34) & " OR " & Chr(34) & "Fiscal or Calendar Year" & Chr(34) & "
areas."
optWork.SetFocus
End If
End Sub

Any help would be appreciated.

Error message creation
 

Thanks----
"Jim Cone" wrote in message
...
Sounds like you are on a UserForm, so...
Why not just set the value of the buttons and tell the user
what you have done?...

If ((optBill.Value + optWork.Value ) * (optCalendar.Value +
optFiscal.Value)) = 0 Then
optBill.Value = True
optCalendar.Value = True
lblMsg.Caption = "I did it my way"
End If
--------

Jim Cone
San Francisco, USA
http://www.realezsites.com/bus/primitivesoftware



"Rich Mogy"
wrote in message
Hi All,
I have a udf with two radio buttons inside a frame -- another two radio
buttons inside another frame and then a text box for user input.

Initially the value of all four radio buttons is false, at the request of
the user.
I want to require the user to choose 1 of the 2 from each frame, if they
enter the txt box without doing so, I want to display a message and then
take them out of the text box.
This is my code so far. I know the if statement works because the message
displays, but the cursor is till in the txtbox.

Private Sub txtTkint_Enter()
If (optBill.Value = False And optWork.Value = False) Or (optCalendar.Value
=
False And optFiscal.Value = False) Then
lblMsg.Caption = "You must choose at least one entry from " & Chr(34) &
"worked or billable" & _
Chr(34) & " OR " & Chr(34) & "Fiscal or Calendar Year" & Chr(34) & "
areas."
optWork.SetFocus
End If
End Sub

Any help would be appreciated.