Olá pessoal!
Eu estava pesquisando aqui no site sobre como desligar os frontends em rede e encontrei um exemplo: http://dl.dropbox.com/u/1378556/KickOut2006.mdb (de autoria de wsenna).
Coloquei este exemplo em rede (duas máquinas) aqui em casa mas não funcionou!
É o seguinte... eu mapeei a rede criando a unidade "R:" e coloquei tudo lá,
R:\KickOut2006\KickOut.txt e na mesma pasta o KickOut2006.mdb
Setei no VBA:
Private Sub Form_Timer()
If Len(Dir("R:\KickOut2006\KickOut.txt")) Then
DoCmd.OpenForm "Out", acNormal, "", "", , acNormal
End If
End Sub
Fiz as configurações para abrir em rede e tudo...
Mas não funfou... não está desligando na outra máquina!
Se alguém puder me ajudar, ficarei imensamente agradecido!
Paulo César
Eu estava pesquisando aqui no site sobre como desligar os frontends em rede e encontrei um exemplo: http://dl.dropbox.com/u/1378556/KickOut2006.mdb (de autoria de wsenna).
Coloquei este exemplo em rede (duas máquinas) aqui em casa mas não funcionou!
É o seguinte... eu mapeei a rede criando a unidade "R:" e coloquei tudo lá,
R:\KickOut2006\KickOut.txt e na mesma pasta o KickOut2006.mdb
Setei no VBA:
Private Sub Form_Timer()
If Len(Dir("R:\KickOut2006\KickOut.txt")) Then
DoCmd.OpenForm "Out", acNormal, "", "", , acNormal
End If
End Sub
Fiz as configurações para abrir em rede e tudo...
Mas não funfou... não está desligando na outra máquina!
Se alguém puder me ajudar, ficarei imensamente agradecido!
Paulo César