[Resolvido]Instrução delete dando erro 3061, era esperado 1

Prezados bom dia a todos.

Necessito de uma pequena ajuda, tenho a seguinte instrução

Private Sub bt_fechar_Click()
If IsNull(Me.CDIRDTVIG) Or IsNull(Me.CDIRNUM) Or IsNull(Me.CDIREMPNUM) Or IsNull(Me.CDIRNINST) Then
If MsgBox("Cadastro incompleto, o mesmo será apagado do sistema ! ", vbYesNo + vbQuestion, Me.Caption) = vbYes Then
CurrentDb.Execute ("delete * from tblatzcdir Where cdirpreco IS NULL AND cdirnisnt IS NULL")
DoCmd.Close
DoCmd.OpenForm "frmmenu"
Else
DoCmd.Close
DoCmd.OpenForm "frmmenu"
Exit Sub
End If
End If

A linha em vermelha( instrução delete ) está me causando erro 3061.

Preciso deletar registros incompletos ao fechar o formulário. Com uma condição vai..mas com duas trava. Já tentei and, or ..coloquei entre colchetes, aspas duplas, aspas simples.

Desde já agradeço.

End Sub

Olá Silvio

Experimente no assim:

Docmd.RunSQL "delete * from tblatzcdir Where cdirpreco IS NULL AND cdirnisnt IS NULL"

ou ainda:

Docmd.RunSQL "delete * from tblatzcdir Where cdirpreco = NULL AND cdirnisnt = NULL"


Quando tenho que escrever uma frase SQL no VBA, eu primeiro crio a consulta e testo a mesma.

Uma vez que está "funfando", mudo para o SQL e copio para o VBA, fazendo as mudanças pertinentes para o código.

Tomara que funfe, como você deve saber, sem a tabela em questão é difícil ajudar

Não custa falar: verifique os nomes da tabela e controles   

Abração

Noob

Bom dia...

Hummmm, rodando em SQL ele pede o nome de um campo....

Necessito mesmo que seja em :
CurrentDb.Execute ("delete * from tblatzcdir Where cdirpreco IS NULL AND cdirnisnt IS NULL") e ainda por cima...tem que ser no click do botão fechar.

Sei que é um erro de sintaxe e estou tentando encontrar esse erro.

Abraços.

Silvio

Tente aplicar, no meu funfa.

Currentdb.execute "DELETE * FROM Tabela WHERE IsNull(Campo);"


No seu caso 2 campos

Currentdb.execute "DELETE * FROM Tabela WHERE IsNull(Campo1) And IsNull(Campo2);"

Certo, Silvio

Agora tô mais acordado, hehe

Vamos lá

CurrentDb.Execute ("delete * from tblatzcdir Where cdirpreco IS NULL AND cdirnisnt IS NULL")

Se tentou o código passado pelo Assis e não funfou:

CurrentDb.Execute ("delete * from tblatzcdir Where tblatzcdir.cdirpreco = NULL AND tblatzcdir.cdirnisnt = NULL")

ou ainda:

Docmd.RunSQL "delete * from tblatzcdir Where tblatzcdir.cdirpreco = NULL AND tblatzcdir.cdirnisnt = NULL"

Noob

Depois de pensar....e pensar....descobri como colocar o ovo em pé....

Começamos aqui..

If IsNull(Me.CDIRDTVIG) Or IsNull(Me.CDIRNUM) Or IsNull(Me.CDIREMPNUM) Or IsNull(Me.CDIRNINST) Then
MsgBox"Cadastro incompleto, o mesmo será apagado do sistema ! ", me.caption
CurrentDb.Execute ("delete * from tblatzcdir Where CDIRDTVIGIS NULL AND CDIRNUM IS NULL AND CDIREMPNUM AND CDIRNINST IS NULL ")
me.requery
DoCmd.Close
DoCmd.OpenForm "frmmenu"
Else
DoCmd.Close
DoCmd.OpenForm "frmmenu"
End If

Note que os isnull da instrução IF tem que serem os mesmos da instrução currentDb.execute("delete..................")

Agradeço aos colegas Assis...Noobezinho pela força.

Ótimo Silvio

Grande abraço

Noob