msgBox pops up twice ??

[Tempy]

Hi all, i am a little stumped with the following:- I have an input form
that i have various textboxes and check boxes. The one box must be
clicked before the other so i put in a long if statement and if none are
checked then a message. the problem is if i click on the check box
before the first one, is that it flags it and i need to clear it again
so did that after the message, it clears it but then brings the message
up again and i do not want to have this ??

Private Sub CheckBox2_Click()
If OptionButton2 = True Then
TextBox3.Visible = True
TextBox17.Visible = True
CheckBox1.Enabled = False
ElseIf OptionButton8 = True Then
TextBox3.Visible = True
TextBox17.Visible = True
CheckBox1.Value = False
Else
MsgBox "Please first select from which year to begin " & vbCrLf
& _
" your tooling payments in order to continue", 48,
"ZA-T-M-22"
CheckBox2.Value = False
End If

End Sub

I have tried both befor and after the message

Tempy

*** Sent via Developersdex http://www.developersdex.com ***

[Patrick Molloy]

when your code sets the value for checkbox2, its fires the click event.

"Tempy" wrote:

> Hi all, i am a little stumped with the following:- I have an input form
> that i have various textboxes and check boxes. The one box must be
> clicked before the other so i put in a long if statement and if none are
> checked then a message. the problem is if i click on the check box
> before the first one, is that it flags it and i need to clear it again
> so did that after the message, it clears it but then brings the message
> up again and i do not want to have this ??
>
> Private Sub CheckBox2_Click()
> If OptionButton2 = True Then
> TextBox3.Visible = True
> TextBox17.Visible = True
> CheckBox1.Enabled = False
> ElseIf OptionButton8 = True Then
> TextBox3.Visible = True
> TextBox17.Visible = True
> CheckBox1.Value = False
> Else
> MsgBox "Please first select from which year to begin " & vbCrLf
> & _
> " your tooling payments in order to continue", 48,
> "ZA-T-M-22"
> CheckBox2.Value = False
> End If
>
> End Sub
>
> I have tried both befor and after the message
>
> Tempy
>
> *** Sent via Developersdex http://www.developersdex.com ***
>

[Tempy]

Hi Patrick, sorry i am a newbie at this game, that is why i put the if
statment within the click event ? If i remove the "CheckBox2.Value =
False" statement, the message does not come up twice ?
Could you suggest how i could fix it ?

Tempy

*** Sent via Developersdex http://www.developersdex.com ***

[Bob Phillips]

Private Sub CheckBox2_Click()
Static mReEntry

If Not mReEntry Then
mReEntry=True
If OptionButton2 = True Then
TextBox3.Visible = True
TextBox17.Visible = True
CheckBox1.Enabled = False
ElseIf OptionButton8 = True Then
TextBox3.Visible = True
TextBox17.Visible = True
CheckBox1.Value = False
Else
MsgBox "Please first select from which year to begin " & _
vbCrLf & " your tooling payments in order to
continue", _
48, "ZA-T-M-22"
CheckBox2.Value = False
End If
mReEntry = False
End If

End Sub


--

HTH

RP
(remove nothere from the email address if mailing direct)


"Tempy" <[email protected]> wrote in message
news:[email protected]...
> Hi all, i am a little stumped with the following:- I have an input form
> that i have various textboxes and check boxes. The one box must be
> clicked before the other so i put in a long if statement and if none are
> checked then a message. the problem is if i click on the check box
> before the first one, is that it flags it and i need to clear it again
> so did that after the message, it clears it but then brings the message
> up again and i do not want to have this ??
>
> Private Sub CheckBox2_Click()
> If OptionButton2 = True Then
> TextBox3.Visible = True
> TextBox17.Visible = True
> CheckBox1.Enabled = False
> ElseIf OptionButton8 = True Then
> TextBox3.Visible = True
> TextBox17.Visible = True
> CheckBox1.Value = False
> Else
> MsgBox "Please first select from which year to begin " & vbCrLf
> & _
> " your tooling payments in order to continue", 48,
> "ZA-T-M-22"
> CheckBox2.Value = False
> End If
>
> End Sub
>
> I have tried both befor and after the message
>
> Tempy
>
> *** Sent via Developersdex http://www.developersdex.com ***

[Tempy]

Thanks Bob, your a life saver.

best regards,

Tempy

*** Sent via Developersdex http://www.developersdex.com ***