[Resolvido]Duplicar registro em sua totalidade.

Prezados, bom dia.

Necessito de uma rotina para realmente duplicar todos os registros em uma tabela, mas a chave primaria tem que ser somada, não pode ser a mesma.

Explicando, tenho uma tabela com 52 campos.

O avaliado vem na empresa, faz o cadastro e segue a rotina normal de avaliação.

Porém, um belo dia ele volta para pegar uma segunda via do laudo dele. Dai a necessidade de se duplicar o registro com uma nova chave primária. Isso porque, tenho já montado um histórico e eu preciso fazer o acompanhamento do mesmo. Seria meio estranho ter que digitar tudo novamente.

Já revirei aqui mas não encontrei algo nem parecido com o que eu preciso, vi muito bloquear, mas duplicar na sua essência isso eu não vi mesmo.

Agradeço desse já.

Olá Silvio,
Me desculpe, mas não entendi a necessidade de duplicação do registro/chave.
Não bastaria ter um campo controlando quantas vezes o cidadão pegou uma via de seu laudo?
É somente para isso que quer duplicar o registro, para controle de emissão de vias?

Silvio

Dá para postar ai a tabela e o formulario envolvidos.

Aguardo

Bom dia Assis ou boa tarde....
Bom dia Roderick...

Ok...vamos por partes então.

Abra o frmcadastro, faça uma busca pelo CPF do avaliado em questão, pegue qualquer um deles.
Os dados irão aparecer;  na combo FIN, escolha VIA ADC LAUDO.

Ao escolher isso, a ideia é clicar no botão Via Adc. Laudo e duplicar todos esses dados que estão no frmcadastro e colocando uma nova chave primária.

Isso porque eu tenho um histórico de quantas vezes o cidadão já compareceu aqui.

Desde já meus agradecimentos e respeito a todos.

Silvio

Olá Silvio,
Pelo que vi, o formcadastro está todo baseado na TblCadastro, certo?
E você que duplicar os registros na mesma tabela?
Já pensou em criar outra tab e alimentá-la através de consulta-acréscimo no click do botão?
O que ainda não entendi é: se você tem o histórico, porque duplicar o registro?
Porque não gerar o histórico, por exemplo, através de um subform?

Roderick.....
isso se faz necessário, mesmo. tem que estar nessa tabela, com uma nova chave primaria.

E já tentou fazer isso por meio da consulta-acréscimo?

Silvio para repetir o registro em uma nova chave primária, sendo a mesma autonumeração, coloca no evento do botão:

DoCmd.RunCommand acCmdSelectRecord
DoCmd.RunCommand acCmdCopy
DoCmd.GoToRecord , "", acNewRec
DoCmd.RunCommand acCmdPasteAppend

Boa tarde a todos !

Perfeito Beto, e eu aqui tentando inventar a roda. O simples as vezes é mais prático.

Resolvido.

Amigos, o comando de copiar e colar começou a dar uma "zica". De uma hora para outra o mesmo parou de funcionar. Refiz uma outra pesquisa aqui no fórum e encontrei uma rotina que o Piloto fez para um colega nosso aqui, fiz então algumas adaptações para a minha necessidade.

Posto o mesmo aqui, para que outros colegas possam usufruir do mesmo.

Código:

Private Sub bt_val_Click()
'Declaração de variáveis
Dim RsNovo As DAO.Recordset
Dim RstAtual As DAO.Recordset
Dim StrSQL As String, StrSQLAtual As String
Dim natual As Long
Dim X As Integer

'Adiciono a variável a cadid(o registro atual)
natual = Me.CADID
'Carrego na variável a SQL da tabela
StrSQL = "SELECT * From tblcadastro"
'Carrego na variável a SQL da tabela filtrada pelo código contido na variável natual
StrSQLAtual = "SELECT * From tblcadastro WHERE cadid = " & natual & ""
'Carrego o Recordset com a StrSQL
Set RsNovo = CurrentDb.OpenRecordset(StrSQL)
'Carrego o Recordset com a StrSQLAtual
Set RstAtual = CurrentDb.OpenRecordset(StrSQLAtual)
'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) = RstAtual(X)
'movo para o próximo campo
Next X
'Atualizo o recordset
RsNovo.Update
'Emite mensagem de aviso de conclusão e abertura
 If MsgBox("Via Adc Laudo GERADA pelo sistema !" & vbCrLf & "Clique em SIM para abrir!", vbInformation + vbYesNo, "AVISO") = vbYes Then
    Me.FilterOn = False
      DoCmd.GoToRecord , , acLast
      Me.DTREGISTRO = Date
        Me.HRREG = Time
        Me.VALDT = Date
          Me.VALH = Time
          DoCmd.OpenForm "FrmBuscaPrVal"
            Me.Bt_salvar.Enabled = True
                               
            End If
             
End Sub

Silvio recebeu de Beto essa resposta para duplicar o registro em uma nova chave primária tipo autonumeração...

DoCmd.RunCommand acCmdSelectRecord
DoCmd.RunCommand acCmdCopy
DoCmd.GoToRecord , "", acNewRec
DoCmd.RunCommand acCmdPasteAppend

E Sílvio reportou que deu certo... Gostaria de saber como ficariam os comandos para uma chave tipo numero (sem ser autonumeração).