!! com inserir dado

Galera e o seguinte, sou iniciante e estou fazendo um programanha, e o seguinte queria fazer quando eu preencher o campo e depois que eu der Enter ele pegar o valor e jogar na tabela e deixar em branco o campo onde eu digito, e quando eu colocar outro valor ele soma o valor que coloquei agora mais o que ja estava la e deixar em branco novamente o campo,

Galeraaaa, ninguem vai me ajudar ? ??? :mellow:

Prezado Sten!o:Posso estar enganado, mas creio haver respondido uma dúvida idêntica há alguns dias, envolvendo operações de soma e redução de estoques. Considerando que em seu formulário existam 2 caixas de texto, uma para somar e outra para reduzir o total, no evento AfterUpdate delas, insira os códigos abaixo (não esqueça de declarar a variável db como DataBase, de preferência num módulo global para reaproveitá-la em outros procedimentos):Private Sub txtEntrada_AfterUpdate() Dim intQuantidade As Integer If IsNull(txtEntrada) Then Exit Sub Else Set db = CurrentDb intQuantidade = txtEstoque + txtEntrada db.Execute "UPDATE tblTabela SET Estoque = " & intQuantidade & "" txtEstoque.Requery End IfEnd SubPrivate Sub txtSaida_AfterUpdate() Dim intQuantidade As Integer If IsNull(txtSaida) Then Exit Sub Else Set db = CurrentDb intQuantidade = txtEstoque - txtSaida db.Execute "UPDATE tblTabela SET Estoque = " & intQuantidade & "" txtEstoque.Requery End IfEnd SubÉ uma solução muito simples, mas que pode atender suas necessidades imediatas.Abraços.

Prezado Sten!o:Posso estar enganado, mas creio haver respondido uma dúvida idêntica há alguns dias, envolvendo operações de soma e redução de estoques. Considerando que em seu formulário existam 2 caixas de texto, uma para somar e outra para reduzir o total, no evento AfterUpdate delas, insira os códigos abaixo (não esqueça de declarar a variável db como DataBase, de preferência num módulo global para reaproveitá-la em outros procedimentos):Private Sub txtEntrada_AfterUpdate() Dim intQuantidade As Integer If IsNull(txtEntrada) Then Exit Sub Else Set db = CurrentDb intQuantidade = txtEstoque + txtEntrada db.Execute "UPDATE tblTabela SET Estoque = " & intQuantidade & "" txtEstoque.Requery End IfEnd SubPrivate Sub txtSaida_AfterUpdate() Dim intQuantidade As Integer If IsNull(txtSaida) Then Exit Sub Else Set db = CurrentDb intQuantidade = txtEstoque - txtSaida db.Execute "UPDATE tblTabela SET Estoque = " & intQuantidade & "" txtEstoque.Requery End IfEnd SubÉ uma solução muito simples, mas que pode atender suas necessidades imediatas.Abraços.

Valeu brother pela ajuda, mais mesmo assim nao conseguir pois sou novo nunca fiz uma aplicação e peguei uma pronta e fui mudando como queria. valeus