petit bug au secourrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrr

bonjour  à tous j'ai une application  access
ou dans le code vba je demande à connaitre le nom de l'ordinateur,
cela marche sur mon pc et sur le résaux, mais quand d'autres personnes demande à se connecter j'ai un message d'erreur  projet ou bibliothèque introuvable.

dans un module standard,je mets ça
Option Explicit
Public Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long

dans mon userform je mets ceci .
Sub test()

Dim strUserName As String
strUserName = String(100, Chr$(0))

GetUserName strUserName, 100

strUserName = Left$(strUserName, InStr(strUserName, Chr$(0)) - 1)
MsgBox strUserName
End Sub




et sur l'evènement ,je mets cela

Private Sub Form_Load()
test
End Sub
est ce que quelqu'un peu m'aider ?  de toutes urgence
en vous remerciant d'avance

Qu'est-ce que tu entends par "quand d'autres personnes demande à se connecter " ???

Christophe R

'Perso, j'utilise ça et ça marche très bien partout avec tout le monde.
'Dans un module je mets ça.
Public Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long

Public Function WhoIs() As String
    Dim strUserName As String
    Dim lngLenght As Long
    Dim lngResult As Long
    'Créé le tampon
    strUserName = String$(255, 0)
    lngLenght = 255
    'Effectue l'appel
    lngResult = GetUserName(strUserName, lngLenght)
    'Nettoie et affecte la valeur
    WhoIs = Left(strUserName, InStr(1, strUserName, Chr(0)) - 1)
End Function
'Et dans un form pour récupérer le nom j'appelle la fonction
Private Sub Form_Load()
 Msgbox WhoIs
End Sub
TBBUIM

merci à tous et à toutes pour votre aide,
j'ai trouvé pourquoi cela ne marche pas c'est par ce qu'il y a des composants manquants sur certains postes utilisateurs donc il fallait faire une mise à jour d'office
merci encore à tous  et à toutes
si vous avez besoin d'aide n'hésitez pas
à un de ces quatre