[AccessD] Code Help Please

The following code is supposed warn when the value of a particular text gets
changed. You almost never want the value changed after the record is
created.

 

 

Private Sub txtQBInvoice_BeforeUpdate(Cancel As Integer)

    If Me.txtQBInvoice = "" Then

        Else

    If Me.txtQBInvoice.Value <> Me.txtQBInvoice.OldValue Then

          Dim lngRetval As Long

 

  lngRetval = MsgBox( _

    "The Quick Books Invoice Number has changed." & vbCrLf & "" & vbCrLf &
"Do you want to change this Value?", _

    vbYesNo + vbExclamation + vbDefaultButton2, _

    "QB Invoice Number has been changed")

 

  Select Case lngRetval

    Case vbYes

        Me.txtQBInvoice.Value = Me.txtQBInvoice.Value

        

    Case vbNo

        Me.txtQBInvoice.Value = Me.txtQBInvoice.OldValue

   

   End Select

  

  End If

  End If

  

End Sub

 

I get error 2115  The Macro or function in the before update is preventing
access from saving the record.  This message occurs when I click the no
button and debug hilites the case vbNo.

 

What I want on the no click is for the value to be set to the old value and
move to the next field.

 

If this is a new record and there was no old value this check should not
run.

 

TIA

 

Joe Hecht

Joe at anamericanjoe.us