Nombre de usuario en Access 2007

[Maximus]

Estimados,
Les confieso que he leido y probado todo lo que han sugerido al respecto,
pero hasta ahora no tuve exito alguno.
Lo que yo necesito es muy simple, colocar en un campo el nombre de usuario
de inicio de sesion del Windows.

He probado las funciones GetUserName y Environ("UserName"), pero ninguna
funcionó.
Con la primera me sale el siguiente error:
"Este error se produce cuando un evento no se ha podido ejecutar debido a
que Microsoft Office Access no puede evaluar la ubicación de la lógica del
evento. Por ejemplo, si la propiedad OnOpen de un formulario se establece en
=[Field], este error se produce porque Access espera que se ejecute un nombre
de macro o evento al desencadenarse el evento."

Si alguien tiene resuelto este tema, le agradeceria un monton que me pasara
la sentencia y en qué lugar debo escribirla.

Saludos y mil gracias.

Soft: Access 2007
O.S. Windows XP (en red)
Asunto: Recuperar UserID de Windows
Nivel de mis conocimientos: Bajo

[Lazar]

Hola
Prueba con esto

'Nombre usuario PC

Function NombreUsuarioPC() As String
Dim ObjRed As Object
Set ObjRed = CreateObject("WScript.Network")
NombreUsuarioPC = ObjRed.UserName
Set ObjRed = Nothing
End Function

--
Saludos
Ramón

"Maximus" <Max...@discussions.microsoft.com> escribió en el mensaje
news:E83D7C9B-EF8F-4E2C...@microsoft.com...

[Patxi Sanz]

Y con una sola línea:

Environ("UserName")

--
Un saludo,

Patxi Sanz
patxisanz[ARROBA]yahoo[PUNTO]es
http://es.geocities.com/patxisanz/index.html
Tudela (NA)

[Maximus]

Patxi, como dije arriba, esta instruccion no me funciona.
Lo que hago es crear un cuadro de texto y ponerle en "valor predeterminado"
lo siguiente: =Environ("UserName").
Esto me devuelve un "#Nombre?".

Quizas estoy haciendo algo mal. Si es así, espero tus comentarios.
Saludos.
Maxi

[Patxi Sanz]

Revisa la seguridad de la base de datos.

Otra posibilidad, como la estás usando directamente en la propiedad, es
crear una función personalizada:

Function DameNombreUsuario() As String
DameNombreUsuario = Environ("UserName")
End Function

Y usar esa función en la propiedad Valor predeterminado:

= DameNombreUsusario()