Usando SQL em VBA

Bom dia!

Amigos, eu tenho uma consulta atualizável de estoque, funciona perfeitamente mais quero tira-la e inseria quando inserir um item no subformSaida.
alguem poderia ajudar.

Código:



Private Sub btLancar_Click()

On Error Resume Next

DoCmd.GoToControl "SubItensSaida"
DoCmd.GoToRecord , , acNewRec

Forms!FrmSaidas!SubItensSaida!CodigoProduto = Me.txtCodigo
Forms!FrmSaidas!SubItensSaida!DescricaoProduto = Me.txtDescricaoDe
Forms!FrmSaidas!SubItensSaida!SiglaMedida = Me.txtMedida
Forms!FrmSaidas!SubItensSaida!ValorReal = txtValorUnitario
Forms!FrmSaidas!SubItensSaida!Descricao = TxtDeposito
Forms!FrmSaidas!SubItensSaida!Quantidade = txtQuantidade
Forms!FrmSaidas!SubItensSaida!TotalItes = txtValortotal

txtCodigo = ""
txtDescricaoDe = ""
txtMedida = ""
TxtDeposito = ""
txtValorUnitario.Value = "R$ 0,00"
txtQuantidade.Value = "0,00"
txtValortotal.Value = "0,00"
txtCodigo.SetFocus

Forms!FrmSaidas!SubItensSaida!DocumentoSaida = Me.txtDocumentoSaida
DoCmd.RunCommand acCmdSaveRecord

'---------------------------------------------------------------------------------------------------------------------
' SQL da consulta atualizável
'---------------------------------------------------------------------------------------------------------------------

UPDATE tabProdutos, tabItensSaida SET tabProdutos.SaldoEstoque = [tabProdutos]![SaldoEstoque]-[Quantidade], tabItensSaida.Atualizado = Yes
WHERE (((tabItensSaida.Atualizado)=No) AND ((tabProdutos.CodigoProduto)=[tabItensSaida]![CodigoProduto]));

'-------------------------
           
      'Me.Undo
     
Exit_Err_Excluir_Click1:
Exit Sub
Err_Excluir_Click1:
'msg = MsgBox("Não se pode excluir um registro ainda inexistente !!!", vbOKOnly + vbQuestion, "Atencão")
Resume Exit_Err_Excluir_Click1


DoCmd.GoToControl "SubItensSaida"
DoCmd.GoToRecord , , acNewRec

Forms!FrmSaidas!SubItensSaida!CodigoProduto = Me.txtCodigo
Forms!FrmSaidas!SubItensSaida!DescricaoProduto = Me.txtDescricaoDe
Forms!FrmSaidas!SubItensSaida!SiglaMedida = Me.txtMedida
Forms!FrmSaidas!SubItensSaida!ValorReal = txtValorUnitario
Forms!FrmSaidas!SubItensSaida!Descricao = TxtDeposito
Forms!FrmSaidas!SubItensSaida!Quantidade = txtQuantidade
Forms!FrmSaidas!SubItensSaida!TotalItes = txtValortotal

txtCodigo = ""
txtDescricaoDe = ""
txtMedida = ""
TxtDeposito = ""
txtValorUnitario.Value = "R$ 0,00"
txtQuantidade.Value = "0,00"
txtValortotal.Value = "0,00"
txtCodigo.SetFocus
Forms!FrmSaida!SubItensSaida!DocumentoSaida = Me.txtDocumentoSaida
DoCmd.RunCommand acCmdSaveRecord


Exit_Err_Excluir_Click:
Exit Sub
Err_Excluir_Click:
'MSG = MsgBox("Não se pode excluir um registro ainda inexistente !!!", vbOKOnly + vbQuestion, "Atencão")
Resume Exit_Err_Excluir_Click