[Resolvido]Apagar registos de uma tabela com base em duas condições

Olá Maltinha

Necessito de ajuda com o seguinte código:


Tenho aberto um formulário com base numa consulta ( pesquisa por CodMp ) e pretendo aparar todos os registos da tabela DetalheFichPre onde o CodFichPrep =0 (zero ) e CodMp = ao valor do campo CodMp desse formulário aberto.

Tentei mas sem  sem sucesso    

Private Sub LimpaAcertos_Click()

Dim Rst As DAO.Recordset

If MsgBox("Confirma a transferência do Acerto?" & vbCr & NomeManip, vbYesNo + vbDefaultButton2) = vbYes Then
      'Limpa acertos anteriores na tabela DetalheFichprep

CurrentDb.Execute "DELETE *DetalheFichPrep (WHERE DetalheFichPre.CodFichPrep=0 AND DetalheFichPrep.CodMp=CodMp & " ')", dbFailOnError

MsgBox "acertos anteriores apagados"
Me.Refresh

End If

End Sub

Boa tarde.
Crie uma consulta de exclusão já com os dados filtrados e execute.
Funcionará da mesma forma e você terá certeza do que realmente está excluindo.
Abraço

Olá boa noite,

Obrigado pela resposta mas, como não sei fazer isso, perfeita fazer deste modo, mesmo porque será a primeira parte de uma sequência de passos (que já está pronta)

Se precisar de ajuda para criar.
Posta o que precisa que a gente te ajuda.

Código:

...
CurrentDb.Execute "delete * from DetalheFichPrep where CodFichPrep = 0 and CodMp = " &Me.NomeDoCampoComValorPraSerUsado
...

Boas!

Fica então:

CurrentDb.Execute "delete * from DetalheFichPrep where CodFichPrep = 0 and CodMp = " & Me.CodMp

e fica melhor do que o que tinha feito entretanto:

Private Sub TransfereAcerto_Click()

Dim Rst As DAO.Recordset

If MsgBox("Confirma a transferência do Acerto?" & vbCr & NomeManip, vbYesNo + vbDefaultButton2) = vbYes Then

' desactiva mensagem da consulta exclusáo

DoCmd.SetWarnings (WarningsOff)


'Limpa acertos anteriores


DoCmd.OpenQuery "ExclusaoAcertos", , acViewNormal



'acrescenta na tabela DetalheFichprep
CurrentDb.Execute "INSERT INTO DetalheFichPrep (CodFichPrep,CodMp,Quantidade,Estado) Values('0','" & CodMp & "','" & Texto37 & "',#" & Format(Date, "mm/dd/yyyy") & "#)", dbFailOnError

End If




Set Rst = Nothing

Dim stDocName As String
Dim stLinkCriteria As String


MsgBox "Concluido", vbInformation, "Aviso"

DoCmd.Close
stDocName = "AcertosDataActual"

DoCmd.OpenForm stDocName, , , stLinkCriteria

DoCmd.GoToRecord , , acLast



End Sub


sendo a consulta (de eliminação )ExclusaoAcertos:

DELETE DetalheFichPrep.CodFichPrep, DetalheFichPrep.Reagente, DetalheFichPrep.CodMp, DetalheFichPrep.Quantidade, DetalheFichPrep.Desc, DetalheFichPrep.Estado, [Quantidade]*(1-[Desc]/100) AS Expr1
FROM DetalheFichPrep
WHERE (((DetalheFichPrep.CodFichPrep)=0) AND ((DetalheFichPrep.CodMp)=[Formulários]![xxx]![CodMp]));

O fórum agradece o retorno. Sucesso.

Boa tarde, Pedro

Faltou o "Resolvido"

Tens razão Alexandre

Esqueci me de marcar como resolvido
Mais uma vez, obrigado pela ajuda.

Abraços