MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

Obrigado

Administração do MaximoAccess

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

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

    Assis
    Assis
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4223
    Registrado : 06/11/2009

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

    Mensagem  Assis em 27/4/2020, 12:27

    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


    .................................................................................
    *** Só sei que nada sei ***
    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 6896
    Registrado : 15/03/2013

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

    Mensagem  ahteixeira em 27/4/2020, 12:30

    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
    Assis
    Assis
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4223
    Registrado : 06/11/2009

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

    Mensagem  Assis em 27/4/2020, 14:11

    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


    .................................................................................
    *** Só sei que nada sei ***
    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 6896
    Registrado : 15/03/2013

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

    Mensagem  ahteixeira em 28/4/2020, 22:44

    Olá Assis,

    É verdade, como diz o nosso grande JPaulo, existe muitas formas de fazer Nestum.  Very Happy
    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

      Data/hora atual: 21/9/2020, 20:45