Automação preenchimento subformulário

Olá pessoal, estou precisando de uma ajuda com a questão abaixo.

No “formularioVenda” eu coloquei um campo chamado Txtcodigo e consegui com o código vb abaixo inserir o código digitado no campo Txtcodigo e as quantidades nos campos de quantidade e retorno no subformulário chamado “DetalhedoPedidosub”, mas não sei como fazer o código vb para verificar a última linha preenchida e inserir as novas informações na linha de baixo, eu também preciso que quando ele lesse este código do campo “Txtcodigo” ele procurasse no sobformulário se esse item já foi armazenado e acrescentasse 1 na quantidade ao invés de criar mais uma linha com o mesmo código.

Private Sub Comando103_Click()
Forms!FormularioVenda!DetalhedoPedidosub!CodigoProduto.Value = Forms!FormularioVenda!Txtcodigo
Forms!FormularioVenda!DetalhedoPedidosub!Quantidade.Value = 1
Forms!FormularioVenda!DetalhedoPedidosub!Retorno.Value = 0
Me.Txtcodigo = ""
Me.Txtcodigo.SetFocus
End Sub

Desde já agradeço a ajuda
Cristiano

Olá, a inserção dos dados devem ser feitos direto na tabela, e não no Formulário. Se inserir direto no Formulário, ele sempre ira sobrescrever o produto ja inserido!

Utilize a Instrução INSERT... para inserir os dados na tabela, e depois somente atualiza o subformulário para mostrar o produto lançado.

Obrigado pela ajuda Fabio, mas se eu inserir direto na tabela como vou atrelar ao pedido já que são duas tabelas uma com o pedido (que consta o n° do pedido e os dados do cliente) e outra com o detalhe do pedido (que consta as informações dos produtos vendidos)?

Quando vc insere um produto, vai junto o Código do Pedido (ID), essa é a ligação entre a tabela com os dados básicos do pedido... e os produtos (detalhe).
Quando enviar o Codigo e a quantidade, manda também o ID do pedido.

Olá Fabio,

Anteriormente você havia me ajudado com a instrução insert e ficou funcionando super bem para inserir os dados na tabela, mas como eu faria para antes de inserir ele consultar se o código já existe para um pedido específico e ao invés de criar um novo registro ele apenas atualizasse a quantidade somando 1 unidade?

O insert ficou asim

Private Sub Comando98_Click()

CurrentDb.Execute " INSERT INTO DetalhedoPedido(CodigoProduto, CodigoPedido, Quantidade)" & _
"VALUES(" & Me.TxtCodigoBarras & ",'" & Me.CodigoPedido & "','1')"

DetalhedoPedidosub.Form.Requery
Me.TxtCodigoBarras = ""
Me.TxtCodigoBarras.SetFocus

End Sub


Desde já agradesço

Cristiano