[Resolvido]Entrada no estoque

Prezados amigos do fórum, boa tarde!

Estou com um grande problema na hora de dar entrada de produtos no estoque. Criei um formulário principal onde coloco os dados da nota fiscal, fornecedor, data, etc. Criei dentro desse formulário um subformulário onde entro com os dados dos produtos, código, descrição, quantidade, preço, e gostaria que através de botão no formulário principal esses produtos fossem atualizados. estou tentando esse código porem esta dando erro:

Dim EstA, NewEst As Double -> cria os campos temporários
Dim rs As DAO.Recordset -> cria o recordset
'abre o recordset
Set rs = CurrentDb.OpenRecordset("SELECT * FROM [12-Produtos] WHERE CodProd=" & Formulários![15-EntradaEstoque]![16-EntradaEstoqueItem]![CodProd].Value, dbOpenDynaset)
               EstA = rs.Fields("EstoqueAtual") 'pega o estoque atual
With rs 'seleciona o recordset

                NewEst = EstA + Me.Quantidade.Value 'calcula o estoque
               .Edit 'coloca o recordset em modo de edição
               .Fields("EstoqueAtual") = NewEst 'atualiza o estoque
               .Update 'grava as informações no recordset
               MsgBox "A quantidade informada foi adicionada ao estoque", vbInformation, "Aviso" 'confirmação

Desde já agradeço pela atenção.

Alguns erros ae...

Dim EstA, NewEst As Double -> cria os campos temporários
Dim rs As DAO.Recordset -> cria o recordset 'abre o recordset
Set rs = CurrentDb.OpenRecordset("SELECT * FROM [12-Produtos] WHERE CodProd=" & Forms![15-EntradaEstoque]![16-EntradaEstoqueItem].Form![CodProd], dbOpenDynaset)
EstA = rs("EstoqueAtual") 'pega o estoque atual
With rs 'seleciona o recordset

NewEst = EstA + Me.Quantidade.Value 'calcula o estoque
.Edit 'coloca o recordset em modo de edição
.("EstoqueAtual") = NewEst 'atualiza o estoque
.Update 'grava as informações no recordset

Prezado JPaulo, boa tarde!

Primeiramente muito obrigado pela atenção e ajuda prestada.

Bom, parte do problema foi resolvido, com o código corregido o estoque atualiza, porem somente no primeiro item, ou seja, quando tenho uma nota com vários itens e entro com esses itens no subform [16-EntradaEstoqueItem] somente o primeiro item atualiza os outros permanece com a mesma quantidade em estoque. É possível no botão atualizar todos os itens lançados nesse subform?

Desde já agradeço pela atenção...

Prezados Amigos, boa tarde!

Continuo com o mesmo problema de atualização no estoque, quando aperto o botão atualizar apenas o primeiro item atualiza os outros itens não sofrem atualização. Pensei em colocar um comando While para atualizar todos os itens do subform [16-EntradaEstoqueItem], porém não faço idéia como abrir o recordset com duas variáveis [CodProd] e [Item], onde o campo item é o numero de itens que tenho na nota, estou tentando o código abaixo que esta dando erro ao abrir o recordset:

Private Sub Comando48_Click()
'Atualiza o estoque
Dim EstA, NewEst, QtdItem, Item As Double 'cria os campos temporários
Dim rs As DAO.Recordset 'cria o recordset

QtdItem = Forms![15-EntradaEstoque].Form![QtdItem]
Item = 1

Do While Item <= QtdItem

'abre o recordset
Set rs = CurrentDb.OpenRecordset("SELECT * FROM [12-Produtos] WHERE CodProd=" & Forms![15-EntradaEstoque]![16-EntradaEstoqueItem].Form![CodProd] & Forms![15-EntradaEstoque]![16-EntradaEstoqueItem].Form![Item], dbOpenDynaset)
EstA = rs("EstoqueAtual") 'pega o estoque atual

With rs 'seleciona o recordset

NewEst = EstA + Me.Quantidade.Value 'calcula o estoque
.Edit 'coloca o recordset em modo de edição
.Fields("EstoqueAtual") = NewEst 'atualiza o estoque
.Update 'grava as informações no recordset
MsgBox "A quantidade informada foi adicionada ao estoque", vbInformation, "Aviso" 'confirmação


End With 'fim da seleção do recordset

Set rs = Nothing: Close 'limpa a memória

Item = Item + 1

Loop
End Sub

Por favor se alguém puder ajudar, desde já agradeço pela atenção...

Olá.

Estou aprendendo VBA estou com um problema semelhante.
Vou acompanhar suas dúvidas.

Vc criou um botão atualizar e escreveu os códigos descritos acima para ele?

Dica para o os próximos códigos:
Use o editor de códigos do fórum para postar os códigos. Fica mais organizado e fácil de entender.
Veja no anexo.

Abraços