DLookup com multiplicaçao " * "

Ola
bem pessoal o DLookup esta ok mas entre os if tenho que colocar uma expressao e nao consegui
caso o codigo do produto seja 45 tem de pegar o ("PreçoUnitário", "Produtos" -("Repesagem", "Clientes"*"kg_repesagem", "Produtos"))
por exemplo:

If "CódigoDoProduto" = 45 Then
Me!PreçoUnitário = DLookup("PreçoUnitário", "Produtos" - ("Repesagem", "Clientes"*"kg_repesagem", "Produtos"), strFiltro)
Else
Me!PreçoUnitário = DLookup("PreçoUnitário", "Produtos", strFiltro)
End If
Me!PreçoUnitário = DLookup("PreçoUnitário", "Produtos", strFiltro)
Me!Preço_Praticado = DLookup("PreçoUnitário", "Produtos", strFiltro)
Me!Custo = DLookup("Preço_Custo", "Produtos", strFiltro)

desde ja agradeço!

Tem de ser assim;

Me!PreçoUnitário = DLookup("PreçoUnitário", "Produtos", strfiltro) - (DLookup("Repesagem", "Clientes", strfiltro) * DLookup("kg_repesagem", "Produtos", strfiltro))

Ola Obrigado pela ajuda JPaulo e Avelino
mas nos dois exemplos retorna a mensagem tipos incompatíveis segue codigo completo


On Error GoTo Erro_CódigoDoProduto_AfterUpdate

Dim strFiltro As String

' Avalia filtro antes de ser passado para a função DLookup.
strFiltro = "CódigoDoProduto = " & Me!CódigoDoProduto

' Pesquisa o preço unitário do produto e o atribui ao controle PreçoUnitário.
If "CódigoDoProduto" = 45 Then
Me!PreçoUnitário = DLookup("PreçoUnitário", "Produtos", strFiltro) - (DLookup("Repesagem", "Clientes", strFiltro)) * DLookup("kg_repesagem", "Produtos", strFiltro))'JPAULO
'Me!PreçoUnitário = DLookup("[PreçoUnitário]-([Repesagem]*[kg_repesagem])", "Produtos", strFiltro)'AVELINO
Else
Me!PreçoUnitário = DLookup("PreçoUnitário", "Produtos", strFiltro)
End If
Me!Preço_Praticado = DLookup("PreçoUnitário", "Produtos", strFiltro)
Me!Custo = DLookup("Preço_Custo", "Produtos", strFiltro)

Sair_CódigoDoProduto_AfterUpdate:
Exit Sub

Erro_CódigoDoProduto_AfterUpdate:
MsgBox Err.Description
Resume Sair_CódigoDoProduto_AfterUpdate

Pelo que vejo são tabelas diferentes, Produtos e Clientes, certo ?

Em qual linha o código fica grifado ?

Todos são números com exceção do "kg_repesagem" =unidade monetária o campo "CódigoDoProduto" = texto Avelino
não da erro no código JPaulo somente no subformulario= Tipo incompatíveis e depois disso retorna ERRO em todos dados do  campo "Repesagem" tem de reparar para voltar ao normar


lembro que é um subformulario pedidos com a consulta  "detalhes_do_Adicionais do pedido_pedido" relacionada  com" Numero_do_pedido com a "Tabela_Pedidos" e o "CódigoDoProduto" c/ tabela "Produtos" e a "Tabela Pedidos" com tabela "Clientes" pelo campo "CodigodoCliente"
antes funcionava perfeito so tenho que colocar esse If lembro também que apos executar o IF tem de zerar o campo "Repesagem" na tabela Clientes


Obrigado pela Ajuda!