Newsgroup: it.comp.appl.access
Titolo: registrazione dell'account

Come posso fare per far comparire in un campo di una tabella, o in una
casella di testo, l'account della persona che accede al database?
Grazie, Salvatore


Probabilmente non sarà proprio quello che cerchi ma puoi provare questo:
Declare Function GetUserName Lib "advapi32.dll" Alias _
    "GetUserNameA" (ByVal lpBuffer As String, _
    nSize As Long) As Long
Function NomeUtente()
     Dim szBuffer As String, lBuffSize As Long, RetVal As Boolean
    szBuffer = Space(20)
    lBuffSize = Len(szBuffer)
    RetVal = GetUserName(szBuffer, lBuffSize)
    If RetVal Then
       NomeUtente = UCase(Trim(Left(szBuffer, lBuffSize - 1)))
    Else
       NomeUtente = Space(20)
    End If
End Function
--
Claudio Tregambe

     nSize As Long) As Long
-Cut-
Posso intromettermi anche io? se si è poossibile anche recuperare il TCP/IP
della macchina dell'utente? visto che qualcuno si potrebbe collegare da una
macchina diversa, ma con lo stesso User?
Grazie
Roby

 ha scritto nel messaggio
news:9k66vf$2plct$1...@ID-52001.news.dfncis.de...

Questa non è farina del mio sacco ma ....
Public Declare Function GetComputerName Lib "kernel32" Alias _
    "GetComputerNameA" (ByVal lpBuffer As String, nSize As Long) As Long
Public Declare Function SetComputerName Lib "kernel32" Alias _
    "SetComputerNameA" (ByVal lpComputerName As String) As Long
Public Const MAX_COMPUTERNAME_LENGTH = 255
Public Const ERROR_INVALID_PARAMETER = 87
Public Function GetCompName() As String
    Dim lngRet As Long
    Dim lenStr As Long
    Dim NomeComputer As String
    NomeComputer = String(256, 0)
    lenStr = Len(NomeComputer)
    lngRet = GetComputerName(NomeComputer, lenStr)
    GetCompName = Left(NomeComputer, lenStr)
End Function
... almeno il nome della macchina lo recuperi, purtroppo non ho molto tempo
per approfondire il discorso IP
saluti
--
Claudio Tregambe

 ha scritto nel messaggio
news:9k5l1v$pgq$1...@fe2.cs.interbusiness.it...

Ho appena provato la funzione su una casella di testo in una maschera.
Il risultato è stato di 20 spazi, (l'ho appurato con la funzione len sulla
casella di testo), cioè corrispondente all'else della funzione.
Come mai?


Ho fatto una prova al volo ed a me funziona correttamente, il perchè poi non
funzioni sulla tua macchina non lo posso sapere così su due piedi visto che
non ho la minima idea di come è configurata, è almeno in rete? Guarda che
questa funzione ti ritorna il nome utente di rete, non l'ho mai provata su
un pc singolo.
Come dicevi giustamente, se l'IF ti ritorna 20 spazi è perchè nella funzione
non è stato possibile recuperare il nome utente.
Purtroppo però più di così non ti posso aiutare.
saluti

 ha scritto nel messaggio
news:9katkg$8d0$1...@fe1.cs.interbusiness.it...

Innanzitutto, grazie.
Come account intendevo quello legato alla protezione di access, cioè legato
ai gruppi di lavoro.
Dove viene salvato?
Ciao, Salvatore


Nella guida in linea prova a cercare SystemDB
ciao


CurrentUser
-- 
Federico
----------------------------------
Rimuovi paperino. per e-mail
----------------------------------
Tutte le richieste che arrivano
in privato, vengono cestinate.
----------------------------------
Sito Comune di it.comp.appl.access
http://www.sitocomune.com
mailto:
webm...@sitocomune.com
----------------------------------