Campo sumado

[Taribo007]

Yo lo haria asi:

Private Sub Comando42_Click()
On Error GoTo Err_Comando42_Click

Dim sSql As String

sSql = "UPDATE Tabla SET PrecioTotal = [PrecioC]+[PrecioA]+[PrecioV] where campoId='" & Me.ControlCampoId & "'"

CurrentDb.Execute sSql
Me.Requery
Exit_Comando42_Click:
Exit Sub

Err_Comando42_Click:
MsgBox Err.Description
Resume Exit_Comando42_Click

End Sub

Siendo CampoId el campo de la tabla que es clave primaria y ControlCampoId el control (cuadro de texto, o lo que sea) del formulario cuyo origen de control es el campo id, por el que quieres filtrar. Si el capo id fuera numerico, y no de texto, quita lo rojo.

Otra opcion es, modificar directamente la consulta SumaPrecios el campo id, y en la fila criterios de esta ponerle: [forms]![Nombreform]![NombreControl]

un saludo

Me apunto lo de sevilla