[Resolvido]Duplicar registro subformulário atraves "Sim/Não"

Boa tarde pessoal

Tenho dois campos a serem duplicados a partir "Sim/Não" ou seja.

Quando marcado "Sim" duplicar os campos (NomeExame,Validade) no subformulário.

Att

Fabiano

Galera!

Montei o codigo e deu certo.

Fica a dica ai
______________________________________________________

Dim dbs As DAO.Database, Rst As DAO.Recordset
Dim F As Form
Set dbs = CurrentDb
Set Rst = Me.RecordsetClone

On Error GoTo Err_btnDuplicate_Click

Me.Tag = Me![IDExames]


With Rst
.AddNew
!IDExames = Me!IDExames
!NomeExame = Me!NomeExame
!Validade = Me!Validade
.Update
.Move 0, .LastModified
End With
Me.Bookmark = Rst.Bookmark

DoCmd.SetWarnings False
DoCmd.OpenQuery
DoCmd.SetWarnings True

Me![frmFuncionarioExameSub].Requery

Exit_btnduplicate_Click:
Exit Sub

Err_btnDuplicate_Click:
MsgBox Error$
Resume Exit_btnduplicate_Click: