| Usuario |
Login de usuarios en red |
Desconocido
|
| Enviado - 8/5/2003 |
| |
Hola a todos.
Necesito implementar una aplicación con access y VB q detecte quién está logado en el sistema. Me he declarado un modulo llamado "ModuloLogin":
Option Compare Database
Option Explicit
Private Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long
Private Function GetLogin() As String
Dim lngLen As Long
Dim strBuf As String
Const MaxUserName = 255
strBuf = Space(MaxUserName)
lngLen = MaxUserName
If CBool(GetUserName(strBuf, lngLen)) Then
GetLogin = Left$(strBuf, lngLen - 1)
Else
GetLogin = ""
End If
End Function
A este módulo lo llamo desde un formulario con el evento OnLoad (dependiendo de quien esté logado dejará abrir el formulario o no):
Private Sub Form_Load()
Dim strUser As String
strUser = [ModuloLogin].GetLogin
.......
End Sub
Cnd hace la llamada a la función dice q no encotró el metodo o dato miembro. No sé x q pasa esto. Alguien me puede ayudar??
Muchas gracias de antemano
|
| |
|
Desconocido
|
| Enviado - 8/5/2003 |
| |
| Vale, vale. Soy yo otra vez. Ya me he dado cuenta del Private q tengo en la declaración de la función. Lo q pasa es q ahora no me reconoce las ordenes space ni Left$ (imposible encontrar el proyecto o biblioteca), y eso sí q no sé x q es.. |
| |
|
|
|
Microsoft Certified