i'm trying to create an order form that if the customer is not in the database you can click on a cmd button to open the customer form to enter in the new customer. I would like it to open right up with out being able to select through the existing customers but to open up to a blank form that will record the info right into the customer table. this is what i have so far:

Private Sub CmdNewCustomer_Click()
' This code created in part by Command Button Wizard.
On Error GoTo Err_CmdNewCustomer_Click

    Dim strDocName As String
    Dim stLinkCriteria As String

    strDocName = "F_Client"
    DoCmd.OpenForm strDocName, , , stLinkCriteria

    ' Close WorkOrder form.
    DoCmd.Close acForm, "T_WorkOrder"

    ' Give ClientName control focus.
    Forms![F_Client]!Client.SetFocus

Exit_CmdNewCustomer_Click:
    Exit Sub

Err_CmdNewCustomer_Click:
    MsgBox Err.Description
    Resume Exit_CmdNewCustomer_Click

End Sub


THIS IS WHAT IS THROWING ME!!! IS THIS WHAT I NEED TO FIX? AND HOW DO I FIX IT?
    DoCmd.OpenForm strDocName, , , stLinkCriteria

Now this was the best solution i had but am open to better suggestions if this is not the best way to approach this. my goal is to eliminate duplicate customer records. maybe i need a different appraoch i'm not sure

I may be misunderstanding the problem there are probably two ways to do this

I am assuming you already have code to establish the presence or lack of a customer in the dbase


Place a button on the object currently being viewed (presumably an open form in Edit Mode (all customers available)

place the following code in the click event of the said button

Private Sub CmdAddCust_Click()
On Error GoTo Err_CmdAddCust_Click

'Goes directly to a new record to add customer to the table
    DoCmd.GoToRecord , , acNewRec

Exit_CmdAddCust_Click:
    Exit Sub

Err_CmdAddCust_Click:
    MsgBox Err.Description
    Resume Exit_CmdAddCust_Click

End Sub

If you wish to use an entirely different form then just add code to the button similar to the following

Private Sub CmdMMfromCust_Click()
On Error GoTo Err_CmdMMfromCust_Click

    Dim stDocName As String
    Dim stLinkCriteria As String

    stDocName = "frmAddCustomer"
    DoCmd.OpenForm stDocName, , , stLinkCriteria
    DoCmd.GoToRecord , , acNewRec
    DoCmd.Close acForm, "frmEditCustomers"

Exit_CmdMMfromCust_Click:
    Exit Sub

Err_CmdMMfromCust_Click:
    MsgBox Err.Description
    Resume Exit_CmdMMfromCust_Click

End Sub

I hope I have understand the problem if not I am sure someone else on the forum will be able to assist

MF