[Resolvido]evitar msg: ".. grande quantidade de dados pra área de transferência.. salvar os dados?"

Sempre um bom dia!! pra todos..
Estou aqui, sem saber como evitar uma mensagem que o access retorna..
após eu copiar um registro..
Linhas gerais:
Tenho um módulo de "contas a Receber".. tenho um botão com a instrução
de copiar o lançamento..(recebimento parcelado).. está fazendo certo.. mas..
quando saio do módulo.. vem a mensagem de "grande quantidade de dados na
área de transferência" e perguntando se quero salvar. Gostaria que fosse
descartado.. e não aparecesse a mensagem..
Preciso, mais uma vez.. da ajuda de vcs...
obrigada..
gracy

Olá Gracy. Sempre que a dúvida envolver módulos ou códigos, seria de uma maior ajuda no esclarecimento postar os códigos envolvidos para a gente ter uma ideia do que pode estar causando o efeito e como contorná-lo. Mas, você já tentou usar o DoCmd.SetWarnings False antes de salvar e DoCmd.SetWarnings True depois de salvar?

Olá Críquio!!
Desculpe responder somente agora, mas.. me enrolei com outras coisas..
então.. enviando o código do botão:

Private Sub btn_Duplicar_Click()
On Error GoTo Err_btn_Duplicar_Click

IDCR.Enabled = True
dataCR.Enabled = True
docCR.Enabled = True
combina17.Enabled = True
Dentist.Enabled = True
Ortod.Enabled = True
nuPlano.Enabled = True
vTratame.Enabled = True
vEntrad.Enabled = True
numeparce.Enabled = True
SubGrupo.Enabled = True
HistCR.Enabled = True
Valor.Enabled = True
formaRPgt.Enabled = True
PagoCR.Enabled = True
AtivoR.Enabled = True

DoCmd.RunCommand acCmdSelectRecord
DoCmd.RunCommand acCmdCopy
DoCmd.RunCommand acCmdRecordsGoToNew
DoCmd.RunCommand acCmdSelectRecord
DoCmd.RunCommand acCmdPaste

Exit_btn_Duplicar_Click:
operad = CaixaUsuarioAtual
dtopera = Now()

Exit Sub

Err_btn_Duplicar_Click:
MsgBox Err.Description
Resume Exit_btn_Duplicar_Click

End Sub

Agradeço antecipadamente a ajuda...
braçaço..
gracy

Private Sub btn_Duplicar_Click()
On Error GoTo Err_btn_Duplicar_Click

IDCR.Enabled = True
dataCR.Enabled = True
docCR.Enabled = True
combina17.Enabled = True
Dentist.Enabled = True
Ortod.Enabled = True
nuPlano.Enabled = True
vTratame.Enabled = True
vEntrad.Enabled = True
numeparce.Enabled = True
SubGrupo.Enabled = True
HistCR.Enabled = True
Valor.Enabled = True
formaRPgt.Enabled = True
PagoCR.Enabled = True
AtivoR.Enabled = True
DoCmd.SetWarnings=False
DoCmd.RunCommand acCmdSelectRecord
DoCmd.RunCommand acCmdCopy
DoCmd.RunCommand acCmdRecordsGoToNew
DoCmd.RunCommand acCmdSelectRecord
DoCmd.RunCommand acCmdPaste
DoCmd.SetWarnings=True
Exit_btn_Duplicar_Click:
operad = CaixaUsuarioAtual
dtopera = Now()

Exit Sub

Err_btn_Duplicar_Click:
MsgBox Err.Description
Resume Exit_btn_Duplicar_Click

End Sub

Retificado

Boa tarde!!.. Vieira..
Deu o seguinte erro:

erro de compilação: o argumento não é opcional
em DoCmd.SetWarnings.False

desculpe, Vieira..
o erro estava acontecendo porque coloquei "um ponto" antes do True e do False..
mas... retirei o "ponto".. não deu erro de compilação... mas.. não resolveu o
problema da mensagem..
mesmo assim... brigadin...
braçaço..
gracy

Desculpe que o erro foi meu e não seu:

DoCmd.SetWarnings=False
DoCmd.SetWarnings=True

Desculpe a minha distração

Vieira.. colocando o "sinal =".. também deu erro de compilação.. então..
mantive o DoCmd.SetWarnings False antes de salvar e coloquei o
DoCmd.SetWarnings True "depois" de Salvar.. e deu certo!!!
brigadaço pra vc e pro Criquio!!!..
braçaço..
gracy