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.

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" <[email protected]>
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.

Thanks----
"Jim Cone" <[email protected]> wrote in message
news:%[email protected]...
> 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" <[email protected]>
> 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.
>
>