Savoir qui est connecté

Bonjour,

GARIN Fabrice wrote:
| Salut à tous,
|
| Voilà j'ai installé ma base en réseau et j'aimerais savoir si il
| existe un moyen de savoir combien de personnes sont connectés et
| lesquelles.
|
| Merci

Tu peux essayer cette fonction qui permet d'extraire les personnes connectées
du fichier .ldb de ta base
Attention, pour toi, il faudra mettre le chemin de la base dorasle contenant les tables
au cas où tu aurais fractionné ta base en frontales/dorsale, ce qui est recommandé..

Function fListUsers(Optional strPath) As String

Dim strLine As String * 64
Dim i As Integer
Dim F As Integer

If IsMissing(strPath) Then: strPath = CurrentDb.Name

strPath = Left(strPath, Len(strPath) - 3) & "ldb"
'strPath = Left(strPath, InStrRev(strPath, ".", -1)) & "ldb"

If Dir(strPath) <> "" Then
F = FreeFile
Open strPath For Random Access Read Shared As #F Len = Len(strLine)
For i = 1 To LOF(F) / Len(strLine)
Get #F, i, strLine
fListUsers = IIf(fListUsers <> "", fListUsers + ";", "") _
& Left(strLine, InStr(1, strLine, Chr$(0)) - 1)
Next i
Close #F
End If
End Function

--
à+
Arnaud
--------------------------------------------------
Conseils d'utilisation : http://users.skynet.be/mpfa/
Site Perso : http://memoaccess.free.fr
/Réponses souhaitées sur ce forum, merci/
--------------------------------------------------

Bonjour Arnaud.

une variante avec le ShowUserRoster sur la mdb
voir la page: http://access.seneque.free.fr/utilisateurs_en_cours.htm
--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access.vba.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"Anor" <http://memoaccess.free.fr/anor/email.htm> a écrit dans le message de
news:uJbD2vAQEHA.3420@TK2MSFTNGP11.phx.gbl...

Bonjour,

GARIN Fabrice wrote:
| Salut à tous,
|
| Voilà j'ai installé ma base en réseau et j'aimerais savoir si il
| existe un moyen de savoir combien de personnes sont connectés et
| lesquelles.
|
| Merci

Tu peux essayer cette fonction qui permet d'extraire les personnes
connectées

du fichier .ldb de ta base
Attention, pour toi, il faudra mettre le chemin de la base dorasle
contenant les tables

au cas où tu aurais fractionné ta base en frontales/dorsale, ce qui est
recommandé..

Function fListUsers(Optional strPath) As String

Dim strLine As String * 64
Dim i As Integer
Dim F As Integer

If IsMissing(strPath) Then: strPath = CurrentDb.Name

strPath = Left(strPath, Len(strPath) - 3) & "ldb"
'strPath = Left(strPath, InStrRev(strPath, ".", -1)) & "ldb"

If Dir(strPath) <> "" Then
F = FreeFile
Open strPath For Random Access Read Shared As #F Len Len(strLine)
For i = 1 To LOF(F) / Len(strLine)
Get #F, i, strLine
fListUsers = IIf(fListUsers <> "", fListUsers + ";", "") _
& Left(strLine, InStr(1, strLine, Chr$(0)) - 1)
Next i
Close #F
End If
End Function

--
à+
Arnaud
--------------------------------------------------
Conseils d'utilisation : http://users.skynet.be/mpfa/
Site Perso : http://memoaccess.free.fr
/Réponses souhaitées sur ce forum, merci/
--------------------------------------------------

Merci pour vos réponses


"GARIN Fabrice" <garin.fabrice@wanadoo.fr> a écrit dans le message de
news:c8no32$ntv$1@news-reader3.wanadoo.fr...

Salut à tous,

Voilà j'ai installé ma base en réseau et j'aimerais savoir si il existe un
moyen de savoir combien de personnes sont connectés et lesquelles.

Merci