[Resolvido]Através de um select case, fazer BKP e excluir registro.

Prezados boa tarde para todos.

Tenho eu aqui, o seguinte código em uma select case quando selecionada:

Private Sub OSFechada_Click()
'rotina para exportar dados do formulário para uma tabela
Dim db1 As Database, db2 As Database, rs1 As DAO.Recordset, rs2 As DAO.Recordset, rs3 As DAO.Recordset

If MsgBox("Confirma Fechamento da Ordem de Serviço ?", vbYesNo + vbQuestion, "CONFIRMAR") = vbYes Then

Set db1 = CurrentDb

Set rs1 = db1.OpenRecordset("OsFechada", dbOpenTable)

With rs1
' os campos abaixo serão exportados para a tabelaOSFechada
.AddNew
![Idservico] = Me.Idservico
![Nome] = Me.Nome
![totalos] = Me.totalos
![Data] = Me.Data


.Update

End With


MsgBox "Fechamento confirmado !", vbOKOnly + vbInformation, "Concluído"

If Me.OSFechada.Enabled = True Then
Me.Idservico.Enabled = True
Me.Data.Enabled = True
Me.Cliente.Enabled = True
Me.Nome.Enabled = True
Me.Telefone.Visible = True
Me.Celular.Visible = True
Me.TipoVeiculo.Visible = True
Me.Modelo.Visible = True
Me.Cor.Visible = True
Me.Placa.Visible = True
Me.subos.Visible = True
Me.cboidservico.Visible = True
Me.Observacao.Visible = True
Me.totalos.Visible = True
Me.OSAberta.Visible = True
Me.OSFechada.Enabled = True
End If


Else ' caso não queira fechar a Ordem de Serviço, habilita novamente os campo
Me.Idservico.Enabled = True
Me.Data.Enabled = True
Me.Cliente.Enabled = True
Me.Nome.Enabled = True
Me.Telefone.Enabled = True
Me.Celular.Enabled = True
Me.TipoVeiculo.Enabled = True
Me.Modelo.Enabled = True
Me.Cor.Enabled = True
Me.Placa.Enabled = True
Me.subos.Enabled = True
Me.Observacao.Enabled = True
Me.Data.SetFocus
Me.totalos.Enabled = True
Me.OSAberta.Enabled = True
Me.OSFechada.Enabled = True
End If

End Sub

O que está me dando um nó na cabeça, existe a possibilidade via sql, de excluir esse registro depois de haver salvado os campos na Tablea OSFechada ?

Tentei alguns aqui, surtiram efeito,mas travam a reabertura do formulário OS.

Grato a todos.

Experimente o comando em vermelho. Faça um backup antes do teste.

Private Sub OSFechada_Click()
'rotina para exportar dados do formulário para uma tabela
Dim db1 As Database, db2 As Database, rs1 As DAO.Recordset, rs2 As DAO.Recordset, rs3 As DAO.Recordset

If MsgBox("Confirma Fechamento da Ordem de Serviço ?", vbYesNo + vbQuestion, "CONFIRMAR") = vbYes Then

Set db1 = CurrentDb

Set rs1 = db1.OpenRecordset("OsFechada", dbOpenTable)

With rs1
' os campos abaixo serão exportados para a tabelaOSFechada
.AddNew
![Idservico] = Me.Idservico
![Nome] = Me.Nome
![totalos] = Me.totalos
![Data] = Me.Data


.Update

End With

docmd.RunCommand acCmdDeleteRecord

'docmd.GoToRecord ,,acNewRec

MsgBox "Fechamento confirmado !", vbOKOnly + vbInformation, "Concluído"

...

Boa tarde Avelino.....

Uma coisa tão simples...e eu aqui complicando as coisas...

100 % funcional, era isso mesmo...e olhe que eu tinha pensado nisso, mas não sei o por que eu desisti de implementar essa linha.

Grato eu lhe sou !!

Abraços