|
Sujet n°287 |
vb et access
par alihadjali1
le 06/11/2009 : 13:53 |
Salut
j'aimerai bien connaitre comment je peux afficher ou relier cette fonction et afficher son resultat sur un formulaire ou un etat:
Obtenir le nom de l'ordinateur en cours
[c=#FF4040]Private Declare Function api_GetComputerName _
Lib "kernel32" Alias "GetComputerNameA" _
(ByVal lpBuffer As String, nSize As Long) As Long
Public Function fComputerName() As String
If Len(Environ$("ComputerName")) = 0 Then
Dim NBuffer As String
Dim Buffsize As Long
Buffsize = 16
NBuffer = Space$(Buffsize)
Call api_GetComputerName(NBuffer, Buffsize)
fComputerName = Trim$(NBuffer)
If Right(fComputerName, 1) = Chr(0) Then
fComputerName = Left(fComputerName, Len(fComputerName) - 1)
End If
Else
fComputerName = Environ$("Computername")
End If
End Function
[/c] |
Réponse n° 1 |
par marsouin
le 06/11/2009 : 23:28 |
Bonjour, Me.Nom_du_Controle = fComputerName Si le contrôle est une étiquette : Me.Nom_du_Controle.Caption = fComputerName Cordialement Marsouin |
[ Retour à la liste des sujets ]
| Recherche
Préférences
1 membre
Connectés :
( personne )
|