Error código
Hola tengo una aplicación en access y he creado un modulo con este código para rescatar el nombre del equipo de la red que accede a una base de datos access y guardar posteriormente este campo, pero al ejecutarlo me da un error, ¿serías tan amable de decirme que ocurre y como se soluciona? Gracias
Declare Function getcomputername Lib "kernel32" _
(ByVal lpbuffer As String, nSize As Long) As Long
'Esta función devuelve el nombre del Usuario
Public Function UsuarioActual() As String
Dim sBuffer As String
Dim lSize As Long
Dim sUsuario As String
sBuffer = Space$(260)
lSize = Len(sBuffer)
Call getcomputername(sBuffer, lSize)
If lSize > 0 Then
sUsuario = Left$(sBuffer, lSize)
'Quitarle el CHR$(0) del final...
lSize = InStr(sUsuario, Chr$(0))
If lSize Then
sUsuario = Left$(sUsuario, lSize - 1)
End If
Else
sUsuario = ""
End If
UsuarioActual = sUsuario
End Function
Declare Function getcomputername Lib "kernel32" _
(ByVal lpbuffer As String, nSize As Long) As Long
'Esta función devuelve el nombre del Usuario
Public Function UsuarioActual() As String
Dim sBuffer As String
Dim lSize As Long
Dim sUsuario As String
sBuffer = Space$(260)
lSize = Len(sBuffer)
Call getcomputername(sBuffer, lSize)
If lSize > 0 Then
sUsuario = Left$(sBuffer, lSize)
'Quitarle el CHR$(0) del final...
lSize = InStr(sUsuario, Chr$(0))
If lSize Then
sUsuario = Left$(sUsuario, lSize - 1)
End If
Else
sUsuario = ""
End If
UsuarioActual = sUsuario
End Function
1 respuesta
Respuesta de denciso
1
Y cual es el error...
El error es el siguiente:
Se ha producido el error 453 en tiempo de ejecución:
No se puede encontrar el punto de entrada de DLL getcomputername
En kernel32.dll
Se ha producido el error 453 en tiempo de ejecución:
No se puede encontrar el punto de entrada de DLL getcomputername
En kernel32.dll
Me imaginaba eso, ya que el proceso que tienes cuando implementas la llamada al getcomputername no existe dentro de tu proyecto, sugiero que veas el código completo en las siguientes ligas:
http://accessbuho.mvps.org/index.htm
O
http://accessbuho.mvps.org/index.htm
O
