carlchapman
Registered User.
- Local time
- Today, 09:28
- Joined
- Jul 25, 2006
- Messages
- 29
Hi, sorry but i have a new issue. Ok, here it goes.
I have a check box on my form that "black lists" that related record. I wish to warn the user that when they click/after update the check box, they will no longer be able to work with this contact unless an administrator unblocks the record.
Here is the VBA for what i have done so far.
Private Sub orgMisc_AfterUpdate()
Dim intAnswer As Integer
intAnswer = MsgBox("Are you sure you wish to Black List this contact?" _
, vbQuestion + vbYesNo, "Time Saver")
If intAnswer = vbYes Then
orgMisc = True
Else
orgMisc = False
End If
End Sub
This works fine except for 1 problem. It prompts me if i change my mind and uncheck the check box. So basically, if (default) is False Then OnClick i want the above VBA to execute. If the check box already isset to TRUE then ignore the above VBA and orgMisc (checkbox) change to FALSE.
If any 1 can offer advice or knows how to solve this issue, that would be great
I have a check box on my form that "black lists" that related record. I wish to warn the user that when they click/after update the check box, they will no longer be able to work with this contact unless an administrator unblocks the record.
Here is the VBA for what i have done so far.
Private Sub orgMisc_AfterUpdate()
Dim intAnswer As Integer
intAnswer = MsgBox("Are you sure you wish to Black List this contact?" _
, vbQuestion + vbYesNo, "Time Saver")
If intAnswer = vbYes Then
orgMisc = True
Else
orgMisc = False
End If
End Sub
This works fine except for 1 problem. It prompts me if i change my mind and uncheck the check box. So basically, if (default) is False Then OnClick i want the above VBA to execute. If the check box already isset to TRUE then ignore the above VBA and orgMisc (checkbox) change to FALSE.
If any 1 can offer advice or knows how to solve this issue, that would be great
