[Resolvido]Eliminar ID e ID +1

Boa tarde

Tenho este comando para eliminar dados e tabelas

CurrentDb.Execute "DELETE * FROM tblvendas WHERE ID=" & Me.ID

Quero eliminar 2 ao mesmo tempo.

o ID selecionado com um click, e o seguinte.

Exemplo se eu clikar no id nº 1, o comando também elimina 0 nº 2


Exemplo se eu clikar no id nº 12, o comando também elimina 0 nº 13

Dim intID As Long
Dim X As Integer
IntID = Me.ID

For X = 1 To 2
CurrentDb.Execute "DELETE * FROM tblvendas WHERE ID=" & IntID
IntID = IntID +1
Next X


Cumprimentos.

Obrigado Piloto

Mais uma .... resolvida

Uma observação, se ID de tblvendas é do tipo Numeração Automática, nem sempre o ID do registro seguinte será igual ao ID do registro atual + 1.

Boa Observação Claudio.

Cumprimentos.

Bom dia
Piloto e Cláudio

Não é de numeração automática.


CurrentDb.Execute "DELETE * FROM tblvendas WHERE ID=" & IntID

Mas neste comando queria por outra condição, porque assim elimina sempre 2 registros.

A tblvendas tem um campo chamado "Doc" que é um campo tipo texto.

Então só elimina 2 registros se o campo "Doc" for igual a "Guia" e WHERE ID=" & IntID

Se o campo "Doc" for igual a "Fatura"

Assim não funciona

CurrentDb.Execute "DELETE * FROM tblvendas WHERE ID=" & intID And [Doc] = "Guia"

Obrigado

CurrentDb.Execute "DELETE * FROM tblvendas WHERE Doc = '" & "Guia" & "' and ID=" & intID

Boa tarde JPaulo

Obrigado já funfa ...

Ok Assis, mas vou reformular minha observação: só funfa se puder garantir que o ID do registro seguinte será sempre obrigatoriamente igual ao ID do registro atual + 1.