MaximoAccess

Caro Usuário, não tire as suas duvidas nas Salas de Repositório, abra sempre um novo tópico relacionado, nas salas destinadas para o efeito, como Sala de Tabelas, Consultas, Formulários, Relatórios, Macros, Módulos e VBA.

Obrigado

Administração do MaximoAccess

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

    [Resolvido]Retornar o nome do usuário logado

    Compartilhe

    JOCAMPI
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2
    Registrado : 24/02/2015

    [Resolvido]Retornar o nome do usuário logado

    Mensagem  JOCAMPI em Ter 24 Fev 2015, 12:20

    Senhores

    Estou com um problemão, tinha um módulo que usava no access onde retornava o nome do usuário logado na rede, porém no microsoft access 2013 não esta funcionando. O que esta errado, podem me ajudar?

    'Segue abaixo como esta no módulo e não esta mais funcionando, a parte em vermelho acredito que esta o ṕroblema.

    Option Compare Database
    Option Explicit

    'Modos de abertura do arquivo
    Const OFS_MAXPATHNAME = 128
    Const OF_CREATE = &H1000
    Const OF_READ = &H0
    Const OF_WRITE = &H1

    'OpenFile() Structure
    Type OFSTRUCT
       cBytes                      As Byte
       fFixedDisk                  As Byte
       nErrCode                    As Integer
       Reserved1                   As Integer
       Reserved2                   As Integer
       szPathName(OFS_MAXPATHNAME) As Byte
    End Type

    Declare Function LZOpenFile Lib "lz32.dll" Alias "LZOpenFileA" (ByVal lpszFile As String, lpOf As OFSTRUCT, ByVal style As Long) As Long
    Declare Function LZRead Lib "lz32.dll" (ByVal hfFile As Long, ByVal lpvBuf As String, ByVal cbread As Long) As Long
    Declare Sub LZClose Lib "lz32.dll" (ByVal hfFile As Long)


    ' Retorna o nome do usuário na rede (logado)
    ' Retorna o nome da máquina

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

    Private Declare Function apiGetComputerName Lib "kernel32" Alias _
       "GetComputerNameA" (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

    Function fOSMachineName() As String
    'Returns the computername
    Dim lngLen As Long, lngX As Long
    Dim strCompName As String
       lngLen = 16
       strCompName = String$(lngLen, 0)
       lngX = apiGetComputerName(strCompName, lngLen)
       If lngX <> 0 Then
           fOSMachineName = Left$(strCompName, lngLen)
       Else
           fOSMachineName = ""
       End If
    End Function

    Obrigado

    Avelino Sampaio
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3350
    Registrado : 04/04/2010

    Re: [Resolvido]Retornar o nome do usuário logado

    Mensagem  Avelino Sampaio em Ter 24 Fev 2015, 13:02

    Seja benvindo!

    corrija as API's conforme este meu artigo:

    [Você precisa estar registrado e conectado para ver este link.]

    Aguardamos


    .................................................................................
    ============ Quer aprender Access em alta velocidade ? ============

    || [Você precisa estar registrado e conectado para ver esta imagem.] Acesse o site UsandoAccess.com.br e veja um ótimo kit de ensino que tenho para você.

    ===========================================================

    JOCAMPI
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2
    Registrado : 24/02/2015

    Re: [Resolvido]Retornar o nome do usuário logado

    Mensagem  JOCAMPI em Ter 24 Fev 2015, 13:14

    Valeu,

    Resolvido o problema de todos os banco na empresa, muito obrigado mesmo.

    Abraços

      Data/hora atual: Sex 09 Dez 2016, 11:28