Solved How to find out the ID of the record to which I am trying to add a duplicate

[Uldis007]

Hello everyone!
I need your help!

I have an order form where I can select an already registered customer from the drop-down list, but if the customer is not on the list, I can open the customer registration form and add a new customer via the order form. Customer table columns are indexed to avoid duplicates. If an existing customer is entered, I get a 3022 error and using On Error Go To access display a message that such a client is already registered.
Is it possible to find out the ID of this existing customer in any way so that when closing the customer registration form, this existing customer will appear in the corresponding fields of the application form?

 

[Eugene-LS]

Is it possible to find out the ID of this existing customer in any way ...

Yes - it Is possible - For example by DlookUp() function.
DLookup Function in Microsoft Access

 

[jdraw]

See this youtube video for related info.

Microsoft Access Add or Edit an Item in a Combo Box using a List Items Edit Form​

 

[Uldis007]

Yes - it Is possible - For example by DlookUp() function.
DLookup Function in Microsoft Access

Thanks for the reply!
I had that idea but don't understand how to use Dlookup with multiple search criteria? ,. The customer table has three columns, Customer ID (Primary Key), Customer First Name, Customer Second Name, and Number.

 

[Uldis007]

See this youtube video for related info.

Microsoft Access Add or Edit an Item in a Combo Box using a List Items Edit Form​

Thank you for your response!
In my case, this solution will not be the most appropriate.

 

[Eugene-LS]

I had that idea but don't understand how to use Dlookup with multiple search criteria? ,. The customer table has three columns, Customer ID (Primary Key), Customer First Name,

Dim sVal As String, vVal
    sVal = "[Customer ID] = " & Me![Customer ID] & " AND [Customer First Name] = '" & Me![Customer First Name] & "'"
    vVal = DLookup("[Customer ID]", "[Your Table Name]", sVal)
    If vVal > 0 Then 'Found ...
        '  ...
    Else
        '  ...
    End If

 

[Uldis007]

Your solution works great!
Thank you very much for your help!
Have a nice day!