[Resolvido]Consulta Eliminar

Boa tarde amigos

Tenho a consulta que mostro na imagem

Estou a executa-la com este comando

Private Sub Form_Close()
DoCmd.SetWarnings False
DoCmd.OpenQuery ("AnularMes")
DoCmd.SetWarnings True
End Sub

Recebo a informção:

Run-Time error 3128
Especifique a tabela que contém os registros que pretende eliminar

A consulta é composta de duas tabelas Tabela "MES" e tabela "tblItensPedido"


Em SQL está assim:

DELETE MEs.IdMes, tblItensPedido.IDItem
FROM MEs LEFT JOIN tblItensPedido ON MEs.IdMes = tblItensPedido.IDItem
WHERE (((tblItensPedido.IDItem) Is Null));


Obrigado

Boa tarde Assis,
Se é para executar o código, não precisas ter a consulta. Basta executares por código
Existe um mas: o DELETE não aceita ligação de tabelas
Coloca
Currentdb.execute "DELETE * FROM tblItensPedido WHERE IsNull(IDItem);"
Currentdb.execute "DELETE * FROM MEs WHERE IdMes NOT IN (SELECT IDItem FROM tblItensPedido);"

Faz cópia das tabelas para confirmares que não fazes asneira

Obrigado Alexandre

Abraço