[Resolvido]existe uma forma de fazer backup de uma tabela ao atingir 999 registros salvos, para o excel, e depois apagar os dados da tabela?

Saudações!

Imagino que é bem complicado...mas

Existe uma forma (comando ou modulo) de fazer backup de uma tabela ao atingir 999 registros salvos, para o excel, e depois apagar os dados da tabela?

E ao apagar os dados da tabela reiniciaria a contagem dos registros e ao atingir 999 novamente executaria novamente o backup...

Com esse codigo consigo salvar o backup manualmente.

DoCmd.OutputTo acOutputTable, "tabela1", acFormatXLS, "C:\Aud\tabela1 '" & Format(Date, "dd-mm-yy") & "' '" & Format(Now, "hh.mm.ss") & "'.xls", True

Boa noite.
Flávio, um conselho que te dou, no seu caso jamais reinicie a contagem de registros porque daqui uns tempos você vai precisar de todos esses código e se suas tabelas estiverem relacionadas, vai precisar ainda mais, detalhe por detalhe.
Se o sistema vê os códigos duplicados isso vai te trazer problemas, um exemplos simples é pegar nome de usuário com dados de outros e uma chega  travar e perde tudo.
Continue com códigos automáticos.
Reparação e compactação serve para tirar linhas em brancos para ajudar na redução/manutenção do banco.
Se você quiser somente exportar para Excel e deletar do Banco, veja;

Código:

'Crysóstomo
Sub ExportarParaExcel()
    Dim db As DAO.Database
    Dim caminhoArquivo As String
    Dim nomePlanilha As String
    Dim nomeArquivo As String
    DoCmd.Close acForm, "tb1"
    caminhoArquivo = "C:\Aud\tabela1.xlsx"
    nomePlanilha = "Planilha1"
    nomeArquivo = caminhoArquivo & " " & Format(Date, "dd-mm-yy") & " " & Format(Now, "hh.mm.ss") & ".xlsx"
    Set db = CurrentDb
 If DCount("cod", "tb1") = 999 Then
        DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel12Xml, "tb1", nomeArquivo, True, nomePlanilha
        MsgBox "Backup registrados!"
        ' Deletar todos os dados
        CurrentDb.Execute "DELETE * FROM tb1;", dbFailOnError
        MsgBox "Todos os dados foram deletados com sucesso!", vbInformation
   Else
End If
      Set db = Nothing

End Sub
'Crysóstomo

Private Sub Form_Current()
    ExportarParaExcel
End Sub

Agora, se ainda continua querendo zerar o código automático, aguarde outros colegas.
Atte...

Muito grato!

Realmente zerar a contagem vai misturar registros, não tinha pensado nisso! Melhor seguir com a numeração automática!

Se a cada 999 fizer o backup e limpar os registros deletando eu consigo não sobrecarregar o banco, pois são tabelas secundarias que só servem de histórico.

Vou testar o código hoje e funcionando eu coloco o "resolvido".

Muito grato msm!

Retornando, Funcionou!

Coloquei o código no evento "formulário atual" e quando atingiu a quantidade de registros ele fez o backup e limpou a tabela!

Maravilha!


ps. só nao entendi essa parte do codigo

DoCmd.Close acForm, "tb1"

pq ta fechando acform mas tem tbl1?

outra coisa... sera que nao vai bugar se minha tabela chegar num numero automatico muito elevado tipo 533.345?

Boa tarde.
Essa parte pode tirar, achoq que eu tinha colocado o código no clique.

Sucesso...