[Resolvido]Ao clicar num comando eliminar sempre o ID maior, mas sempre que o seja > ID 1

Boa Amigos

Com o código abaixo elimino na tabela "Dados" o ID Nº 50 ao clicar num comando.

CurrentDb.Execute "DELETE * From Dados Where [id]= " & 50

Mas eu queria sim eliminar o Último, sempre que clicar no comando, desde que o ID fosse > que 1.

Obrigado

Olá Assis,

Então, pode usar um DLast para verificar o ultimo registo
Depois com um IF verifica que esse registo o ID é maior que 1 ...

Abraço

Boa tarde

Como diz o JPaulo .... tem muita maneira de fazer Nestum.

Foi o que fiz

Consulta Top 1 descendente a mostrar só um registo com o ID > 1 , portanto a que aparece é sempre um único registo, e o ID sempre a partir do 2.

O Amigo Teixeira fazia de maneira diferente eu sei, e gostava (muito) de saber como ele teria feito.

Obrigado

Olá Assis,

É verdade, como diz o nosso grande JPaulo, existe muitas formas de fazer Nestum.  
E como prova disso, creio que o código abaixo faz o pretendido:

Código:

Dim dblUltimo As Double
dblUltimo = Nz(DLast("id", "Dados"), 0)
If dblUltimo <> 0 Then CurrentDb.Execute "DELETE * From Dados Where [id]= " & dblUltimo

No entanto fico feliz por ter resolvido.

Abraço