Entrada/Saida de Estoque no clique de um Botão

Nesse Vídeo, mostro como fazer a Baixa/Entrada no estoque utilizando Dao.Recordset.
A Ideia e lançar os produtos, ao clicar em salvar ser atualizado as quantidade do estoque para cada produto lançado.

Link Vídeo:

youtube.com/watch?v=U_ShUg4i0VQ

Código Utilizado:

Código:


Private Sub Comando18_Click()
'Criado por Fabio Paes
'   Em 25/07/2017

DoCmd.RunCommand acCmdSaveRecord 'Salvo o Registro antes de começar a selecionar os dados
Dim DB As Database 'Declaro as variaveis utilizadas no codigo
Dim rsO, rsD, rsD2 As DAO.Recordset 'Variavel rsO=Fara a consulta dos produtos lançados na NF (Origem)
                                    'rsD=Fara a consulta do produto a ser adicionado o Estoque
                                    'rsD2=Fara a consulta do produto a ser DIMINUIDO a qnt da OC
Set DB = CurrentDb() 'defino que irei Utilizar o BD atual
'Realizo a consulta e trago todos os produtos lançados na NF em questão
Set rsO = DB.OpenRecordset("SELECT * FROM DETALHES_ENTRADA_NF WHERE Codcont = " & Me.txt_IdIntControle & "")
'----------------------------------------------------------------------------------------------------------------
    Do While Not rsO.EOF 'Repetirei Até que não haja mais registros no rsO
        'Faço a consulta e pego SOMENTE o produto em questão para adidionar o estoque
    Set rsD = DB.OpenRecordset("SELECT * FROM PRODUTOS WHERE CodPrd = '" & rsO!CodPrd & "'")
    'Faço a consulta e pego SOMENTE o produto em questão para diminuir a quantidade da OC
    Set rsD2 = DB.OpenRecordset("SELECT * FROM DETALHES_DA_OC WHERE NumOC = '" & Me.NumOC & "' AND CodPrd = '" & rsO!CodPrd & "'")
        'Diminui a quantidade Pendente da OC
        rsD2.Edit
        rsD2!QtdePendente = rsD2!QtdePendente - rsO!Quantidade
        rsD2.Update
        
        'Acrescenta a quantidade de cada produto ao estoque
        rsD.Edit
        rsD!EmEstoqueD001 = rsD!EmEstoqueD001 + rsO!Quantidade
        rsD.Update
        
    rsO.MoveNext 'Movo para proximo registro para Iniciar a Atualização do Novo produto...
    Loop    'Fim da alteração e Inicio da nova repetição para o Novo produto
'--------------------------------------------------------------------------------------------------------------
'Fecha as Conexoes abertas
Set DB = Nothing
Set rsO = Nothing
Set rsD = Nothing
Set rsD2 = Nothing
MsgBox "Entrada Efetuada E Baixa da OC", vbInformation
Me.Recalc
End Sub