|
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 ()
con As New ADODB.Connection
records As New ADODB.Recordset
Dim i , j As Long
Set con = CurrentProject.Connection
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.
|
