[Resolvido]Duplicar registo incrementando +1

Boa noite



Tenho um formulário para o registo dos produtos tóxicos da empresa onde trabalho.
Gostaria que me ajudassem no seguinte:
Quando clico no botao que tem o visto duplicasse todos os campos do ultimo registo incrementando +1 no numero que a seta azul esta a apontar.

gostaria que me explicassem como se faz, visto que nao pesco nada de visual basic.

a tabela é produtos_toxicos
e o numero que queria incrementar mais um é o campo talao_id.

Já corri tudo ha procura de alguma solução mas nao encontrei nada que intendesse.

Ajudaria se postasse um exemplo com os os objetos envolvidos...

Mas se for para duplicar o último registro, poderia se utilizar o Método CurrentDb.Execute  ou um Método Recordset... Depende do caso.


Cumprimentos.

O formulário em questão é: produtos_toxicos_taloes

Envio a base dados como anexo.

Cumprimentos
Tiago

Boas.... Primeiramente sua tabela não tem um  campo de chave primária.... Dever ter um campo para chave primária.

Agora de detalhes do que pretende...

Cumprimentos.

Se é para duplicar o último registro...

1 -  Na sua tabela crie um campo com o nome de ID_ProdutosTox
2 - Tipo de dados: Numeração Automática
3 - No Form crie uma caixa texto e nomeeie como: txtID, acople-a ao campo ID_ProdutosTox
4 - Nas referências do VBA, no menu Ferramentas, Visual Basic, Ferramentas, Referencias..
     Ative a referência Microsoft Dao 3.51 ObjectLibrary

 No botão para duplicar o registro o seguinte código:

'Declaração de variáveis
Dim RsNovo As DAO.Recordset
Dim RsLast As DAO.Recordset
Dim StrSQL As String, StrSQLLast As String
Dim nLast As Long
Dim X As Integer

'Adicionao a variável a ID_ProdutosTox (o último)
nLast = DLast("ID_ProdutosTox", "Produtos_toxicos")
'Carrego na variável a SQL da tabela
StrSQL = "SELECT * From Produtos_Toxicos"
'Carrego na variável a SQL da tabela filtrada pelo código contido na variável nLast 
StrSQLLast = "SELECT * From Produtos_Toxicos WHERE ID_ProdutosTox = " & nLast & ""
'Carrego o Recordset com a StrSQL
Set RsNovo = CurrentDb.OpenRecordset(StrSQL)
'Carrego o Recordset com a StrSQLLast
Set RsLast = CurrentDb.OpenRecordset(StrSQLLast)
'Crio um novo registro no recordset
RsNovo.AddNew
'Executo um loop pelos campos da tabela excetuando o primeiro campo da chave primária que não permite duplicação
For X = 1 To RsNovo.Fields.Count - 1
'Adiciono ao novo registro (por campo) o último registro da tabela
RsNovo(X) = RsLast(X)
'movo para o próximo campo
Next X
'Atualizo o recordset
RsNovo.Update
'Emite mensagem de aviso
MsgBox "O último registro foi duplicado!", vbInformation, "PRONTO"

Cumprimentos.

Boa tarde

Amigo, estou desde já muito grato pela atenção prestada e por me ter ajudado.
Ficou fantástico, mas sem dar muito trabalho gostaria de lhe pedir só mais uma coisa.

No formulário que uso para criar os talões o campo talao_id (numero do talão) é possível a incrementação de +1 ao registo anterior, ou só é possível em numeração automática?

Por exemplo, o primeiro registo tem o numero de talão introduzido manualmente com o numero: 0607201301, o segundo 0607201302 e assim sucessivamente.

Cumprimentos
Tiago

No botão Novo:

Private Sub Comando47_Click()

 Me.nome.SetFocus
On Error GoTo Err_Comando47_Click


    DoCmd.GoToRecord , , acNewRec
    Me.talao_id = (DLast("Talao_ID", "Produtos_toxicos") + 1)
Exit_Comando47_Click:
    Exit Sub

Err_Comando47_Click:
    MsgBox Err.Description
    Resume Exit_Comando47_Click
  
End Sub

Cumprimentos.

Caso o tópico tenha atendido a teu propósito, não se esqueça de clicar no Joinha da mensagem que o auxiliou e no botão de resolvido.

cumprimentos.

Coloco o código num novo botão ou coloco juntamente com o código que me deu em cima?

Substitua apenas..

Cumprimentos.

Assim incrementa +1 ao campo talao_id, mas o resto dos campos nao os copia, ficam em branco.

Voce apenas falou da Numeração... Infelimente minha MicrosoftCristalBall não está funcionando hoje.. hehehe...

Bem este tema já diverge do assunto deste tópico.. Sigamos a máxima do Fórum.

Nova Dúvida, Novo Tópico.

Assim manteremos a integridade do Fórum que é por assunto.

Este tópico está exaurido... Clique em resolvido e no Joinha da mensagem que o auxiliou....

Para nova dúvida.. Novo Tópico.


Cumprimentos.

Obrigado

Dê um clique nesta figura ►[b style="mso-bidi-font-weight"][/b]localize ela no "rodapé" da  resposta que o auxiliou.