Como excluir um registro que está em um histórico......

Prezados colegas da selva...bom dia a todos.

Estou com uma duvida. Tenho um subformulário onde eu dou baixa em um estoque e automaticamente gera um histórico da peça em questão.

Porém, ao excluir a mesma( dentro do subformulário), quer seja por engano do operador ou erro, a mesma permanece no histórico. Ou seja, não está excluindo a mesma quando dou o comando de exclusão.

Segue o código


Private Sub GravaHistorico()

Dim rs As DAO.Recordset
Dim rs2 As DAO.Recordset

Set rs = CurrentDb.OpenRecordset("tblhistorico")

With rs
' os campos abaixo do formulário tem que ser iguais aos que estão na tabela para realizar a exportação
.AddNew
' campos que estão na tabela = campos do fomulario
![IDOservico] = Me.IDOservico
![DataOS] = Forms!OrdServico!DataOS
![Idcliente] = Forms!OrdServico!Idcliente
![Nome] = Forms!OrdServico!Nome
![Modelo] = Forms!OrdServico!Modelo
![Fabricante] = Forms!OrdServico!Fabricante
![Ano] = Forms!OrdServico!AnoFabricacao
![Cor] = Forms!OrdServico!Cor
![placa] = Forms!OrdServico!placa
![km] = Forms!OrdServico!KmVeiculo
.Update

rs.Close
Set rs = Nothing

Set rs2 = CurrentDb.OpenRecordset("tblsubhistorico")
With rs2
.AddNew
'campos que estão no subformulário
![Idsubpeca] = Forms![OrdServico]![SFsaidapeca]!Idsubpeca
![CodigoPeca] = Forms![OrdServico]![SFsaidapeca]!CodigoPeca
![Descricao] = Forms![OrdServico]![SFsaidapeca]!Descricao
![QtdSaida] = Forms![OrdServico]![SFsaidapeca]!QtdSaida
![IDOservico] = Forms![OrdServico]![SFsaidapeca]!IDOservico
.Update

rs2.Close
Set rs2 = Nothing

End With
End With
End Sub

Sei que falta algo...mas sincera e honestamente, não sei por onde começar.

Conto com a ajuda dos colegas.

Abraços

Ola Silvio;

Pelo que você diz, não está excluíndo.

Pois eu vejo dois .AddNew e nenhum Delete

Além disso, a referencia ao sub não está completa, falta o .Form

![Idsubpeca] = Forms![OrdServico]![SFsaidapeca].Form!Idsubpeca
![CodigoPeca] = Forms![OrdServico]![SFsaidapeca].Form!CodigoPeca
![Descricao] = Forms![OrdServico]![SFsaidapeca].Form!Descricao
![QtdSaida] = Forms![OrdServico]![SFsaidapeca].Form!QtdSaida
![IDOservico] = Forms![OrdServico]![SFsaidapeca].Form!IDOservico

Hummmm.....

Correto....corrigido a falta do .Form !

Mas como eu incluo um delete meu caro ??

Abraços.

Intão;

Em vez do .AddNew será .Edit, e em vez do .Update será .Delete, agora depende de que tabela irá excluír.

Paulo, boa Tarde....


Vai ser excluído um item do subformulário. Se o operador errar, ele exclui e não vai para o histórico da mesma.

Ainda estou com duvidas;

Meu amigo, diga que tipo de comando de exclusão está a usar.

Na correria para a entrega do projeto para as aprovações, no sub formulário,coloquei uma macro de exclusão.  Não gerei código algum Paulo.

Então suponho que tenha um botão com uma macro associada para deletar o registro, certo ?

E essa macro ainda pode ser alterada para código ?

Neste meu exemplo, o usuário excluiu e pode voltar a recuperar o registro.

http://maximoaccess.forumeiros.com/t12925-cadastro-de-dados-de-detentos-com-4-fotos

JPaulo, boa tarde meu amigo.....

Se puder, se tiver tempo.....um simples direcionamento.  Estou com o arquivo que você me passou na mensagem anterior, duvida...

Private Sub Command185_Click()
On Error GoTo 1

Dim apaga As Integer
Dim alerta As String
Dim Busca As String
Busca = Nz(Me.Nº_Cadastro.Value, 0)
apaga = MsgBox("Deseja apagar o registo:" _
& vbCr & " " & Busca & " ?", vbOKCancel + vbCritical, "Atenção!")

  Select Case apaga
       Case vbOK
     DoCmd.SetWarnings False
CurrentDb.Execute "insert into RegistosApagados select * from Cadastro where [Nº Cadastro]='" & Me.Nº_Cadastro & "'"
CurrentDb.Execute "DELETE * FROM Cadastro WHERE [Nº Cadastro]='" & Me.Nº_Cadastro & "'"

          DoCmd.SetWarnings True
  MsgBox "Registo apagado com sucesso...", vbInformation
      Me.Requery
          Exit Sub
       Case vbCancel
           Exit Sub
   End Select

Exit_1:
   DoCmd.Hourglass False
   DoCmd.Echo True
   Exit Sub

1:
   DoCmd.Hourglass False
   DoCmd.Echo True
   Msg = "Erro # " & Str(err.Number) & " gerado na " & err.Source _
       & vbNewLine & vbNewLine & "Descrição: " & err.Description _
       & vbNewLine & vbNewLine & "Por favor contate o Administrador do Sistema."
   MsgBox Msg, vbMsgBoxHelpButton + vbCritical, "Erro", err.HelpFile, err.HelpContext
   Resume Exit_1
End Sub


Fica a minha pergunta, nada lógica...onde colocar meu código para excluir na tblsubhistorico...
Seria nessa linha ??

CurrentDb.Execute "DELETE * FROM tblsubhistorico WHERE [idsubhistorico]='" & Me.idsubhistorico & "'"

Apenas lembrando, que é um subformulário. Paulo, caso eu não tenho sido explicito em minha duvida segue o projeto. É entrar na ordem de serviço e mandar ver o cadastro, insira qualquer peça....ela vai para o histórico, mas ao excluir a mesma...ela não sai do histórico.

Se der tempo....me ajuda !

Abraços.