[Resolvido]Duplicar registo de formulario com subformulario

Ola a todos,

Encontrei este exemplo aqui no forum mas nao estou a conseguir aplica-lo no meu projecto (segue mais abaixo o codigo).

O formulario q pretendo duplicar os dados 'e baseado em duas tabelas;

tabela do formulario,
nome da tabela: orders
ID_orders (autonumber)
date
order_typ
Alias
comments
cost_centre


tabela do subformulario,
nome da tabela: orders_sub

ID_orders_sub (autonumber)
supplier_name
catalogue_code
order_description
units
size_type
quantity
unitcost


Agora segue o codigo que encontrei aqui no forum, ja com os meus dados inseridos..


Private Sub Command66_Click()
If Not IsNull(Me!ID_orders) Then
           If MsgBox("Confirma a duplicação do registro?", vbQuestion + vbYesNo) = vbYes Then
               Dim CodigoNovoPedido As Long
             
               CurrentDb.Execute "INSERT INTO orders ( ID_orders, date, order_typ, Alias, cost_centre, Name, comments ) SELECT ID_orders, date, order_typ, Alias, cost_centre, Name, comments FROM tabela1 WHERE ID_orders=" & Me!ID_orders & ";", dbFailOnError
             
               CodigoNovoPedido = DMax("ID_orders", Me.RecordSource)
             
               CurrentDb.Execute "INSERT INTO ID_orders_sub ( ID_orders_sub, supplier_name, catalogue_code, order_description, units, size_type, quantity, unitcost ) SELECT " & CodigoNovoPedido & ", ID_orders_sub, supplier_name, catalogue_code, order_description, units, size_type, quantity, unitcost FROM ID_orders_sub WHERE ID_orders_sub=" & Me!ID_orders_sub & ";", dbFailOnError
               Me.Requery
           End If
       End If
End Sub


o erro q est a acontecer 'e  "runtime error 3134"  - syntax error in insert into statement.

Obrigado desde ja por qualquer ajuda q possam dar

Brito

ID_orders (autonumber)
date
order_typ
Alias
comments
cost_centre


tabela do subformulario,
nome da tabela: orders_sub

ID_orders_sub (autonumber) ------ > Este não pode ser automático, tem de ser sempre igual ao ID_orders, pois é por este que formulário e subformulário ficam ligados
supplier_name
catalogue_code
order_description
units
size_type
quantity
unitcost

Ola Assis,

Na verdade nao coloquei os campos todos de cada tabela...segue abaixo a retificacao

tabela do formulario,
nome da tabela: orders
ID_orders (autonumber) - e tambem chave primaria
date
order_typ
Alias
comments
cost_centre


tabela do subformulario,
nome da tabela: orders_sub

ID_orders_sub (autonumber) - e tambem chave primaria
ID_orders (campo ligado ao campo "ID_orders" da tabela orders )
supplier_name
catalogue_code
order_description
units
size_type
quantity
unitcost

Nao sei se faz diferenca mas das tabelas de cima criei uma consulta para cada as tabelas com os campo acima descritos, e por sua vez entao criei os respective formulario com o sub-formulario.

Agora vem a parte em que eu abuso da minha sorte sera que me poderia alterar os campos necessaries no codigo embaixo escrito (tenho de admitir que programcao nao 'e o meu forte...)

Desde ja obrigado

Private Sub Command66_Click()
If Not IsNull(Me!ID_orders) Then
If MsgBox("Confirma a duplicação do registro?", vbQuestion + vbYesNo) = vbYes Then
Dim CodigoNovoPedido As Long

CurrentDb.Execute "INSERT INTO orders ( ID_orders, date, order_typ, Alias, cost_centre, Name, comments ) SELECT ID_orders, date, order_typ, Alias, cost_centre, Name, comments FROM tabela1 WHERE ID_orders=" & Me!ID_orders & ";", dbFailOnError

CodigoNovoPedido = DMax("ID_orders", Me.RecordSource)

CurrentDb.Execute "INSERT INTO ID_orders_sub ( ID_orders_sub, supplier_name, catalogue_code, order_description, units, size_type, quantity, unitcost ) SELECT " & CodigoNovoPedido & ", ID_orders_sub, supplier_name, catalogue_code, order_description, units, size_type, quantity, unitcost FROM ID_orders_sub WHERE ID_orders_sub=" & Me!ID_orders_sub & ";", dbFailOnError
Me.Requery
End If
End If
End Sub

Brito

Poste o que tem feito para analisar.

Os nomes dos campos tem que ser iguais a função CurrentDb.Execute "INSERT INTO ???????.

Ola a todos,

Segue o meu projecto, o formulário em questão 'e o "orders_form_users"

http://we.tl/dr12qSNHoq

não percebi muito bem a ultima sugestão...se me poderem ajudar através do meu projecto, ficaria eternamente grato (alias como sempre)

Obrigado

Brito

Se tiver DropBox prefiro, não gostei do site onde colocou o seu exemplo para download

Tem aqui um exemplo

http://ge.tt/27aUyZQ2/v/0?c

Ola Assis,

Obrigado pelo exemplo, vou aplica-lo ao meu projecto e confirmarei o resultado. O exemplo que criou parece ser mesmo o que eu preciso sou estou em duvida em relação ao tipo de ligação entre as tabela, mas como disse vou experimentar.

Desde já muito obrigado

Ola Assis,

Estou com dificuldade em conseguir aplicar o seu exemplo no meu projecto, se nao for abusar ainda mais da sorte sera que poderia explicar-me atraves da minha base de dados...

http://ge.tt/4m7eGdQ2?c

Obrigado

Brito

Veja a mensagem que tive do ficheiro que o amigo postou.

Ola Assis,

Penso que seja do proprio site, mas se nao se importar tentava novamente pf http://ge.tt/20DPtfQ2/v/0

Caso aconteca de novo, se nao importar sera que me poderia enviar o email?

Uma vez mais obrigado

Brito

Depois retorno, já fiz o download.

Brito

BD tem muitos campos em branco e eu não sei se são ou não para preencher. Portanto elimine aquilo que não vai interessar, e principalmente mude os nomes dos campos da tabela para Português.

Ola Assis,

Conforme pedido segue o link com a actualizacao devida da minha base de dados http://ge.tt/6koO9kQ2?c

Os campos das tabelas que não são chaves primarias e estão a efectuar ligações a outras tabelas por defeito eu não preencho nenhum dado (por defeito estão em branco), servem somente para estabelecer ligações entre tabelas.

Obrigado

Ola Assis,

Obrigado pela ajuda, penso que consegui adaptar o exemplo que criou em virtudo das minhas necessides

Abraco

Ok Brito

Pensa ou conseguiu ?

Obrigado pelo retorno ....

Ola Assis,

Pelo que testei penso que funciona o unico senao 'e q a base de dados ja esta em funcionamento 'a pelo menos 1 ano e por isso ja possui bastantes dados e pelo metodo que me mostrou se nao estou engandado terei de fazer algumas alteracoes na estrutura...

Mas uma vez mais, obrigado pela ajuda

Abraco