[AccessD] Code help Almost there

Sat Mar 1 12:30:53 CST 2008

So did using Cancel work?

Drew

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Joe Hecht
Sent: Friday, February 29, 2008 8:21 PM
To: accessD at databaseadvisors.com
Subject: [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

-- 
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com
The information contained in this transmission is intended only for the person or entity to which it is addressed and may contain II-VI Proprietary and/or II-VI Business Sensitive material. If you are not the intended recipient, please contact the sender immediately and destroy the material in its entirety, whether electronic or hard copy. You are notified that any review, retransmission, copying, disclosure, dissemination, or other use of, or taking of any action in reliance upon this information by persons or entities other than the intended recipient is prohibited.