Go to selected record

[Newbie11]

I have two forms: customerinfo and customerorder

Once information is entered into the customer info field I want the user to be able to edit an existing order but only if an order already exists.

In the click event of the Edit Exisitng Order btn I have:

Private Sub btnEEO_Click()
On Error GoTo Err_btnEEO_Click


Dim stDocName As String
Dim stLinkCriteria As String
Dim RecordCount As Integer
RecordCount = DCount("CustomerID", "qryCustomerOrder")
If RecordCount > 0 Then
stDocName = "frmCustomerOrder"
stLinkCriteria = "[CustomerID]=" & "'" & Me![txtCustomerID] & "'"
DoCmd.OpenForm stDocName, , , stLinkCriteria
Else
MsgBox "No Order Exists"
End If

Exit_btnEEO_Click:
Exit Sub
Err_btnEEO_Click:
MsgBox Err.Description
Resume Exit_btnEEO_Click

End Sub

If an order doesn't already exist for the customer, the customer order form should not appear. For some reason my code is not working correctly but I cannot identify why.

[aytee111]

What exactly is not working?

Why are these two forms, can you make the second form a subform?

[Newbie11]

Sorry I thought I uploaded the database.

When I click the edit exsting order button the customer order form is opened regardless of if there is a current order or not to a blank form. This is not what I am desiring. I ony want the customer order form to be opened to the selected record in editing mode if the customer already has a order.

Thanks for any insight you can offer.

[aytee111]

I have made it a subform. It makes a lot more sense.
(Don't overwrite your existing database with this new one, BTW!)

[hamish mather]

I new at this

I hope this works for you

good luck