Alterar Valor de um Campo de Consulta ou Subformulario

Olá Pesssoal!

Estou montando um subformulário de venda e não estou conseguir uma função desejada, criei um subformulário através de uma consulta de várias tabelas, e nesse subformulário tem uma coluna A que é o valor de venda padrão de um determinado produto, portanto adicionei outra coluna B que trás o mesmo valor da coluna A, porém essa coluna B pretendo que ela seja editável, ou seja para que eu possa alterar o valor de venda do produto, sem que seja alterado no valor da coluna A que é o valor padrão de venda, será que alguém possa me ajudar?

Atenciosamente,

Valdinei

Olá, Valdinei.

Duas opções são recomendadas para você inserir o valor de A em B e ainda permitir que B seja editável.

A primeira e mais fácil é colocar como valor padrão de B a expressão:

[NomeDoForm]![CampoA]

Mas isso não funciona se o form for do tipo contínuo.

Nesse caso, uso o código abaixo, disparado a partir de um evento do tipo Ao Atualizar um campo ou ainda No Atual:

Dim varPreco As Variant
Dim strCriteria as String

strCriteria = "[IdDoProduto]=" & Me![NomeDoCampoID]
varPreco = DLookup("[PrecoPadrao]", "NomeDaTabela", strCriteria)

If IsNull(varPreco) Then
varPreco = 0
End If

Me.NomeDoCampoB = varPreco

Ia me esquecendo:

B tem que estar sendo armazenado numa tabela, ok?

Abs.