MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

Obrigado

Administração do MaximoAccess

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access


    [Resolvido]Duplicar registro em sua totalidade.

    Silvio
    Silvio
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4440
    Registrado : 20/04/2011

    [Resolvido]Duplicar registro em sua totalidade. Empty [Resolvido]Duplicar registro em sua totalidade.

    Mensagem  Silvio em 25/4/2014, 09:29

    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á.


    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    www.maximoaccess.com/t860-resolucao-de-topicos

    "Quase tudo é possível quando se tem determinação e força de vontade. Não desista tão rápido."
    rdrck
    rdrck
    VIP
    VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1007
    Registrado : 11/03/2014

    [Resolvido]Duplicar registro em sua totalidade. Empty Re: [Resolvido]Duplicar registro em sua totalidade.

    Mensagem  rdrck em 25/4/2014, 09:41

    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?


    .................................................................................
    Meu Programa / OS:
    Access 2010 - Windows 10.
    Assis
    Assis
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 3911
    Registrado : 06/11/2009

    [Resolvido]Duplicar registro em sua totalidade. Empty Re: [Resolvido]Duplicar registro em sua totalidade.

    Mensagem  Assis em 25/4/2014, 10:16

    Silvio

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

    Aguardo


    .................................................................................
    *** Só sei que nada sei ***
    Silvio
    Silvio
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4440
    Registrado : 20/04/2011

    [Resolvido]Duplicar registro em sua totalidade. Empty Re: [Resolvido]Duplicar registro em sua totalidade.

    Mensagem  Silvio em 25/4/2014, 10:55

    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


    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    www.maximoaccess.com/t860-resolucao-de-topicos

    "Quase tudo é possível quando se tem determinação e força de vontade. Não desista tão rápido."
    rdrck
    rdrck
    VIP
    VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1007
    Registrado : 11/03/2014

    [Resolvido]Duplicar registro em sua totalidade. Empty Re: [Resolvido]Duplicar registro em sua totalidade.

    Mensagem  rdrck em 25/4/2014, 11:14

    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?


    .................................................................................
    Meu Programa / OS:
    Access 2010 - Windows 10.
    Silvio
    Silvio
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4440
    Registrado : 20/04/2011

    [Resolvido]Duplicar registro em sua totalidade. Empty Re: [Resolvido]Duplicar registro em sua totalidade.

    Mensagem  Silvio em 25/4/2014, 12:22

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


    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    www.maximoaccess.com/t860-resolucao-de-topicos

    "Quase tudo é possível quando se tem determinação e força de vontade. Não desista tão rápido."
    rdrck
    rdrck
    VIP
    VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1007
    Registrado : 11/03/2014

    [Resolvido]Duplicar registro em sua totalidade. Empty Re: [Resolvido]Duplicar registro em sua totalidade.

    Mensagem  rdrck em 25/4/2014, 12:25

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


    .................................................................................
    Meu Programa / OS:
    Access 2010 - Windows 10.
    avatar
    Convidado
    Convidado

    [Resolvido]Duplicar registro em sua totalidade. Empty Re: [Resolvido]Duplicar registro em sua totalidade.

    Mensagem  Convidado em 25/4/2014, 12:35

    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
    Silvio
    Silvio
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4440
    Registrado : 20/04/2011

    [Resolvido]Duplicar registro em sua totalidade. Empty Re: [Resolvido]Duplicar registro em sua totalidade.

    Mensagem  Silvio em 25/4/2014, 15:52

    Boa tarde a todos !

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

    Resolvido.


    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    www.maximoaccess.com/t860-resolucao-de-topicos

    "Quase tudo é possível quando se tem determinação e força de vontade. Não desista tão rápido."
    Silvio
    Silvio
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4440
    Registrado : 20/04/2011

    [Resolvido]Duplicar registro em sua totalidade. Empty Re: [Resolvido]Duplicar registro em sua totalidade.

    Mensagem  Silvio em 2/5/2014, 18:06

    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


    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    www.maximoaccess.com/t860-resolucao-de-topicos

    "Quase tudo é possível quando se tem determinação e força de vontade. Não desista tão rápido."
    avatar
    Roberto Duailibe
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 6
    Registrado : 20/03/2018

    [Resolvido]Duplicar registro em sua totalidade. Empty Aproveitando esse tópico.... tenho a seguinte pergunta sobre duplicação de registro

    Mensagem  Roberto Duailibe em 24/7/2019, 09:33

    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).

    Conteúdo patrocinado

    [Resolvido]Duplicar registro em sua totalidade. Empty Re: [Resolvido]Duplicar registro em sua totalidade.

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 17/9/2019, 12:15