Olá pessoal, gostaria de saber por que esse comando não funciona:

CurrentDb.Execute ("DELETE * FROM CLIENTES WHERE [CADASTRO]<=#" & Format(edtData, "d/m/yyyy") & "#")

onde [CADASTRO] é o campo que contém a data do cadastro do cliente.

Conto com a ajuda de vcs e obrigado por enquanto.

Aqui não deu erro.
Uma solução é o seguinte, coloca o comando dentro de uma variável e dá manda executar e tem como ver se está montando errado.

---------------------------------------------
dim strSQLTexto as String

strSQLTexto = "DELETE * FROM CLIENTES WHERE [CADASTRO]<=#" & Format(edtData, "d/m/yyyy") & "#"

CurrentDb.Execute (strSQLTexto)


Se não funcionar, coloca um Stop antes de "CurrentDb.Execute (strSQLTexto)" e digita na Varificação Imediata ?strSQLTexto

O Comando que aparecer copia e cola dentro de uma consulta em modo SQL, e executa para ver o erro.

Sds,

Raphaels

Olá Ricardo.

Eu costumo fazer assim:

Dim sql as String

sql = "DELETE * FROM CLIENTES WHERE CADASTRO <= DateValue('" & edtData & "')"

Currentdb.Execute sql

Atenciosamente,
Tiago

Já tentei o que me passaram e mesmo assim nada ainda de dar certo a exclusão.

Mais alguma sugestão ????

Datas em SQL devem estar SEMPRE no formato "mm/dd/yyyy" (americano). Dê uma olhada aqui.