Olá a todos, estou tendo um problema aparentemente simples.
Tenho uma listbox(lst_entrada) que é alimentada por uma tabela de acervo de produtos (tbl_produtos)
quando executo o botão de comando, é realizado uma cópia do registro selecionado para outra tabela (tbl_entrada)
e abre o formulário (frm_cadastro) para ser carregado dessa tabela(tbl_entrada) com o registro selecionado (lst_entrada) e possa adicionar mais valores.
A Tbl_entrada (frm_cadastro) tem uma chave primaria (IdEntrada) e o campo IdProduto relacionado em tbl_produtos
O form é aberto corretamente no registro especificado, faço as inserções e salvo, o problema aparece quando preciso adicionar novamente o mesmo registro ele aparece o ultimo registro salvo, gostaria que copiasse novamente com uma IdEntrada nova.
code da cópia
o chamamento do form
penso eu que necessita de uma condição que "Abra o frm_Cadastro com o campo 'IdProduto' mesmo da lstbox E com IdEntrada sempre novo.
Tenho uma listbox(lst_entrada) que é alimentada por uma tabela de acervo de produtos (tbl_produtos)
quando executo o botão de comando, é realizado uma cópia do registro selecionado para outra tabela (tbl_entrada)
e abre o formulário (frm_cadastro) para ser carregado dessa tabela(tbl_entrada) com o registro selecionado (lst_entrada) e possa adicionar mais valores.
A Tbl_entrada (frm_cadastro) tem uma chave primaria (IdEntrada) e o campo IdProduto relacionado em tbl_produtos
O form é aberto corretamente no registro especificado, faço as inserções e salvo, o problema aparece quando preciso adicionar novamente o mesmo registro ele aparece o ultimo registro salvo, gostaria que copiasse novamente com uma IdEntrada nova.
code da cópia
- Código:
CurrentDb.Execute "INSERT INTO tbl_entrada(IdProduto, Produto, Ingrediente_Ativo, Classe, EF, Tox, Fabricante )" & " Values(""" & Me.lst_entrada.Column(0) & """,""" & Me.lst_entrada.Column(1) & """,""" & Me.lst_entrada.Column(2) & """,""" & Me.lst_entrada.Column(3) & """,""" & Me.lst_entrada.Column(4) & """,""" & Me.lst_entrada.Column(5) & """,""" & Me.lst_entrada.Column(6) & """);"
o chamamento do form
- Código:
DoCmd.OpenForm "frm_cadastro", , , "IdProduto=" & Me.lst_entrada.Column(0)
penso eu que necessita de uma condição que "Abra o frm_Cadastro com o campo 'IdProduto' mesmo da lstbox E com IdEntrada sempre novo.