1
Haga doble clic en el archivo MDB . Cargas de Microsoft Access y la base de datos se abre automáticamente. Introduzca su nombre de usuario y la contraseña de administrador, si previamente protegido con contraseña el archivo.
2 Haga clic en la pestaña "Herramientas de base de datos " . Haga clic en el botón " Insertar" y luego seleccione " Módulo " en el menú emergente. Se abrirá una ventana donde se introduce la secuencia de comandos Microsoft
3
Copie y pegue el siguiente script en la ventana abierta : .
ShowUserRosterMultipleUsers Sub ( )
< p > con As New ADODB.Connection
registros Dim As New ADODB.Recordset
Dim i , j As Long
Set con = CurrentProject.Connection
< p > Establecer registros = con.OpenSchema ( adSchemaProviderSpecific , " { 947bb102 - 5d43 - 11d1 - bdbf - 00c04fb92675 }")
Debug.Print records.Fields ( 0 ) . Nombre , "", records.Fields ( 1 ) . Nombre , "", records.Fields ( 2 ) . Nombre, records.Fields ( 3 ) . Nombre
Aunque no records.EOF
Debug.Print records.Fields ( 0 ) , records.Fields ( 1 ) , records.Fields ( 2 ) , records.Fields ( 3 )
records.MoveNext
Wend End Sub
4
clic en el botón " Guardar" . En el cuadro de diálogo emergente que le pide un nombre , escriba " ShowUsers " y haga clic en " Aceptar". Se cierra el cuadro de diálogo.
5
Presione " Ctrl + G" para abrir una ventana de comandos de acceso. Tipo " ShowUserRosterMultipleUsers " y presionar " Enter". El script se ejecuta y muestra los usuarios conectados a la base de datos.