[Resolvido]Excluir Registros Automaticamente

Boa noite selva!

É o seguinte.. Tenho um form de cadastros onde as pessoas vao cadastrando e deixando os cadastros com status 'Pendente'.. acontece que muitos estão denxando de enviar esses cadastros para aprovação e está acumulando muito.

Gostaria de uma rotina onde o sistema guardasse cadastros Pendentes só até a meia noite do mesmo dia e após isso excluisse automaticamente os registros.

Abraço!

Boas Krauss... Uma observação...

O PC fica ligado até este horário, caso sim.. um evento no timer poderia verificar o horário e caso ultrapasssase o mesmo excluiria os registros na tabela marcados como pendentes...

Cumprimentos.

Tem certeza que a ideia é excluir os registros definitivamente? Se for, pode tentar algo assim no evento "No timer" do formulário com o "Intervalo do cronômetro" = 1000 por exemplo:

Código:

If DCount("*", "NomeTabela", "NomeCampo='Pendente'") > 0 Then
    If Time > #00:00:00# And Time < #00:10:00# Then
        CurrentDb.Execute "DELETE * FROM NomeDaTabela WHERE NomeDoCampo='Pendente'"
    End If
End If

Coloquei um intervalo de 00:00 a 00:10 para evitar que dados inseridos depois e no mesmo dia sejam tambem excluídos. Deve dar para adaptar para o seu caso.

Aí PILOTO, respondemos juntos

kkk Estamos sintonizados.. ainda bem... Estar com o pensamento sintonizado com um Grande Mestre como tú Mestre dos Magos.. é uma grande honra...

A ideia foi a mesma.. mas já se adiantou em escrever os códigos... eu teria o deixado quebrar a cabeça um pouco mais.. hehehe

Abraços.

Blz feras.. entao... não funfou... rs

nem sempre o pc fica ligado até essa hora, mas tipo se não estiver ligado, o sistema deverá excluir assim que o pc for ligado no dia seguinte..

Na verdade ele deve excluir da tabela 'tblFuncionarios' que está vinculada com outras: tblFuncionariosDocumentacao, tblFuncionariosResidencial, tblFuncionariosProfissional e tblFuncionariosHistorico.

Abraço!

Retificando... funfa sim, mas somente se o form estiver aberto..

Gostaria que funcionasse mesmo se o form estivesse fechado, talvez um módulo quem sabe... mas não sei fazer isso..

Lembrando que a tabela tblFuncionarios está vinculada com as tabelas: tblFuncionariosDocumentacao, tblFuncionariosResidencial, tblFuncionariosProfissional e tblFuncionariosHistorico

Poderia criar um form que abrisse em oculto ao iniciar o sistema com os códigos que o Criquio te passou...

Agora para excluir do outro dia.. o ideal seria criar um campo data/hora na tabela e excluir com o critério de data.... ao iniciar o sistema.

Cumprimentos.

Pois é, fiz um teste e realmente o código do criquio só funciona dentro do mesmo dia e se o sistema estiver aberto...

PILOTO, não sei criar form oculto... pode me ajudar? Ou de repente existe uma outra forma...

Abraço!

Você pode chamar o mesmo evento to timer no evento "Ao carregar" do formulário:

Call Form_Timer

Assim, caso o formulário esteja fechado no horário formulário, o evento será executado na abertura do mesmo. Só precisa ver se vai precisar elaborar um meio disso só acontecer uma vez no dia ou não. Isso vai depender da necessidade.

Bom.. já temos a solução se o formulário estiver aberto no mesmo dia.

Agora preciso de um esquema que exclua os registros que foram criados até as 23:59:59 do dia anterior quando o form for aberto no dia seguinte de manhã no início do expediente.

Código:

...
CurrentDb.Execute "DELETE * FROM NomeDaTabela WHERE NomeDoCampo='Pendente' And CampoDaData<# & Date & #"
...

Colei esse cód no evento AoCarregar do form e alterei o nome da tabela, mas nao funfou!

Podes tentar altsrar a formatação da data:

Código:

CurrentDb.Execute "DELETE * FROM NomeDaTabela WHERE NomeDoCampo='Pendente' And CampoDaData<# & Format(Date,"mm/dd/yyyy") & #"

ou


CurrentDb.Execute "DELETE * FROM NomeDaTabela WHERE NomeDoCampo='Pendente' And CampoDaData<# & Format(Date,"dd/mm/yyyy") & #"


Para abrir um form em oculto:

DoCmd.OpenForm "NomeDoForm",,,,,acHidden

Cumprimentos.

Boas Krauss.. uma dica.. Estás colocando teus tópicos todos na sala Off-Tópicos...

Ao criar um tópico veja a que assunto s relaciona, se formulário, se macro, se consulta, se relatório e o coloque na sala correta, a sala off-tópicos é para assuntos que não são específico a uma das salas do fórum.

Cumprimentos.

Ps. este tópico será movido a sala correta.

Ainda não consegui fazer com que exclua os registros no dia seguinte... Alguém pode me ajudar?

Boas amigos feliz ano novo, se puder postar parte do bd, daremos uma olhada!
abraço!

Uma solução para isto sem ser necessário abrir o sistema é a utilização de um VbScrip para ser rodado no agendador de tarefas do windows ou colocado no menu iniciar.

De uma olhada na sala de repositório de VbScript, la tem um exemplo que é perfeitamente adaptável para isto.

Faça como sugerido pelo Lupercio, poste parte do BD para que vejamos.

>>>>> Atente as minhas recomendações quanto a postar suas dúvidas na sala correta!!!


Cumprimentos.