Tenho no pedido dois preços para venda um PrecoVendaRetira e outro PrecoEntrega.
O que devo fazer para fazer o ValorUnitario da ItemVendas Receber esses Valores?
Estou utilizando este código.
Private Sub Combinação130_AfterUpdate()
If Me.Combinação130 = 0 Or IsNull(Me.Combinação130) Then
Me.ValorUnitario = DLookup("[precoVendaRetira]", "tbProdutos", "[Código] =" & Forms![SubItemVendas]!CodigoProduto)
Me.ValorUnitario = DLookup("[precoEntrega]", "tbProdutos", "[Código] =" & Forms![SubItemVendas]!CodigoProduto)
End If
End Sub
O que devo fazer para fazer o ValorUnitario da ItemVendas Receber esses Valores?
Estou utilizando este código.
Private Sub Combinação130_AfterUpdate()
If Me.Combinação130 = 0 Or IsNull(Me.Combinação130) Then
Me.ValorUnitario = DLookup("[precoVendaRetira]", "tbProdutos", "[Código] =" & Forms![SubItemVendas]!CodigoProduto)
Me.ValorUnitario = DLookup("[precoEntrega]", "tbProdutos", "[Código] =" & Forms![SubItemVendas]!CodigoProduto)
End If
End Sub
Última edição por elidacosta em 13/2/2018, 17:56, editado 1 vez(es) (Motivo da edição : Não existe essa taxa apenas dois preços diferentes no pedido)