[Grek_4]

Private Sub Код_Изделия_AfterUpdate()

On Error GoTo Err_Код_Изделия_AfterUpdate

Dim strFilter As String
Dim price As Currency 'Может быть любого типа


'Номер_ТТН
strFilter = "Номер_ТТН = " & Me!Номер_ТТН

price = DLookup("Цена_1", "Цены", strFilter) 'Где Цены - запрос, Цена_1 - поле

Me!Цена_продажи = price

Exit_Код_Изделия_AfterUpdate:
Exit Sub

Err_Код_Изделия_AfterUpdate:
MsgBox Err.Description
Resume Exit_Код_Изделия_AfterUpdate


End Sub