ExcelBanter

ExcelBanter (https://www.excelbanter.com/)
-   Excel Programming (https://www.excelbanter.com/excel-programming/)
-   -   msgBox pops up twice ?? (https://www.excelbanter.com/excel-programming/335862-msgbox-pops-up-twice.html)

Tempy

msgBox pops up twice ??
 
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[_2_]

msgBox pops up twice ??
 
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

msgBox pops up twice ??
 
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[_6_]

msgBox pops up twice ??
 
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" wrote in message
...
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

msgBox pops up twice ??
 
Thanks Bob, your a life saver.

best regards,

Tempy

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


All times are GMT +1. The time now is 08:18 PM.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com