Discussion :

[FHDLB]

Bonjour à tous,

J'ai un problème sur une base de donnée Access 2003.
j'ai créé un controle d'acces avec l'instruction Environ("Username") qui fonctionne très bien sur mon poste, mais quand je déploie sur d'autres postes utilisateurs qui sont également sur Access 2003, cette instruction n'est plus reconnue. de même certaines fonctions Str() et Left() ne sont plus reconnue également.

Merci à ceux qui prendront le temps de lire et de me répondre

bonne journée

François

[argyronet]

Bonjour,

Environ("Username") ne garantie pas que tu obtiendras le login... si toutefois le poste est mal configuré, notamment, me semble t-il avec les expressions bloquées si Jet 4.0 n'est pas installé.

Par ailleurs, tu peux biaiser avec l'API :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
 
Private Declare Function apiGetUserName Lib "advapi32.dll" Alias "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long
Public Function GetUserName()  As String
Dim strUserName                                        As String
    strUserName = String(64, Chr$(0))
    lngRet = apiGetUserName(strUserName, 64)
    If lngRet Then GetUserName = Left$(strUserName, InStr(strUserName, Chr$(0)) - 1)
End Function

Argy

[FHDLB]

Merci beaucoup, ça a résolu mon problème

bonne journée