[Resolvido]excluir com condição de campo data e hora

Olá a todos do fórum.
Estou tentando excluir dados de uma tabela baseado em condições de data e hora executando o código abaixo:

Código:

CurrentDb.Execute "delete FROM TBSAIDAPRODUTO WHERE CPCODIGO=""" & Me.cpCodProduto & """ and CPDTSAIDA=#" & Me.cpdata & "# and CPHRSAIDA = #" & Me.cphora & "#;"


onde:
CPCODIGO = tipo número
CPDTSAIDA= tipo data/hora
CPHRSAIDA= tipo data/hora

Não está dando erro mais não está funcionando.

Alguém enxerga o problema?

Obrigado desde já.

"delete " Oque? "FROM

Obrigado aos colegas.

Não funcionou mestre Avelino.

Chamei o código como função, assim:

Código:

Private Sub cmdEXCLUIR_Click()
If IsNull(Me.cpcodigo) Then
MsgBox "Escolha um item a ser excluído", vbOKOnly, "Excluir item..."
Exit Sub
End If
If MsgBox("Excluir o item " & Me.cpPesquisa & " ?", vbQuestion + vbYesNo, "Excluir item ...") = vbYes Then

Call excluir

Me.ListaCliente.Requery
Call AplicarCalculos
Else
Exit Sub
End If
End Sub

Chamando a função:

Código:

Public Function excluirSaidaProduto2()
Dim strFiltro$
strFiltro = "CPCODIGO=""" & Me.cpCodProduto & """ and CPDTSAIDA=#" & Format(Me.cpdata, "mm/dd/yyyy") & "# and CPHRSAIDA = #" & Format(Me.cphora, "mm/dd/yyyy") & "#;"
CurrentDb.Execute "delete FROM TBSAIDAPRODUTO WHERE " & strFiltro
End Function


E chamei o código direto, assim:

Código:

Private Sub cmdEXCLUIR_Click()
If IsNull(Me.cpcodigo) Then
MsgBox "Escolha um item a ser excluído", vbOKOnly, "Excluir item..."
Exit Sub
End If
If MsgBox("Excluir o item " & Me.cpPesquisa & " ?", vbQuestion + vbYesNo, "Excluir item ...") = vbYes Then

Dim strFiltro$
strFiltro = "CPCODIGO=""" & Me.cpCodProduto & """ and CPDTSAIDA=#" & Format(Me.cpdata, "mm/dd/yyyy") & "# and CPHRSAIDA = #" & Format(Me.cphora, "mm/dd/yyyy") & "#"
CurrentDb.Execute "delete FROM TBSAIDAPRODUTO WHERE " & strFiltro

Me.ListaCliente.Requery
Call AplicarCalculos
Else
Exit Sub
End If
End Sub

Formiga 10x, tentei também o "Delete * FROM ....". não funcionou.

Só observando que apesar do nome da função, excluir e excluirProdutoSaida2, estarem diferente, no código os nomes estão iguais, excluir.

Bom dia mestre Avelino e obrigado pela atenção.

Não funcionou.

O tipo de dados dos campos são aqueles que citei no primeiro post.

Quando executo o delete assim:

Código:

CurrentDb.Execute "delete FROM TBSAIDAPRODUTO WHERE CPCODIGO =" Me.cpCodProduto

Funciona perfeitamente.

É como se o critério de data e hora estivessem errados?!

O que será?

Funcionou perfeitamente mestre Avelino. Mas necessito da condição Hora também.

Funcionou na perfeição grande mestre Avelino.

Agora compartilhe um puco mais dos seus conhecimento me dizendo o seguinte:

O mestre passou toda a condição da SQL em uma variável e depois chamou ela. Ok?!

Se é isso mesmo, quais as vantagens de se trabalhar assim em relação a isso:

Código:

CurrentDb.Execute "delete FROM TBSAIDAPRODUTO WHERE CPCODIGOMOVIMENTO=" & Me.cpcodigo & " CPDTSAIDA=#" & Me.cpdata & "# and CPHRSAIDA = #" & Me.cphora & "#;"


Se o mestre puder enriquecer nosso aprendizado, agradeço ainda mais.

Sucesso grande mestre.