Ola amigos eu tenho esse código em uma listbox que ao clicar 2 vzs na linha escolhida insere no subformulario "frmdetalhesvenda"o produto escolhido,agora eu coloquei mais um subform no formulario com o nome de FrmTotais" para incluir só o valor "PrecoVenda",que mais faço no código para incluir esse item no sub FrmTotais.
Private Sub ltxListaProdutos_DblClick(Cancel As Integer)
CurrentDb.Execute "INSERT INTO MovProdutos (Venda,[Data],Produto,[Barra],PrecoVenda,QtdSaida) " & _
"Values(" & [Forms]![PDV]![frmdetalhesvenda].[Form]![codvenda_tblsisPDV] & "," & [Forms]![PDV]![frmdetalhesvenda].[Form]![data] & ",'" & Me.ltxListaProdutos.Column(2) & "','" & Format(Me.ltxListaProdutos.Column(1), "0000000000") & "','" & Me.ltxListaProdutos.Column(4) & "'," &
[Forms]![PDV]![frmdetalhesvenda].[Form].Requery
DoCmd.Close
End Sub
Private Sub ltxListaProdutos_DblClick(Cancel As Integer)
CurrentDb.Execute "INSERT INTO MovProdutos (Venda,[Data],Produto,[Barra],PrecoVenda,QtdSaida) " & _
"Values(" & [Forms]![PDV]![frmdetalhesvenda].[Form]![codvenda_tblsisPDV] & "," & [Forms]![PDV]![frmdetalhesvenda].[Form]![data] & ",'" & Me.ltxListaProdutos.Column(2) & "','" & Format(Me.ltxListaProdutos.Column(1), "0000000000") & "','" & Me.ltxListaProdutos.Column(4) & "'," &
[Forms]![PDV]![frmdetalhesvenda].[Form].Requery
DoCmd.Close
End Sub