[Resolvido]Problema em duplicar registro

Boa tarde pessoal!

Estou tendo um problema no meu formulário, onde eu criei um botão de duplicar registro.
Meu formulário possui dentro um subformulário onde armazena as informações de um grupo de opções e o botão foi criado no formulário principal. Acontece que quando eu clico no botão para duplicar ele duplica apenas os dados do formulário principal mantendo os dados do subformulário no mesmo registro.
Dessa forma eu acabo perdendo os dados do primeiro registro referente ao grupo de opções...
Alguém pode me auxiliar neste processo?

Abaixo o link do MDB para melhor visualização do meu caso.

Desde já agradeço!
Att,
David

Amigo

Veja se é isto que quer?

http://dl.dropbox.com/u/8157744/Di%C3%A1rio%20de%20bordo.rar

Olá Vieira

Eu olhei a modificação que você fez, mas ele ainda não está gravando o registro certo...
Por exemplo: Eu apaguei todos os dados da tabela, fui no formulario e preenchi algumas informações e selecionei uma opção no grupo que está no subform.
Logo em seguida apertei o botao que irá duplicar, ai ok ele duplicou porem eu fui olhar na tabela do subform e la os cod de cadastro estão todos com o mesmo, 1 no caso...

Ai quando vou olhar no formulário o registro 2 não está preenchido...

Vieira,

Estava lendo um post aqui do forum e me pareceu bastante semelhante ao meu problema...

O post foi respondido pelo JPaulo e ele postou o seguinte codigo...talvez ajude a dar uma clareada. Eu estou tentado adaptar ao meu formulário e se conseguir algo eu aviso.


Private Sub SeuBotão_Click()
Dim cn As Database
Dim strSql As String
Dim x As String

x = DMax("[BOLETOCOD]", "BOLETOBANCARIO")

strSql = "INSERT INTO BOLETOBANCARIO (CodApto,Bol_MesRef,Bol_AnoRef,BolValorCobrado,Bol_Dt_Vencimento,CODSUBCONTA,Bol_Historico,[R/D],BoletoSIM,situacao) "
strSql = strSql & "SELECT CodApto,Bol_MesRef,Bol_AnoRef,BolValorCobrado,Bol_Dt_Vencimento,CODSUBCONTA,Bol_Historico,[R/D],BoletoSIM,situacao "
strSql = strSql & "FROM BOLETOBANCARIO "
strSql = strSql & "WHERE BOLETOCOD = " & x & ""
Set cn = CurrentDb
cn.Execute strSql

Me.BOLETOBANCARIOsubform.Requery
End Sub


O post é http://maximoaccess.forumeiros.com/formularios-f11/duplicar-campos-no-subformulario-t754.htm

Amigo davidapcon

O exemplo do Mestre JPaulo adapta-se perfeitamente ao que pediu. Bom trabalho.

Duplicar Registro


dÊ uma olhada pra ver se serve!

Veja se é isto que quer por favor;

http://dl.dropbox.com/u/771097/Di%C3%A1rio%20de%20bordo_OLD.rar

Quase parecido Glicerio, valew.

Existem mil maneiras de fazer nestum.

é verdade mestre!

Bom dia Mestre JPaulo

É exatamente isto que eu precisava, está funcionando perfeitamente.

Vocês aqui deste forum são realmente PRO!!!

Obrigado a todos pela grande ajuda.

Valew pelo retorno, o fórum agradece.

Parabens tambem a todos os intervenientes neste tópico.