[Resolvido]Eliminar 2 Movimentos ao mesmo tempo

Boa tarde amigos

Com este comando elimino registos na tabela lançamentos.

DoCmd.RunSQL "DELETE * FROM [lançamentos] WHERE Ln = " & Me.LN

LN é o "NumeroLançamento" ... Campo numero

Exemplo
Queria eliminar o Nº 12 : Ao eliminar o "NumeroLançamento" 12 eliminava também o NumeroLançamento 13 .

Eu ao clikar por exemplo no NumeroLançamento 41 eliminava também o NumeroLançamento 42.

Obrigado

Podes tentar uma segunda instrução assim:

DoCmd.RunSQL "DELETE * FROM [lançamentos] WHERE Ln = " & Me.LN+1

ou +Val(1)

Olá Hary

Com a sua dica só elimina o numero maior ....

Poderia fazer assim Assis:

Na hora de excluir o registro primeiro... lançar a ID dele em uma Variável

Dim X As Double

X = Me.SuaID
X = X+(Val)1

e no póximo comando

DoCmd.RunSQL "DELETE * FROM [lançamentos] WHERE Ln = " & X

ou

DoCmd.RunSQL "DELETE * FROM [lançamentos] WHERE Ln = X

Dim X As Double

X = Me.SuaID
Aqui fica logo a vermelho
X = X+(Val)1

rsrs Perdão.. erro na escrita

Pode simplesmente
X+1
ou X+Val(1)

Hary

Não sei se será por estar a tentar eliminar em um Form Continuo.

A lógica é a seguinte...
Ao se exluir o Número 13 pretende tambem excluir o 14 correto...

Se o comando que utiliza funciona para o numero 13, o mesmo comando teria que funcionar para o 14

Basta antes de exluir o 13, lançar este valor em uma variável...

Assim o proximo comando executaria o 13+1

ou seja

DoCmd.RunSQL "DELETE * FROM [lançamentos] WHERE Ln = X+1 (onde X+1 = 14)

Então logicamente a função teria que funcionar...

Hary

Resolvi assim

Mandar anular primeiro o numero mais alto e depois o mais baixo e resulta
DoCmd.SetWarnings False
DoCmd.RunSQL "DELETE * FROM [lançamentos] WHERE ln = " & Me.LN + 1
DoCmd.RunSQL "DELETE * FROM [lançamentos] WHERE ln = " & Me.LN
DoCmd.SetWarnings True

Obrigado

Beleza amigão.. Bom trabalho