Current DB Insert

Ola pessoal estou com um probleminha aq não sei se estou certo estou tentando incluir os produtos do formulario Compra na tabela compra_det porem acho que tem alguma coisa errada com o código o codigo é esse. e se encontra nesse botão da imagem

On Error GoTo Err_Comando57_Click
 Set db = CurrentDb()
   Set rs = db.OpenRecordset("Compra_Det")
     
For i = 5 To Me.Cód_Compra  
       rs.AddNew
       rs("Cód_Compra") = Me.Cód_Compra
       rs("Cód_Produto") = Me.Texto45
       rs("QtdProduto") = Me.Texto49
       rs("Valor_Registrado") = Me.Texto52
       rs("Desconto") = Me.Texto54
       rs.Update
       
   Next
   rs.Close
   db.Close
   Me.Frm_Compra_Det.Requery  'Atualiza o SubForm
Exit_Comando57_Click:
   Exit Sub
Err_Comando57_Click:
   MsgBox "Não Foi Possivel Executar Esta Ação!!! ", vbOKOnly, "SISTEMA VENDAS."
   Resume Exit_Comando57_Click


imagem: https://www.dropbox.com/s/ljxli2ewkx6wpu8/Compra.jpg?dl=0

Sera que alguém pode me da uma ajuda.

Marcelo

Seria ótimo se começasse desde já a nomear teus controles.

Você mesmo deve ter consultado o formulário algumas vezes pra saber quem é quem nas caixas de textos.

Quanto ao teu problema:

Faça uma consulta seleção da tabela "Compra Det" e coloque no lugar do nome dela na frase abaixo:

Set rs = db.OpenRecordset("Compra_Det")

Pelo visto está tentando povoar uma tabela detalhes de uma compra.

Para isso usa-se relacionamento, pois o Access é um banco de dados relacional.

É só fazer um relacionamento de 1(tabela compra) para muitos (Compra_Det)

Após fazer o relacionamento, clique no retângulo controle subformulário.

Na folha de propriedades desse controles, nas duas propriedades:

Vincular campos mestre e vincular campos filhos coloque: Cód_Compra

Assim toda vez que preencher os dados do formulário principal, quando

inicial a digitar no subformulário, o access automaticamente define o código da compra no subform.

Procure no fórum por vendas, estoque, etc.

[ ]'s

O meu amigo muito obrigado mais acho q resolvi a questão fiz a seguinte modificação no código.
On Error GoTo Err_Comando57_Click
Set db = CurrentDb()
Set rs = db.OpenRecordset("Compra_Det") 'Abre Tbl_ContasAreceber


rs.AddNew
rs("Cód_Compra") = Me.Cód_Compra
rs("Cód_Produto") = Me.Texto45
rs("QtdProduto") = Me.Texto49
rs("Valor_Registrado") = Me.Texto52
rs("Desconto") = Me.Texto54 'Calcula as datas de Vencto através da função DateAdd()
rs.Update


rs.Close
db.Close
Me.Frm_Compra_Det.Requery
Lista60.Requery 'Atualiza o SubForm
Exit_Comando57_Click:
Exit Sub
Err_Comando57_Click:
MsgBox "Não Foi Possivel Executar Esta Ação!!! ", vbOKOnly, "SISTEMA VENDAS."
Resume Exit_Comando57_Click


Funcionou Perfeito sabe como queria usar este código.

vc esta no formulario de compras ai vc vai adicionar os produtos apertando F3 abre a lista vc filtra e clica no produto desejado,

ele transfere as informações para os campos não acoplados do formulario compra que são

Cód Produto Descrição Preço_Compra , ai no botão Inserir que tem o código acima ele Pega as informações desses campos do código e inseri na listxbox entende. o evento que eu uso na Lista de pesquisa de produtos e o abaixo.


Dim Linha As Integer


Linha = Me.Lista42.ListIndex + 1

Forms!Frm_Compra!Texto45 = Me.Lista42.Column(0, Linha)
Forms!Frm_Compra!Texto47 = Me.Lista42.Column(1, Linha)
Forms!Frm_Compra!Texto52 = Me.Lista42.Column(2, Linha)

DoCmd.Close acForm, "Compra_Inserir_Produto"


Entendeu, ai que eu queria saber era se é assim mesmo o primeiro código?????

Entendi amigo e era assim mesmo que eu sempre fiz e que eu estou tendando modificar para o usuario não entra na list box apenas ir listando os produtos inseridos como um PDV.

Se está funcionando como deseja, ótimo!

Valeu pelo retorno

Não esqueça de colocar o Resolvido no título do tópico.

Caso não saiba como, veja ali embaixo, na minha assinatura.

[ ] 's