vb DLOOKUP function and dialog box error

bluezcruizer · January 12th, 2007, 10:07 AM

Hi.
I'm hoping you can help me; I'm rather new to VB, and like what it can do for you. Makes a tool so much more powerful than without.

I'm running into an error; (learning process.) The error is:
                     Run-time error '2001': You canceled the previous operation

I'm not sure what that means; tried googling it, nothing came up. Here's my code:
__________________________________________________ _____________

Private Sub Form_BeforeUpdate(Cancel As Integer)

Dim varDUPPO As Variant

If Me.NewRecord Then

    varDUPPO = DLookup("[Reseller Account Number]", "[dup PO check]", "[Reseller Account Number] = '" & Me![Reseller Account Number] & "' AND [Reseller PO#] = '" & Me![Reseller PO#] & "' AND [End User Name] = " & Me![End User Name] & " AND [Amount] = " & Me![Amount])

If Not IsNull(varDUPPO) Then

            If MsgBox("This record already exists." & _
                        "Cancel this new entry and review the previous entry?", _
                        vbQuestion + vbYesNo, _
                        "Duplicate Entry Found") _
                        = vbYes _
            Then
                Cancel = True
                Me.Undo
                Me.Recordset.FindFirst "[Reseller PO#]='" & varDUPPO & "'"

End If

End If

End If

End Sub
__________________________________________________ ____

Can anyone help me please? Thank you.

bluezcruizer

woodyz · January 15th, 2007, 02:17 PM

This looks more like an Access error than an VB6 error.

Woody Z
http://www.learntoprogramnow.com

BrianWren · January 18th, 2007, 04:25 PM

I think you will find that your life is a happier place to be if you pay more attention to formatting in the code you write. It certainly will make assessing your code easier if you format that which you post here. If you put the word "code" between a couple of square brackets before your code, and the string "/code" between a couple of square brackets at the end of your code, it will be rendered in a fixed font here, and will preserve your indentation. To wit:

Code:

Private Sub Form_BeforeUpdate(Cancel As Integer)

    Dim varDUPPO As Variant

    If Me.NewRecord Then

        varDUPPO = DLookup("[Reseller Account Number]", _
                           "[dup PO check]", _
                           "[Reseller Account Number] = '" & Me![Reseller Account Number] & "' AND " & _
                           "[Reseller PO#] = '" & Me![Reseller PO#] & "' AND " & _
                           "[End User Name] = " & Me![End User Name] & " AND " & _
                           "[Amount] = " & Me![Amount])

        If Not IsNull(varDUPPO) Then

            If MsgBox("This record already exists." & _
                      "Cancel this new entry and review the previous entry?", _
                      vbQuestion + vbYesNo, _
                      "Duplicate Entry Found") = vbYes Then

                Cancel = True
                Me.Undo
                Me.Recordset.FindFirst "[Reseller PO#]='" & varDUPPO & "'"
            End If
        End If

    End If

End Sub

Please indicate which line raises the error. I think it is possible that the Cancel = True and the Me.Undo represent redundancy.

Before this routine is called, Access generates a boolean variable, and passes a reference to that variable into the variable called Cancel. When the routine is done, before Access does anything more, it checks the value of that Boolean. If it has been changed to True, the update does not take place. But perhaps the Undo has exterminated the updating process already, so that the Cancelâs value makes access attempt to do something that has already been done. (I'm guessing here; I forget exactly what .Undo does.) This would seem to be in keeping with the message you are receiving.