[Resolvido]Código ao fechar mesa Deleta registros inseridos na tabela.

Bom dia pessoal ninja do Ms Access!

Estou adaptando esse Bd do Gilberlandio, que está dando um pequeno erro ao fechar as mesas!
1º - Clico em fechar uma mesa aberta exemplo mesa: 25 fecho ela normal até ai tudo bem.
Clico em caixa abro o relatório está la a venda da mesa 25, mas quando fecho outra mesa exemplo
a mesa 22, quando abro o caixa e clico para ver as vendas ele excluiu a venda da mesa 25 e aparece só a ultima venda.
Necessito da ajuda dos senhores, se puderem ficarei agradecido, abraço a todos.

Private Sub BtnConcluir_Click()
If MsgBox("CONCLUIR LANÇAMENTO?", vbYesNo, "") = vbNo Then

Me.Undo
Else
Dim strSQL As String
strSQL = ("UPDATE TBL_DET_MESA SET SEL_PAG=true WHERE [COD_MESA_DET] = Forms!Frm_Fechar_Mesa!TxtCOD_MESA;")
DoCmd.RunSQL strSQL
Me.Refresh
End If
DoCmd.Close
End Sub

Ele está usando esse código que fecha a mesa acrescenta a venda mais exclui a anterior.

Creio que esse erro é porque no Frm_Pgto botão finalizar tem código de impressão automática.
Entre no evento do botão finalizar procure a linha a baixo e exclua. Depois faça os teste.

DoCmd.OpenReport "Cupom_Pgto", acViewNormal, "", "", acNormal


Sucesso.

Grande Gilberlandio.
Abraço amigo, acertou na mosca, tópico resolvido e parabéns pelo bd.

Valeu pelo retorno.

Sucesso.