[Resolvido]Duplicar campos no subformulario

Olá Pessoal,

Novamente preciso de vocês !

Tenho um formulario simples que contem um SUBFORMULARIO, e preciso criar um botão dentro do SUBFORMULARIO para duplicar os dados para não precisar digitar novamente, como posso fazer isso?
Eu criei um botão no formulário mas não funcionou.

http://www.speedyshare.com/files/23955219/DuplicarSubform.zip

muito obrigada

Stella Maris

Olá Stella, olhe eu aqui de novo;

Insira um novo botão no seu formulário fFiltroCondoBOLETO, pode ficar mesmo ao lado do seu botão Salvar.

Cole isto lá dentro e teste;

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

JPaulo,

Genial. Era exatamente isso que precisava, funcionando perfeitamente.

Mais uma vez muito, muito obrigada.

Vocês são Perfeitos !!!!

um abraço
Stella

Valew pelo retorno, o forum agradece.