[Resolvido]Botão Duplicar no Form em um mesma tabela em uma nova linha

Olá amigos, estou com uma dúvida, pois não entendo de VBA.

Criei esse formulário no meu trabalho para inserir informações de clipagem de notícia, afim de me gerar um relatório, já está funcionando legal.
`
Preciso de um botão "Duplicar Registro", para que seja salvo na mesma BD, afim de eu alterar e mudar apenas o algumas informações...


olhem só como o form é:



Segue o arquivo pra quem preferir abrir o projeto... access 2010

http://1drv.ms/1RWlMhH

Boa noite

Converta para 2007 e poste aqui .

Olha não tenho como converter de 2010 para 2007... se puder me ajudar... posso postar o código vba aqui... mas muita coisa está em macro também e não apenas em VB...

Código:

Option Compare Database


Private Sub Cmd_Alterar_Click()
    Me.Txt_Cliente.Enabled = True
    Me.Txt_Data.Enabled = True
    Me.Txt_Data.Enabled = True
    Me.Txt_Noticia.Enabled = True
    Me.Txt_Publicacao.Enabled = True
    Me.Txt_Veiculo.Enabled = True
    Me.Txt_Editoria.Enabled = True
    Me.Cmd_Salvar.Enabled = True
    Me.Txt_Classificacao.Enabled = True
    Me.Txt_Tipo.Enabled = True
    Me.Txt_Tag.Enabled = True
    Me.Box_Replica.Enabled = True
    
End Sub

Private Sub Cmd_Anterior_Click()
    On Error GoTo Err_cmd_Anterior_Record_Click
    Me.AllowAdditions = False 'não permite adicionar e não mostra novo
    DoCmd.GoToRecord , , acPrevious
Exit_cmd_Anterior_Record_Click:
    Exit Sub
    
Err_cmd_Anterior_Record_Click:
    MsgBox "Este é o primeiro registro", vbInformation + vbOKOnly, "IMPORTANTE"
    
    Resume Exit_cmd_Anterior_Record_Click
End Sub


Private Sub Cmd_Duplicar_Click()
Forms!Frm_ALMT!Data = DLast("Txt_Data", "Tab_ALMT")

End Sub

Private Sub Cmd_Novo_Click()
    DoCmd.GoToRecord acForm, Me.Name, acNewRec
    Me.Txt_Cliente.Enabled = True
    Me.Txt_Data.Enabled = True
    Me.Txt_Data.Enabled = True
    Me.Txt_Noticia.Enabled = True
    Me.Txt_Publicacao.Enabled = True
    Me.Txt_Veiculo.Enabled = True
    Me.Txt_Editoria.Enabled = True
    Me.Cmd_Alterar.Enabled = False
    Me.Cmd_Anterior.Enabled = False
    Me.Cmd_Excluir.Enabled = False
    Me.Cmd_Primeiro.Enabled = False
    Me.Cmd_Proximo.Enabled = False
    Me.Cmd_Ultimo.Enabled = False
    Me.Cmd_Novo.Enabled = False
    Me.Cmd_Salvar.Enabled = True
    Me.Txt_Classificacao.Enabled = True
    Me.Txt_Tipo.Enabled = True
    Me.Txt_Tag.Enabled = True
    Me.Box_Replica.Enabled = True
        Me.Txt_Cliente.SetFocus
End Sub


Private Sub Cmd_Proximo_Click()

On Error GoTo Err_cmd_Next_Record_Click
Me.AllowAdditions = False 'não permite adicionar e não mostra novo
DoCmd.GoToRecord , , acNext
Exit_cmd_Next_Record_Click:
Exit Sub

Err_cmd_Next_Record_Click:
MsgBox "Não existem mais registros", vbInformation + vbOKOnly, "IMPORTANTE"

Resume Exit_cmd_Next_Record_Click

End Sub

Private Sub Cmd_Salvar_Click()
    Me.Txt_Cliente.Enabled = False
    Me.Txt_Data.Enabled = False
    Me.Txt_Data.Enabled = False
    Me.Txt_Noticia.Enabled = False
    Me.Txt_Publicacao.Enabled = False
    Me.Txt_Veiculo.Enabled = False
    Me.Txt_Editoria.Enabled = False
    Me.Txt_Classificacao.Enabled = False
    Me.Txt_Tipo.Enabled = False
    Me.Txt_Tag.Enabled = False
    Me.Box_Replica.Enabled = False
    
    Me.Cmd_Alterar.Enabled = True
    Me.Cmd_Anterior.Enabled = True
    Me.Cmd_Excluir.Enabled = True
    Me.Cmd_Primeiro.Enabled = True
    Me.Cmd_Proximo.Enabled = True
    Me.Cmd_Ultimo.Enabled = True
    Me.Cmd_Novo.Enabled = True
    Me.Cmd_Salvar.Enabled = False
    
End Sub


Private Sub Comando26_Click()
On Error GoTo Err_Comando26_Click

Select Case Me.Cmb34

    Case "TODOS"
    DoCmd.OpenReport "Relatorio_ALMT_1", acViewPreview
    DoCmd.Close acForm, "Frm_ALMT", acSaveYes
    
    Case "Baiano Filho"
    DoCmd.OpenReport "Baiano_Filho", acViewPreview
    DoCmd.Close acForm, "Frm_ALMT", acSaveYes
    
    Case "Cel. Taborelli"
    DoCmd.OpenReport "Cel_Taborelli", acViewPreview
    DoCmd.Close acForm, "Frm_ALMT", acSaveYes
    
    Case "Dilmar Dal Bosco"
    DoCmd.OpenReport "Dilmar_Dal_Bosco", acViewPreview
    DoCmd.Close acForm, "Frm_ALMT", acSaveYes
    
    Case "Eduardo Botelho"
    DoCmd.OpenReport "Eduardo_Botelho", acViewPreview
    DoCmd.Close acForm, "Frm_ALMT", acSaveYes
    
    Case "Emanuel Pinheiro"
    DoCmd.OpenReport "Emanuel_Pinheiro", acViewPreview
    DoCmd.Close acForm, "Frm_ALMT", acSaveYes
    
    Case "Gilmar Fabris"
    DoCmd.OpenReport "Gilmar_Fabris", acViewPreview
    DoCmd.Close acForm, "Frm_ALMT", acSaveYes
    
    Case "Guilherme Maluf"
    DoCmd.OpenReport "Guilherme_Maluf", acViewPreview
    DoCmd.Close acForm, "Frm_ALMT", acSaveYes
    
    Case "Janaína Riva"
    DoCmd.OpenReport "Janaina_Riva", acViewPreview
    DoCmd.Close acForm, "Frm_ALMT", acSaveYes
    
    Case "Dr. Leonardo"
    DoCmd.OpenReport "Leonardo", acViewPreview
    DoCmd.Close acForm, "Frm_ALMT", acSaveYes
    
    Case "Mauro Savi"
    DoCmd.OpenReport "Mauro_Savi", acViewPreview
    DoCmd.Close acForm, "Frm_ALMT", acSaveYes
    
    Case "Max Russi"
    DoCmd.OpenReport "Max_Russi", acViewPreview
    DoCmd.Close acForm, "Frm_ALMT", acSaveYes
    
    Case "Nininho"
    DoCmd.OpenReport "Nininho", acViewPreview
    DoCmd.Close acForm, "Frm_ALMT", acSaveYes
    
    Case "Oscar Bezerra"
    DoCmd.OpenReport "Oscar_Bezerra", acViewPreview
    DoCmd.Close acForm, "Frm_ALMT", acSaveYes
    
    Case "Pedro Satélite"
    DoCmd.OpenReport "Pedro_Satelite", acViewPreview
    DoCmd.Close acForm, "Frm_ALMT", acSaveYes
    
    Case "Romoaldo Júnior"
    DoCmd.OpenReport "Romoaldo_Junior", acViewPreview
    DoCmd.Close acForm, "Frm_ALMT", acSaveYes
    
    Case "Saturnino Masson"
    DoCmd.OpenReport "Saturnino_Masson", acViewPreview
    DoCmd.Close acForm, "Frm_ALMT", acSaveYes
    
    Case "Sebastião Rezende"
    DoCmd.OpenReport "Sebastiao_Rezende", acViewPreview
    DoCmd.Close acForm, "Frm_ALMT", acSaveYes
    
    Case "Silvano Amaral"
    DoCmd.OpenReport "Silvano_Amaral", acViewPreview
    DoCmd.Close acForm, "Frm_ALMT", acSaveYes
    
    Case "Wagner Ramos"
    DoCmd.OpenReport "Wagner_Ramos", acViewPreview
    DoCmd.Close acForm, "Frm_ALMT", acSaveYes
    
    Case "Wancley Carvalho"
    DoCmd.OpenReport "Wancley_Carvalho", acViewPreview
    DoCmd.Close acForm, "Frm_ALMT", acSaveYes
    
    Case "Wilson Santos"
    DoCmd.OpenReport "Wilson_Santos", acViewPreview
    DoCmd.Close acForm, "Frm_ALMT", acSaveYes
    
    Case "Zé Carlos do Pátio"
    DoCmd.OpenReport "Ze_Carlos_do_Patio", acViewPreview
    DoCmd.Close acForm, "Frm_ALMT", acSaveYes
    
    Case "Zé Domingos Fraga"
    DoCmd.OpenReport "Ze_Domingos", acViewPreview
    DoCmd.Close acForm, "Frm_ALMT", acSaveYes
    
    Case "Zeca Viana"
    DoCmd.OpenReport "Zeca_Viana", acViewPreview
    DoCmd.Close acForm, "Frm_ALMT", acSaveYes

Case Else
    MsgBox "Relatório não vinculado.", vbExclamation, "Atenção!"
End Select

Exit_Comando26_Click:
    Exit Sub

Err_Comando26_Click:
    MsgBox Err.Description
    Resume Exit_Comando26_Click
End Sub

Private Sub Form_Close()
   'SelectObject usado para dar o foco ao Painel de Navegação
   'Ao dar foco ao painel ele é automaticamente exibido
   DoCmd.SelectObject acForm, "Frm_ALMT", True
End Sub

Private Sub Form_Load()
   DoCmd.ShowToolbar "Ribbon", acToolbarYes
End Sub


Private Sub Txt_Data_Click()
    Txt_Data = Format(Now(), "dd-mm-yyyy") ' abre formulario com o campo data actual nesse formato
End Sub

Private Sub Txt_Data_GotFocus()
Txt_Data = Format(Now(), "dd-mm-yyyy")
End Sub

Private Sub Txt_Publicacao_Click()
    Txt_Publicacao = Format(Now(), "dd-mm-yyyy") ' abre formulario com o campo data actual nesse formato
End Sub

Private Sub Txt_Publicacao_GotFocus()
 Txt_Publicacao = Format(Now(), "dd-mm-yyyy") ' abre formulario com o campo data actual nesse formato
End Sub


Bem... esse e também segue uma cópia do BD que uso em rede... se puderem me ajudar... agradecido!

deyvson

No canto superior esquerdo no botão grande do access tem lá essa opção para converter

O meu é o 2007 e posso converter para versões + baixas.

O 2010 também tem, se não for igual é por aí ....

Boa noite

Crie um novo botão e copie o código abaixo e cole ao fazer click

'----------------------------------
Dim BancoDeDados As Database
Dim TabProdutos As Recordset
Dim Confirma

Confirma = MsgBox("Criar Cópia do Registo ? ", vbYesNo + vbQuestion, "Aviso")
If Confirma = vbYes Then
   'Inserindo
   Set BancoDeDados = CurrentDb
   Set TabProdutos = BancoDeDados.OpenRecordset("Tab_ALMT")
       With TabProdutos
           .AddNew
           
           !Data = Me.Txt_Data
           ![Titulo da noticia] = Me.Txt_Noticia
           !Classificacao = Me.Txt_Classificacao.Column(0)
           !Tag = Me.Txt_Tag
           !Cliente = Me.Txt_Cliente
           !Tipo = Me.Txt_Tipo
           !Veiculo = Me.Txt_Veiculo
           !Publicacao = Me.Txt_Publicacao
           !Editoria = Me.Txt_Editoria
           .Update
       End With
   MsgBox "Registo Copiado com Sucesso ... ", vbInformation, "Aviso"

Else
MsgBox "Cancelar Cópia do Registo ?", vbCritical, "Aviso"

Exit Sub
End If

'---------------------------------

Aguardo

Funcionou valendo!!!
Obrigado Assis... agora aprendi como duplicar registros e não ter que digitar valores iguais várias vezes hehehe

Quantas vezes pode copiar uma noticia ?

É que sempre que clikar ele copia, e podia limitar a um numero máximo

Aguardo

Quantas vezes for necessário, Assis. Porque dependendo de quantos clientes se referir o cadastro de notícia, tenho que registrar um novo registro para catalogar que o "tal" cliente, foi citado e armazenar a informação que posteriormente vai pros meus relatórios, de cliente em cliente!

Mas Tenho um outro problema, tenho 25 relatórios para gerar. imprimir em pdf e enviar via email pelo outlook para um grupo de emails... Tem algum exemplo de como posso fazer isso com esse meu projeto? Isso me daria 30 minutos a menos no meu trabalho... criei esse projeto do nada para facilitar minha vida pois fazia editava o layout a mão... tudo...

Tem exemplos  aqui no forum desse género.
Faça  uma busca que  encontra.
Bom trabalho

http://dl.dropbox.com/u/771097/EmailVariosDestinatarios.txt

Boa tarde Assis...

Olha ta funcionando certinho o botão Duplicar, porém, para facilitar mais ainda meu trabalho queria que quando desse essa mensagem "Registro copiado com sucesso", ele já fosse para o registro duplicado na tela... pq as vezes não quero duplicar uma registro que está na última linha da minha tabela Tab_ALMT e sim, posso querer duplicar o primeiro, o quinto e assim aleatoriamente... entendeu? Olha ai a imagem, se ele duplicasse e ja fosse pra o registro novo que foi duplicado seria legal... como implementar esse código?

[img][/img]

Vou estudar isso e depois retorno

show!

Na tabela criei um campo chamado " idReg" tipo numeração automatica.

O comando repetir também foi alterado.

Teste no meu exemplo e copie para o seu

http://ge.tt/1kGK3dQ2/v/0?c

Aguardo

Certíssimo...

Foi bom que eu li mais sobre a função Requery... vlw Assis!

Não entendo muito bem de Access, esse é meu primeiro projeto... você me daria mais alguma sugestão de implementação? Já que tem um modelo ai?