MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

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


3 participantes

    Excluir registro de tabela usando VBA

    avatar
    guipinto1993
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 6
    Registrado : 21/10/2016

    Excluir registro de tabela usando VBA Empty Excluir registro de tabela usando VBA

    Mensagem  guipinto1993 25/7/2017, 02:23

    Boa noite,

    sou novo e principiante, será que vocês poderiam me ajudar?

    Preciso que, ao apertar botão, sejam deletados os valores de uma tabela referente à data. Ou seja, meu banco possui varios dados, com uma coluna
    chama Data_Necessidade.

    O banco só deve manter os dados referentes a 365 dias passados de hoje. Por exemplo, hoje é 24/07/2017, quero que ele delete os dados menores que 24/07/2016.

    Estava utilizando esse código, mas não está dando certo.



    Private Sub Comando12_Click()


    Dim mydate

    mydate = Date()
    CurrentDb.Execute "delete * from MyTable Where Data_Necessidade < mydate;"

    End sub

    Muito obrigado
    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

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

    Excluir registro de tabela usando VBA Empty Re: Excluir registro de tabela usando VBA

    Mensagem  Alvaro Teixeira 25/7/2017, 11:10

    Olá Guilherme,

    Tente assim:
    Código:
    Dim mydate As Date
    mydate = DateAdd("yyyy", -1, Date)
    CurrentDb.Execute "delete * from MyTable Where Data_Necessidade < #" & mydate & "#"

    Abraço
    thiagomcosta
    thiagomcosta
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 377
    Registrado : 23/01/2017

    Excluir registro de tabela usando VBA Empty Re: Excluir registro de tabela usando VBA

    Mensagem  thiagomcosta 25/7/2017, 12:45

    Qual o sentido de apagar informações?
    Não seria melhor manter os dados, o histórico e somente filtrar?

    Conteúdo patrocinado


    Excluir registro de tabela usando VBA Empty Re: Excluir registro de tabela usando VBA

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 29/3/2024, 07:54