Al no estar en la Lista, Nuevo registro auto numérico

Quería pedirles de su ayuda para poder agregar un cliente nuevo con su auto numérico correspondiente.

Tengo un formulario Facturas de Ventas donde ingreso los datos el vehículo, y cuando es nuevo, ingreso la patente y al no estar en la lista por medio de código vba me envía al formulario Vehículos para ingresarla y en este formulario Vehículos agrego el cliente que también es nuevo y como no esta en la lista, también por medio de código vba me envía al formulario Clientes, pero en el formulario Clientes tengo el campo código cliente que es de tipo numero.

Por lo tanto cada vez que necesito ingresar un nuevo cliente en el formulario Vehículos al momento de que me abra el formulario Clientes me sume uno más en el campo código cliente

Este es el código que tengo al no estar en la lista.

Private Sub CLIENTEOb_NotInList(NewData As String, Response As Integer)
Beep
Dim Clientenuevo As Integer, título As String ', mensaje As Integer
título = "EL CLIENTE NO ESTA EN LA LISTA"
'mensaje = vbYesNo + vbDefaultButton1
Clientenuevo = MsgBox("DESEAS AGREGAR ESTE CLIENTE", vbYesNo + vbQuestion, título)
If Clientenuevo = vbYes Then
'DoCmd.RunCommand acCmdUndo
DoCmd.OpenForm "CLIENTES", acNormal, "", "", acFormAdd, acDialog, NewData
Response = acDataErrAdded
End If
End Sub