O programa seguinte procura o valor do preço na tabela de produtos e coloca-o no campo do preço de encomenda
Private Sub codpro_AfterUpdate()
Me.Precou = DLookup("[precou]", "Produto", "[codpro]='" & Me.codpro & "'")
End Sub