[Resolvido]Importar do Orcamento pra Ordem de Servico mas baixando no estoque

tenho esse codigo pra atualizar as uma tabela pra outra

Public Sub ComparaTabelasEatualiza()
'By JPaulo ® Maximo Access
Dim db As Database
Dim rs1 As Recordset
Dim rs2 As Recordset

Set db = CurrentDb()
Set rs1 = db.OpenRecordset("select * from Dados ORDER BY cód ASC")

rs1.MoveFirst

Do Until rs1.EOF

Set rs2 = db.OpenRecordset("select * from produtos where n_original=" & rs1!CÓD)
If rs2.EOF Then
rs2.AddNew
rs2![Cd_Produto] = rs1![CÓD]
rs2![n_original] = rs1![CÓD]
rs2![Ref_Original] = rs1![Codigo]
'rs2![NCM_Genero] = rs1![NCM_Genero]
rs2![NCM] = rs1![NCM]
rs2![Unid_Med] = rs1![Idunidade]
rs2![Descr_Produto] = rs1![descricao]
rs2![Cd_Secao] = rs1![Cd_Secao]
rs2![CSOSN] = rs1![CSOSN]
rs2![Origem] = rs1![Origem]
rs2![Cst] = rs1![Cst]
rs2![Cd_Tributo] = rs1![Cd_Tributo]
rs2![modBC] = rs1![modBC]
rs2![modBCST] = rs1![modBCST]
rs2![Estoque_Min] = rs1![EMinimo]
rs2![Estoque_Atual] = rs1![Qde]
rs2![Vl_Custo] = rs1![Cto_medio]
rs2![Vl_Venda] = rs1![valor]

rs2.Update
Else
rs2.MoveFirst
Do Until rs2.EOF

rs2.Edit
rs2![Cd_Produto] = rs1![CÓD]
rs2![n_original] = rs1![CÓD]
rs2![Ref_Original] = rs1![Codigo]
' rs2![NCM_Genero] = rs1![NCM_Genero]
rs2![NCM] = rs1![NCM]
rs2![Unid_Med] = rs1![Idunidade]
rs2![Descr_Produto] = rs1![descricao]
rs2![Cd_Secao] = rs1![Cd_Secao]
rs2![CSOSN] = rs1![CSOSN]
rs2![Origem] = rs1![Origem]
rs2![Cst] = rs1![Cst]
rs2![Cd_Tributo] = rs1![Cd_Tributo]
rs2![modBC] = rs1![modBC]
rs2![modBCST] = rs1![modBCST]
rs2![Estoque_Min] = rs1![EMinimo]
rs2![Estoque_Atual] = rs1![Qde]
rs2![Vl_Custo] = rs1![Cto_medio]
rs2![Vl_Venda] = rs1![valor]

rs2.Update
rs2.MoveNext
Loop
End If

rs1.MoveNext

Loop
rs1.Close
rs2.Close
MsgBox "Produtos Atualizados com Sucesso...", vbInformation
End Sub

so que quero que transferir da tabela orcamento pra tabela ordem de servico porem baixando no estoque se eu quiser

Vamos por ordem ....
o sistema gera o orçamento ok depois se aprovado é aberta a O.S. ok então basta vincular a OS ao numero do orçamento e depois no fechamento da OS é dado a baixa no estoque, a principio assim é o correto. Somente pode ser dar baixa no estoque qdo houver o faturamento caso fica a OS em aberto fica como estoque pendente.
Abçs

olha meu sistema eu uso forms desvinculado e nao ta dando certo

Rapaz se esse código está a funfar, e se quer dar baixa de estoque tem de ir diminuindo;

rs2![Estoque_Atual] = rs2![Estoque_Atual] - rs1![Qde]

so que eu tenho mais de um itens do orcamento

as minhas tabelas sao

orcamento >>onde ta os lancamento dos itens do orcamento

suboss >> onde vai importar da tabela orcamento pra tabela suboss

dados >> onde ta o estoque

agroa vc pode me ajudar onde com

codigo pra importar de uma tabela pra outra

codigo de baixar o estoque

rs2![Estoque_Atual] = rs2![Estoque_Atual] - rs1![Qde]

Esse código eu coloco na segunda ou na primeira parte?

Se estás atualizando, creio que na segunda parte amigão.

Ja resolveste este tópico?

Cumprimentos.

Como não houve resposta o tópico passa a resolvido, caso necessite reabre-o.

Moderação