 | |
Option Group Message Box
comp.databases.ms-access comp.databases.ms-access
 |
| | Thread Tools | Display Modes |
#1
 
| |||
| |||
|
Option Group Message Box -
06-17-2009
, 02:54 PM
#2
| |||
| |||
|
|
I have an Option Group on my form. I want to comment out the Message Box that opens up upon clicking on either of the checkboxes in the Option Group. I have attempted to do this by commenting out the following line of code: *'MsgBox Me.FrameReferralType Why does this not work? Any suggestions? Thanks in advance!, John Here is all of my code hehind the Option Group: Private Sub FrameReferralType_AfterUpdate() UpdateReferral End Sub ---------------------------------------------------------------------------*--------------- Private Sub UpdateReferral() 'MsgBox Me.FrameReferralType * * Select Case Me.FrameReferralType * * * * Case 1 'IBCCP * * * * * * 'Dehighlight the "Other" fields * * * * * * Me.ChckSatisfiedWithHelpReceivedYes.BorderColor = 16777215 * * * * * * Me.ChckSatisfiedWithHelpReceivedNo.BorderColor = 16777215 * * * * * * Me.ChckInNeedFurtherAssistanceYes.BorderColor =16777215 * * * * * * Me.ChckInNeedFurtherAssistanceNo.BorderColor = 16777215 * * * * * * 'Highlight the IBCCP fields * * * * * * Me.ChckSatisfiedWithHelpReceivedYes.BorderColor = 16777215 * * * * * * Me.ChckSatisfiedWithHelpReceivedNo.BorderColor = 16777215 * * * * * * Me.ChckInNeedFurtherAssistanceYes.BorderColor =16777215 * * * * * * Me.ChckInNeedFurtherAssistanceNo.BorderColor = 16777215 * * * * Case 2 'Other * * * * * * 'Dehighlight the IBCCP fields * * * * * * Me.ChckSatisfiedWithHelpReceivedYes.BorderColor = 16777215 * * * * * * Me.ChckSatisfiedWithHelpReceivedNo.BorderColor = 16777215 * * * * * * Me.ChckInNeedFurtherAssistanceYes.BorderColor =16777215 * * * * * * Me.ChckInNeedFurtherAssistanceNo.BorderColor = 16777215 * * * * * * 'Highlight the "Other" fields * * * * * * Me.ChckSatisfiedWithHelpReceivedYes.BorderColor = &HFF * * * * * * Me.ChckSatisfiedWithHelpReceivedNo.BorderColor = &HFF * * * * * * Me.ChckInNeedFurtherAssistanceYes.BorderColor =&HFF * * * * * * Me.ChckInNeedFurtherAssistanceNo.BorderColor = &HFF * * End Select End Sub |
Don't ask me why?!
Thanks!
J
#3
| |||
| |||
|
|
I have an Option Group on my form. I want to comment out the Message Box that opens up upon clicking on either of the checkboxes in the Option Group. I have attempted to do this by commenting out the following line of code: *'MsgBox Me.FrameReferralType Why does this not work? Any suggestions? Thanks in advance!, John Here is all of my code hehind the Option Group: Private Sub FrameReferralType_AfterUpdate() UpdateReferral End Sub ---------------------------------------------------------------------------*--------------- Private Sub UpdateReferral() 'MsgBox Me.FrameReferralType * * Select Case Me.FrameReferralType * * * * Case 1 'IBCCP * * * * * * 'Dehighlight the "Other" fields * * * * * * Me.ChckSatisfiedWithHelpReceivedYes.BorderColor = 16777215 * * * * * * Me.ChckSatisfiedWithHelpReceivedNo.BorderColor = 16777215 * * * * * * Me.ChckInNeedFurtherAssistanceYes.BorderColor =16777215 * * * * * * Me.ChckInNeedFurtherAssistanceNo.BorderColor = 16777215 * * * * * * 'Highlight the IBCCP fields * * * * * * Me.ChckSatisfiedWithHelpReceivedYes.BorderColor = 16777215 * * * * * * Me.ChckSatisfiedWithHelpReceivedNo.BorderColor = 16777215 * * * * * * Me.ChckInNeedFurtherAssistanceYes.BorderColor =16777215 * * * * * * Me.ChckInNeedFurtherAssistanceNo.BorderColor = 16777215 * * * * Case 2 'Other * * * * * * 'Dehighlight the IBCCP fields * * * * * * Me.ChckSatisfiedWithHelpReceivedYes.BorderColor = 16777215 * * * * * * Me.ChckSatisfiedWithHelpReceivedNo.BorderColor = 16777215 * * * * * * Me.ChckInNeedFurtherAssistanceYes.BorderColor =16777215 * * * * * * Me.ChckInNeedFurtherAssistanceNo.BorderColor = 16777215 * * * * * * 'Highlight the "Other" fields * * * * * * Me.ChckSatisfiedWithHelpReceivedYes.BorderColor = &HFF * * * * * * Me.ChckSatisfiedWithHelpReceivedNo.BorderColor = &HFF * * * * * * Me.ChckInNeedFurtherAssistanceYes.BorderColor =&HFF * * * * * * Me.ChckInNeedFurtherAssistanceNo.BorderColor = &HFF * * End Select End Sub |
Don't ask me why?!
Thanks!
J
|
« Previous Thread
|
Next Thread »
| Thread Tools | |
| Display Modes | |
Linear Mode
| |
Powered by vBulletin Version 3.5.3
Copyright ©2000 - 2013, Jelsoft Enterprises Ltd.
Copyright ©2000 - 2013, Jelsoft Enterprises Ltd.