[Resolvido]Compactar e reparar no evento On Timer do formulario

Olá amigos do forum,

Estou tentando colocar uma rotina de compactar e reparar no evento timer do form,adaptei um codigo deste topico ao timer e funciona bem,porém só funciona se a tela do formulario estiver ativa, se o pc estiver em tela de descanso ou em outra tela qualquer o codigo SendKeys "%(FMC)", False não funciona. Existe algum outro cogido que eu poderia usar para esta função?

Topico:
http://maximoaccess.forumeiros.com/t8966-compactar-proprio-banco?highlight=compactar

Codigo:
Private Sub Form_Timer()
Me.Label1.Caption = Format(Now, "hh:mm:ss")
Me.Label1.Caption = "07:00:00" Then


SendKeys "%(FMC)", False



obrigado

Up no topico

Ola Daniel;

Veja o simples;

Private Sub Form_Timer()
    Me.Label1.Caption = Format(Now, "hh:mm:ss")
     If Me.Label1.Caption = "07:00:00" Then
     Access.RunCommand acCmdAppMaximize
    SendKeys "%(FMC)", False
    End If
End Sub

Obrigado pelo retorno Jpaulo.

a opção que vc me passou é otima, ele maximiza a tela do access mesmo com o computador em bloqueio(logoff, porém o codigo SendKeys "%(FMC)",False não funciona da mesma forma, é que eu faço uma atualização automatica das minhas tabelas as 06:00 da manhã, não estou no setor ainda, e o computador está ligado porém o mesmo entra em logoff após alguns minutos sem uso.

Então a ideia é a seguinte, o Access atualizará as tabelas mais pesadas e compactará automaticamente e depois seguirá na atualização das demais tabelas menos pesadas.

Conheces outro codigo que faça a compactação mesmo com o logoff do pc?

Abraço

A instrução que lhe passei, maximiza o banco e compacta-o, isto no Ms Access 2007.

Não entendi muito bem a sua ultima duvida, mas se quiser testar com outro código, eu tenho também este;

Private Sub SeuBotão_Click()
Dim ws As Object
Set ws = CreateObject("WScript.shell")
ws.SendKeys "%AGO"
Set ws = Nothing
End Sub

Resolvido neste tópico:
http://maximoaccess.forumeiros.com/t3873-resolvidocompactar-banco-de-dados

Sim a instrução que você me passou maximiza e compacta perfeitamente quando o computador não esta com a tela de descanso ou bloqueado (em logoff), mas como eu gostaria de fazer esta rotina as 06:00 am o computador estará em logoff(ligado porém bloqueado com CRTL+ALt+DEL), então ele maximiza mas não compacta. Ja tentei aqui na empresa fazer com que não bloqueie automaticamente, mas por questões de segurança eles nao deixaram.

quanto ao ultimo codigo que vc me passou apresenta um erro,

ele da as seguintes mensagens:

Dependency information needs to be updated before you can view object dependencies. This could take a several minutes.Deseja continuar?

clico em SIM

ai apresenta esta:
To view object or change the track name Autocorrect info option, MS Access must close all objects and updated dependency information.Deseja continuar?

depois acusa um erro, dei o print na tela, se puder dar uma olhadinha eu ficarei grato.

Abraço

Esqueça esse ultimo;

Pelos imensos teste que fiz aqui no trabalho, só um resultou com o banco em OFF pelas teclas CRTL+ALt+DEL.

Mas isso implica o código fechar o formulario.

1º Cole num modulo novo e salve, com um nome a seu gosto.

Public Sub CompactarBD()
Dim strfrm As Form
For Each strfrm In Forms
   DoCmd.Close acForm, strfrm.Name, acSaveNo
Next strfrm
    SendKeys "%(FMC)", False
End Sub

No seu formulario, ficará assim;

Private Sub Form_Timer()
 Me.Label1.Caption = Format(Now, "hh:mm:ss")
     If Me.Label1.Caption = "14:45:00" Then
     Access.RunCommand acCmdAppMaximize
     Call CompactarBD
    End If
End Sub

Uma outra maneira, mas externa ao Banco é por VBS (VB Script).

Em tempos ajudei aqui um usuário a realizar essa tarefa;

O VBS está feito, é só você com o botão direito do mouse em cima dele e Editar para lhe mudar o caminho do banco.

Use-o no seu agendedor de tarefas do Windows, para todos os dias à hora que pretender ele correr e compactar/abrir o seu banco.

O código anterior do Call CompactarBD somente fecha o formulário, não compacta e repara o Access, porém você me deu uma ideia quando mencionou o agendador de tarefas do windows, então pedi para a TI da empresa me ensinar a criar uma rotina de ligar o computador e abrir o access numa hora pretendida com o agendador, com o access aberto e sem estar em Logoff utilizei o código que você me passou que é este que está aqui embaixo,aí deu certo, não sei se é a melhor forma mas cheguei no resultado, isso é que importa.

uma ideia puxa a outra não é mesmo?

muito obrigado pela ajuda Jpaulo, sou muito grato a vocês.


Private Sub Form_Timer()
Me.Label1.Caption = Format(Now, "hhss")
If Me.Label1.Caption = "07:00:00" Then

Access.RunCommand acCmdAppMaximize

SendKeys "%(FMC)", False

End If
End Sub

Grande abraço.