Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Access Détecter les utilisateurs

Détecter les utilisateurs

2 réponses
Avatar
Florent
Bonjour,

Voil=E0 je souhaiterais savoir s'il est possible de savoir=20
qui se connecte =E0 une base Access partag=E9e sur un r=E9seau?

Si oui, comment ?

D'avance merci ?
Signaler un problème avec ce contenu

2 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Michel Walsh
Salut,


Tiré d'un article de la base de connaissance (Access 2000 ou plus récent):

================================== Option Compare Database
Option Explicit

Public Sub ShowUserRosterMultipleUsers()
'KB Q285822


Dim rs As New ADODB.Recordset


Set rs = CurrentProject.Connection.OpenSchema(adSchemaProviderSpecific,
_
, "{947bb102-5d43-11d1-bdbf-00c04fb92675}")
Debug.Print rs.Fields(0).Name, "", rs.Fields(1).Name, "",
rs.Fields(2).Name, rs.Fields(3).Name

Do Until rs.EOF
Debug.Print rs.Fields(0), rs.Fields(1), rs.Fields(2), rs.Fields(3)
rs.MoveNext
Loop
End Sub
==================================

Espérant être utile,
Vanderghast, Access MVP



"Florent" wrote in message
news:0ad801c3bb2d$f0127610$
Bonjour,

Voilà je souhaiterais savoir s'il est possible de savoir
qui se connecte à une base Access partagée sur un réseau?

Si oui, comment ?

D'avance merci ?
Avatar
Florent
Ok merci

Je vais essayer ça, je te dirai si ça ne marche pas


-----Message d'origine-----
Salut,


Tiré d'un article de la base de connaissance (Access 2000
ou plus récent):


======================== ===========
Option Compare Database
Option Explicit

Public Sub ShowUserRosterMultipleUsers()
'KB Q285822


Dim rs As New ADODB.Recordset


Set rs = CurrentProject.Connection.OpenSchema
(adSchemaProviderSpecific,

_
, "{947bb102-5d43-11d1-bdbf-00c04fb92675}")
Debug.Print rs.Fields(0).Name, "", rs.Fields
(1).Name, "",

rs.Fields(2).Name, rs.Fields(3).Name

Do Until rs.EOF
Debug.Print rs.Fields(0), rs.Fields(1), rs.Fields
(2), rs.Fields(3)

rs.MoveNext
Loop
End Sub
======================== ===========


Espérant être utile,
Vanderghast, Access MVP



"Florent" wrote in
message

news:0ad801c3bb2d$f0127610$
Bonjour,

Voilà je souhaiterais savoir s'il est possible de savoir
qui se connecte à une base Access partagée sur un réseau?

Si oui, comment ?

D'avance merci ?


.