[AccessD] Code help Almost there

Thanks Drew,

 

I have three books on my desk, looked at help and still can not find this
one.

 

In the case no block, I need to send the escape key. Everything I see says
send keys is a macro. I can not find the code.

 

TIA

 

Joe

 

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

        Cancel = False

        

        

    Case vbNo

       

       Cancel = True

     '  SendKeys (esc)

     

     

     

     

     

       

            

              

  End Select

  

  End If

  End If

  

End Sub

 

Joe Hecht

Joe at anamericanjoe.us