Rick,
Thank you for responding! I added the line of code you suggested and still get
the option group going to the option I click on. Here is my complete code:
Private Sub Frame5_BeforeUp date(Cancel As Integer)
If MsgBox("Change? ", vbYesNo) = vbNo Then
Me!Frame5.Undo
Cancel = True
End If
End Sub
I tried Me!Frame5.Undo under Cancel = True also!
Corrine
"Rick Brandt" <ri*********@ho tmail.com> wrote in message
news:2i******** ****@uni-berlin.de...
"Corrine" <cm****@earthli nk.net> wrote in message
news:Xp******** *******@newsrea d2.news.atl.ear thlink.net... Is there a way to cancel a change in an option group? The option group
still changes to the option clicked on when clicking on the NO button with the
following code in the BeforeUpdate event of the option group.
If MsgBox("Change? ", vbYesNo) = vbNo Then
Cancel = True
End If
Canceling the update is not the same as undoing the entry. In addition to
what you have now you need...
Me.OptionGroupN ame.Undo
--
I don't check the Email account attached
to this message. Send instead to...
RBrandt at Hunter dot com