Fermer access à distance

**CrasherSEP** · 02/03/2024, 08h02

Bonjour,

J'ai un fichier Access sur réseau, il est donc ouvert par plusieurs personnes.

Mon problème est que lorsque UNE personne est connectée, je ne sais plus travailler sur mes tables... ce qui est normal...

Je dois donc contacter toutes les personnes pour demander une fermeture, ce qui est pénible...

Existe-t-il un moyen de :

Avertir toutes les personnes via par exemple une MSGBOX qu'ils doivent fermer Access pour par exemple 18h00 ? Cette demande pourrait être affichée plusieurs fois sur la journée comme un rappel et au démarrage...
Si cela n'est pas fait, pouvoir forcer la fermeture d'Access sur chaque poste, en sachant que j'ai une Base contenant les tables et que les utilisateurs ont une Base contenant les requêtes, formulaire, etc... (les tables sont liées)

Je pensais à une table avec une case à cocher et un champ texte, elle serait utilisée pour lancer l'avertissement sur tous les fichiers Access ouverts, et cela tant que la case à cocher est active, mais je ne sais pas comment rendre cela automatique...

Ps : il existe peut-être une solution plus simple ;-)

Merci et bon week-end :-)

**micniv** · 02/03/2024, 17h18

une solution possible :
https://learn.microsoft.com/fr-fr/of...ation-remotely

**CrasherSEP** · 02/03/2024, 21h24

Bonjour,

Merci pour cette solution, elle fonctionne très bien mais est un peu trop radicale pour moi :-)

Elle affiche une message comme quoi la base de données va être fermée dans 2 minutes et 1 minute après elle se ferme...

Ce que j'aimerais moi, c'est les avertir que la base de données va être fermée par exemple "le 10/23/2024 à 18h00" (variable) et ça juste pour les avertir... Ce message serait affiché au démarrage d'Access et peut-être toutes les 3 heures (variable)

Ensuite quand j'en ai envie et pas forcement à 18h00... je puisse fermer les Access toujours ouverts... Et là pourquoi pas utiliser le fichier *.ozx de l'exemple.

Je devrais pouvoir aussi fermer sans avertissement, exemple un samedi soir 23h en théorie plus personne ne travail :-)

Donc deux options :

Un avertissement (le top serait une table avec un champ texte, un champ date+heure et une case à cocher pour activer le message d'avertissement)
Une fermeture automatique (l'exemple pourrait suffire avec le fichier *.ozx...)

Code de l'exemple (voir lien du post précédent)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
Option Explicit
Dim boolCountDown As Boolean
Dim intCountDownMinutes As Integer
 
Private Sub Form_Open(Cancel As Integer)
    ' Set Count Down variable to false
    ' on the initial opening of the form.
    boolCountDown = False
End Sub
 
Private Sub Form_Timer()
On Error GoTo Err_Form_Timer
    Dim strFileName As String
    strFileName = Dir("c:\MyData\chkfile.ozx")
    If boolCountDown = False Then
        ' Do nothing unless the check file is missing.
        If strFileName <> "chkfile.ozx" Then
            ' The check file is not found so 
            ' set the count down variable to true and
            ' number of minutes until this session
            ' of Access will be shut down.
            boolCountDown = True
            intCountDownMinutes = 2
        End If
    Else
        ' Count down variable is true so warn
        ' the user that the application will be shut down
        ' in X number of minutes.  The number of minutes
        ' will be 1 less than the initial value of the
        ' intCountDownMinutes variable because the form timer
        ' event is set to fire every 60 seconds
        intCountDownMinutes = intCountDownMinutes - 1
        DoCmd.OpenForm "frmAppShutDownWarn"
        Forms!frmAppShutDownWarn!txtWarning = "This application will be shut down in approximately " & intCountDownMinutes & " minute(s).  Please save all work."
        If intCountDownMinutes < 1 Then
            ' Shut down Access if the countdown is zero,
            ' saving all work by default.
            Application.Quit acQuitSaveAll
        End If
    End If
 
Exit_Form_Timer:
    Exit Sub
 
Err_Form_Timer:
    Resume Next
End Sub