ouverture base ACCESS 97

[krasi_j]

Comment empêcher le même utilisateur d'ouvrir plusieurs fois une base.

Merci

[stigma]

tu chopes le User au démarrage

Code :

1
2
Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" (ByVal lpBuffer As String, Nsize As Long) As Long
Private Declare Function apiGetSys Lib "user32" Alias "GetSystemMetrics" (ByVal nIndex As Long) As Long

et tu testes qu'il ne l'ouvre qu'une seule fois.
Fonction :

Code :

1
2
3
4
5
6
7
8
9
Public Function GetUser() As String
 
    Dim Buffer$, guLen&, a%
    Buffer$ = Space$(256)
    guLen& = Len(Buffer$)
    a% = GetUserName(Buffer$, guLen&)
    GetUser = Left$(Buffer$, guLen& - 1)
 
End Function

[loufab]

Bonjour,

A tester sur 97 :
Pour le compte utilisateur de la machine :

Code :

environ("username")

Cordialement,

[Lou Pitchoun]

Envoyé par loufab

Bonjour,

A tester sur 97 :
Pour le compte utilisateur de la machine :

Code :

environ("username")

Cordialement,

Ca fonctionne sans problèmes