Table log en access
Résolu
lys65
-
Sergio63 Messages postés 53 Date d'inscription Statut Membre Dernière intervention -
Sergio63 Messages postés 53 Date d'inscription Statut Membre Dernière intervention -
Bonjour,
Est-il possible d'activer facilement un log de l'activité faite sur une table en access
ou est-il possible de récupérer le user de windows?
quand je fais current user() je reçois le user de la database mais je voudrais récupérer
celui de windows
d'avance merci si vous pouvez m'aider
Est-il possible d'activer facilement un log de l'activité faite sur une table en access
ou est-il possible de récupérer le user de windows?
quand je fais current user() je reçois le user de la database mais je voudrais récupérer
celui de windows
d'avance merci si vous pouvez m'aider
A voir également:
- Table log en access
- Table ascii - Guide
- Table des matières word - Guide
- Table des figures google doc ✓ - Forum Word
- Table des caractères - Guide
- Access runtime ✓ - Forum Access
1 réponse
Bonjour,
Pour récupérer le user de Windows il faut utiliser l'API.
Personnellement j'utilise ce code sur Excel avec Win XP pro, mais ça devrait aussi marcher sur Access :
Private Declare Function apiGetUserName Lib "advapi32.dll" Alias _
"GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long
Dim V_LongUtil As Long
Function NomUtil() As String
'Récupération du nom de l'utilisateur
' pour rechercher le dossier correspondant à son bureau
Dim V_Util As Long
Dim V_NomUtil As String
V_LongUtil = 16
V_NomUtil = String(16, " ")
V_Util = apiGetUserName(V_NomUtil, V_LongUtil)
If V_Util <> 0 Then
NomUtil = Left(V_NomUtil, V_LongUtil - 1)
Else
NomUtil = ""
End If
End Function
Cordialement
Sergio
Pour récupérer le user de Windows il faut utiliser l'API.
Personnellement j'utilise ce code sur Excel avec Win XP pro, mais ça devrait aussi marcher sur Access :
Private Declare Function apiGetUserName Lib "advapi32.dll" Alias _
"GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long
Dim V_LongUtil As Long
Function NomUtil() As String
'Récupération du nom de l'utilisateur
' pour rechercher le dossier correspondant à son bureau
Dim V_Util As Long
Dim V_NomUtil As String
V_LongUtil = 16
V_NomUtil = String(16, " ")
V_Util = apiGetUserName(V_NomUtil, V_LongUtil)
If V_Util <> 0 Then
NomUtil = Left(V_NomUtil, V_LongUtil - 1)
Else
NomUtil = ""
End If
End Function
Cordialement
Sergio