Copiar dados de um subformulário para o outro

Moderador: Avelino Sampaio

pedro_bessa
Mensagens: 3
Registrado em: 12 Mar 2018, 11:50

Copiar dados de um subformulário para o outro

Mensagempor pedro_bessa » 30 Jan 2019, 22:30

Boa noite Srs!!

Estou tentando copiar dados de um sub-formulário que tem como tabela Tbl_despesas_novas, para outro sub-formulário tem como tabela tbl_itens_entrada, deixa eu tentar explicar, na primeira tabela lança-se os dados de uma despesa, e quando a mesma for despesas de compra de materiais de estoque, eu desejo que ao clicar no botão, os dados de quantidade e valor unitário vão para a segunda tabela, tentei o código abaixo:

Código:
Private Sub btn_estoque_Click()
Dim rs As DAO.Recordset
Dim rs2 As DAO.Recordset

Set rs = CurrentDb.OpenRecordset("tbl_despesas_nova")
Set rs2 = CurrentDb.OpenRecordset("Tbl_itens_Entrada")
Do While Not rs.EOF
rs2.AddNew
rs2!Qtd_Produto.Value = rs!Qtd_Despesas.Value
rs2!Valor_unt.Value = rs!Vlr_unt_desp.Value

rs2.Update
rs.MoveNext
Loop
rs2.Close
rs.Close


Set rs2 = Nothing
Set rs = Nothing

DoCmd.OpenForm "Frm_entrada"
DoCmd.Close acForm, "frm_Ent_saida


Acontece que todos os dados da tbl_despesas_nova estão sendo copiados, não somente a despesa específica.
Alguém pode me ajudar a encontrar o erro.
Obrigado.

Disable adblock

Precisamos do seu apoio. Faca uma doacao para o site atraves do Paypal.


Voltar para “Formulários”

Quem está online

Usuários neste fórum: Nenhum usuário registrado e 8 visitantes