Microsoft Access est une application de base de données qui vous permet de distribuer les rapports et formulaires qui interagissent avec les tables de base de données . Les administrateurs enregistrez le fichier sur un emplacement de dossier partagé et les utilisateurs peuvent se connecter à la base de données à partir de n'importe où sur le réseau. Microsoft fournit un script que vous pouvez utiliser pour afficher la liste des utilisateurs connectés à la base de données. Ce script doit être inscrit dans la base de données et gérée par l'administrateur de base de données . Instructions
1

Double- cliquez sur le fichier MDB . Charges de Microsoft Access et la base de données s'ouvre automatiquement. Entrez votre nom d'administrateur et mot de passe , si vous avez déjà protégé par mot de fichier.
2

Cliquez sur l'onglet " Base de données Outils". Cliquez sur le bouton «Insérer », puis sélectionner "Module " dans le menu pop-up . Une nouvelle fenêtre s'ouvre, dans laquelle vous entrez le script Microsoft
3

Copiez et collez le script suivant dans la fenêtre ouverte : .

ShowUserRosterMultipleUsers sub ()
< p > con As New ADODB.Connection

records As New ADODB.Recordset

Dim i , j As Long

Set con = CurrentProject.Connection
< p > Définir records = con.OpenSchema ( adSchemaProviderSpecific , " { 947bb102 - 5d43 - 11d1- bdbf - 00c04fb92675 }")

Debug.Print records.Fields (0) . Nom , "", records.Fields ( 1). Nom , "", records.Fields ( 2). Nom, records.Fields ( 3). Nom

While Not records.EOF

Debug.Print records.Fields (0 ) , records.Fields (1) , records.Fields (2), records.Fields (3) pour

records.MoveNext

Wend End Sub

4

Cliquez sur le bouton «Enregistrer» . Dans la boîte de dialogue pop-up vous demandant un nom , tapez " ShowUsers " et cliquez sur "OK". La boîte de dialogue se ferme .
5

Appuyez sur "Ctrl + G " pour ouvrir une fenêtre de commande d'accès . Tapez " ShowUserRosterMultipleUsers " et appuyez sur "Entrée". Le script s'exécute et vous indique les utilisateurs connectés à la base de données.