If i knew your option box name i could of used a case select satement, but the below should work, and acCmdUndo is what you were looking for.
Private Sub cmdJobDetailsUpdate_Click()
Dim booJobOpen As Boolean
Dim booJobClose As Boolean
Dim strAnswer As String
booJobOpen = Me.optJobOpen.Value...