Private Sub IdProducto_AfterUpdate()

    Dim txtFiltro As String

    ' Evaluar el filtro antes de pasarlo a la funcion DLookup.

    txtFiltro = "IdProducto = " & Me!IdProducto

 

    ' Buscar el precio por unidad del producto y asignarlo al control PrecioUnidad.

    Me!PrecioUnidad = DLookup("PrecioUnidad", "Productos", txtFiltro)

    

Salir_IdProducto_AfterUpdate:

    Exit Sub

Err_IdProducto_AfterUpdate:

    MsgBox Err.Description

    Resume Salir_IdProducto_AfterUpdate

End Sub

Para empezar tu sabrás como tienes definidas las tablas. Yo tendría una tabla de PreciosEspeciales con los campos IdProducto, IdCliente y Precio.

Cuando escogiera un IdProducto en el listado primero abriría un recordset sobre la tabla PreciosEspeciales filtrada para ver si existe la combinación. Si no existe, recuperaría el valor de la tabla PrecioUnidad (lo que ya estás haciendo).

Un saludo

Dices que has intentado varias cosas, pero no las explicas ...

La cuestión no es el código a incluir en tu formulario, la cuestión es cómo vas a almacenar esos precios especiales de los clientes.

Una manera sería tener una tabla de tarifas: Normal, Especial, Plus ... cada una de ellas tendría un precio diferente en función del tipo de cliente. A cada cliente le asociarías una tarifa.

Otra es tener una tabla de precios especiales por cliente, entonces buscarías primero el precio aquí y después en Stock.

Incluso puedes hacer una mezcla de las dos anteriores.

Como ves, hay mucho que rascar ....