Access - Comprobar usuario de computador

 
Vista:

Comprobar usuario de computador

Publicado por Daladier (1 intervención) el 28/02/2005 22:08:25
Hola a todos

tengo un pequeño problema a ver si me colaboran: tengo un formulario que corre en una red de acuerdo al usuario de la red que abra el formulario este debe tomar el nombre de ese usuario y guardarlo en un campo de una BD
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Comprobar usuario de computador

Publicado por Juanjo (238 intervenciones) el 28/02/2005 22:11:30
Copia esta función del API de Windows en un módulo:

Private Declare Function apiGetUserName Lib "advapi32.dll" Alias _
"GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long

Function fOSUserName() As String
' Returns the network login name
Dim lngLen As Long, lngX As Long
Dim strUserName As String
strUserName = String$(254, 0)
lngLen = 255
lngX = apiGetUserName(strUserName, lngLen)
If ( lngX > 0 ) Then
fOSUserName = Left$(strUserName, lngLen - 1)
Else
fOSUserName = vbNullString
End If
End Function
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Comprobar usuario de computador

Publicado por Daladier (12 intervenciones) el 28/02/2005 23:12:18
disculpa no entiendo que es el APi de windows
lo copio en un modulo de access
y luego que hago para saber quien es el usuario y grabarlo en mi base de datos
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Comprobar usuario de computador

Publicado por Juanjo (238 intervenciones) el 01/03/2005 12:26:31
Una vez que lo pegaste en un módulo, ya tienes la función lista para usar. Simplemente para saber el usuario tenés que poner por ejemplo:
usuario_PC=fOSUserName()
Si te resulta poco recordable el nombre "fOSUserName()" podés cambiarlo en el módulo donde pusiste la función. Donde dice Function fOSUserName()" poné "Function El_nombre_que_te_guste()"
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar