Campo Calculado na Tabela

Prezados, boa tarde.

Estou com uma dúvida e preciso de ajuda pois não sei se estou pensando da melhor forma.

Como faço para lançar o valor calculado de um campo de um determinado formulário para dentro de um campo de outra tabela? Sei que não é a pratica lançar na tabela valores calculados mas neste caso preciso deste valor.

Por Ex:

Preciso que a soma total do campo quantidade do subformulário!DetalheVendas seja lançado no campo volumes da Tabela de Vendas.

Desde já agradeço!!!

Algo parecido com isso...

   Dim db1 As Database, rs1 As DAO.Recordset
   Set db1 = CurrentDb
   Set rs1 = db1.OpenRecordset("Nome_de_sua_tabela_aqui")
   With rs1
 
   .AddNew
   ' campos que estão na tabela = campos do fomulario
   ![Chave primaria] = Forms!FrmNome_Formulário_Principal!Me.chave primaria
   ![Campo soma Sub Formulário] = Campo soma que está na tabela    
   .Update
   rs.close
  Set rs = Nothing
  Set db = Nothing
   End With

Fala Silvio, boa tarde.

Usei seu recurso mas não inseriu na tabela:

Private Sub QUANT_AfterUpdate()
On Error Resume Next
Dim db1 As Database, rs1 As DAO.Recordset
  Set db1 = CurrentDb
  Set rs1 = db1.OpenRecordset("1 VENDAS") 'Aqui é minha Tabela principal
  With rs1

  .AddNew
  'campos que estão na tabela = campos do fomulário
  [IDvendas] = Forms![FORM_VENDAS 3]!ID_Vendas '[IDvendas] da minha tabela de detalhe
 Forms![FORM_VENDAS 3]!ID_Vendas  'São dados do meu subformulário de detalhe

 [QUANT_TOTAL] = VOLUMES
'[QUANT_TOTAL] é a soma da quantidade no subformulário de detalhe
'VOLUMES é o campo da tabela de Vendas que precisa receber o valor do campo calculado.

  .Update
  rs.Close
 Set rs = Nothing
 Set DB = Nothing
  End With
End Sub[/color]

Só uma alerta. A tabela não é apropriada para se fazer cálculos pois fica muito pesada , para carregar cálculos criamos uma consulta para puxar os valores.
Abçs

Campos tabela........campos formulário

VOLUMES..............[QUANT_TOTAL]

Prezado crysostomo,

No campo volumes eu tenho que digitar o valor que aparece no campo somado de quantidade.

Pensei que ao invés de fazer uma consulta para ter este valor, poderia gerar o calculo em vba.

Vou analisar melhor esta possibilidade e retornar neste tópico.


Prezado Silvio,

Mesmo alterando a ordem dos campos ainda não funfou como preciso.


Obrigado pelo retorno pessoal.

Qual é o campo pai e campo filho ?

Idvendas é a chave primária na tabela principal ? se for o mesmo tem que estar na tabela detalhe como chave estrangeira e é por essa chave que se faz o relacionamento, por isso te perguntei qual era o campo pai e filho.

Posta teu banco, apenas as entidades envolvidas

E tenta colocar o código no evento ao sair do campo QUANT




Private Sub QUANT_AfterUpdate()
On Error Resume Next
Dim db1 As Database, rs1 As DAO.Recordset
Set db1 = CurrentDb
Set rs1 = db1.OpenRecordset("1_VENDAS") 'Aqui é minha Tabela principal
With rs1

.AddNew
'campos que estão na tabela = campos do fomulário
[IDvendas] = Forms![FORM_VENDAS 3]!IDVendas ' alterado
VOLUMES = [QUANT_TOTAL] ' alterado


.Update
rs.Close
Set rs = Nothing
Set DB = Nothing
End With
End Sub

Silvio,

ID_Vendas (campo pai) é a chave primária e IDvendas (campo filho) é a chave estrangeira. No relacionamento está como "um para muitos".

Assim que conseguir eu posto meu BD.