[Resolvido]Fechar Formulários Ativos

Olá!

Srs,

Preciso desenvolver uma ferramenta que me ajude quando eu for dar algum tipo de manutenção nas tabelas do sistema.

Utilizo recursos para fechar o sistema remotamente, no entanto dependendo da manutenção não seria necessário bloquear a aplicação toda e sim algum formulário específico que obviamente esta vinculado a alguma tabela.

Suponhamos que alguma estação estivesse ligado ao formulario1 que é vinculado a tabela1, gostaria de criar algum recurso que o retirasse do formulario1 "fechando" e abrindo qualquer outro até a manutenção for concluída.

Bom dia...

Tente algo parecido com isso abaixo:


Utilize esta função:

Private Sub Form_Load() ' formulário de manutenção
call CloseAllForms
End Sub



Function CloseAllForms()

'Ele fechará todos os formulários antes de abrir o novo formulário (se necessário)

Dim obj As Object
Dim strName As String

For Each obj In Application.CurrentProject.AllForms
If obj.Name <> "Seu formulário de manutenção" Then
DoCmd.Close acForm, obj.Name, acSaveYes
End If
Next obj

End Function

Olá a todos,

Com uma "busca" aqui no fórum ...
https://www.maximoaccess.com/t28154-resolvidoverificar-se-existe-arquivo-ficheiro-em-determinada-localizacao-intranet
https://www.maximoaccess.com/t13465-resolvidodesconectar-usuario-na-rede

Abraço

obrigado a todos, nao vou poder me empenhar nessa pergunta por hora; mas as dicas sao valiosas

dou o topico por resolvido,