Discussion :

[JeremieT]

Bonjour à tous,

Je viens faire appel à vous pour une adaptation d'un code VBA que j'utilise sur Excel mais qui cette fois-ci m'intéresserait pour Access.

Le code est le suivant :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
Option Explicit
Private Const ThePath As String = "C:\XXX\Spy.txt" ' <<<<<<<<<<<<< ADAPTATION
Private Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" _
(ByVal lpBuffer As String, _
nSize As Long) As Long
 
'Spy Opening/Closing
Private Sub Workbook_Open()
Dim lpBuff As String * 25
Dim ret As Long
Dim UserName As String, Spy As String
ret = GetUserName(lpBuff, 25)
UserName = Left(lpBuff, InStr(lpBuff, Chr(0)) - 1)
 
 
Spy = "Open on : " & vbTab & Format(Now, "DD/MM/YYYY HH:MM:SS") & _
vbTab & "Computer Log-In User Name : " & vbTab & UserName & vbTab & _
"Application User Name : " & vbTab & Application.UserName
 
Open ThePath For Append As #1
Print #1, Spy
Close
End Sub
 
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim lpBuff As String * 25
Dim ret As Long
Dim UserName As String, Spy As String
ret = GetUserName(lpBuff, 25)
UserName = Left(lpBuff, InStr(lpBuff, Chr(0)) - 1)
 
Spy = "Close on : " & vbTab & Format(Now, "DD/MM/YYYY HH:MM:SS") & _
vbTab & "Computer Log-In User Name : " & vbTab & UserName & vbTab & _
"Application User Name : " & vbTab & Application.UserName
 
Open ThePath For Append As #1
Print #1, Spy
Close
End Sub

Vous pouvez le tester, il sert à incrémenter un fichier txt avec les données d'ouverture et de fermeture d'un fichier donné en se mettant dans un module VBA.

Maintenant ce que j'aimerais faire c'est pouvoir faire la même chose dans Access.
Mais comment adapter ce code, le mettre dans une Module,...?
Ce qui est important est le

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Workbook_Open

et le

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Workbook_BeforeClose

...comment faire pour Access.

Merci d'avance à tous.
@+

[JeremieT]

...permettez moi de faire un tit up, j'espère que vous m'en voudrez pas...

[Arkham46]

slt,

ben il faut un formulaire à l'ouverture que tu laisses ouvert jusqu'à la fermeture de l'application

et tu mets ton code dans form_open et form_close

[JeremieT]

Salut Arkham46,

Je pensais avoir compris ton odée et j'ai donc mis :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
Option Explicit
Private Const ThePath As String = "C:\Spy.txt" ' <<<<<<<<<<<<< ADAPTATION
Private Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" _
(ByVal lpBuffer As String, _
nSize As Long) As Long
 
Private Sub Form_Open(Cancel As Integer)
Dim lpBuff As String * 25
Dim ret As Long
Dim UserName As String, Spy As String
ret = GetUserName(lpBuff, 25)
UserName = Left(lpBuff, InStr(lpBuff, Chr(0)) - 1)
 
 
Spy = "Open on : " & vbTab & Format(Now, "DD/MM/YYYY HH:MM:SS") & _
vbTab & "Computer Log-In User Name : " & vbTab & UserName & vbTab & _
"Application User Name : " & vbTab & Application.UserName
 
Open ThePath For Append As #1
Print #1, Spy
Close
End Sub
 
Private Sub Form_Close(Cancel As Integer)
Dim lpBuff As String * 25
Dim ret As Long
Dim UserName As String, Spy As String
ret = GetUserName(lpBuff, 25)
UserName = Left(lpBuff, InStr(lpBuff, Chr(0)) - 1)
 
Spy = "Close on : " & vbTab & Format(Now, "DD/MM/YYYY HH:MM:SS") & _
vbTab & "Computer Log-In User Name : " & vbTab & UserName & vbTab & _
"Application User Name : " & vbTab & Application.UserName
 
Open ThePath For Append As #1
Print #1, Spy
Close
End Sub

Malheureusement il me renvoit une erreur :
"L'expression Sur ouverture entrée comme paramètre de la propriété de type évènement est à l'origine d'une erreur La déclaration de procédure d'évènement ne correspond pas à la description de l'évènement du même nom."

Je suis sous Access 97.

Merci d'avance.

[JeremieT]

Bonjour à tous.

Permettez-moi de faire une tite relance sur ce sujet, je suis évidemment preneur de toutes autres idées d'espions qui me permettrait de suivre les ouvertures et fermetures d'une BdD.

Bon Après-midi.

[Arkham46]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

La déclaration de procédure d'évènement ne correspond pas à la description de l'évènement du même nom.

le message est clair : tu as une déclaration de procédure d'évènement qui ne correspond pas à la description de l'évènement du même nom...

Ne crée pas toi même ces déclarations par copier-coller, laisse access les générer.

[Heureux-oli]

J'ai déjà fait ce genre de chose.

Tu ouvres un formulaire lors de l'ouverture de la base de données. Ce formulaire crée un nouvel enregistrement dans une table avec par défaut le nom de l'utilisateur, la date courante sauver l'enregistrement en cours.

Ensuite, ton formulaire passe la main à un autre.

[Heureux-oli]

J'ai retrouvé le code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
 
Private Sub Form_Open(Cancel As Integer)
 
    Dim UserId As String
 
 
    DoCmd.GoToRecord , , acNewRec
 
    UserId = Environ("username") 'assigne le user name à la variable UserId
   'MsgBox UserId
 
    GetUserName = UserId
 
    Dim stDocName As String
    Dim stLinkCriteria As String
 
 
 
    DoCmd.Close
 
    stDocName = "QR"
    DoCmd.OpenForm stDocName, , , stLinkCriteria
 
End Sub

[Maître Kenobi]

Bonjour à tous.

Permettez-moi de faire une tite relance sur ce sujet, je suis évidemment preneur de toutes autres idées d'espions qui me permettrait de suivre les ouvertures et fermetures d'une BdD.

Bon Après-midi.

salut,
lis bien les règles stp, les UP = relances = interdit sur ce forum.
Merci de ta compréhension.

[JeremieT]

ok merci Heureux-oli, mais dois-je créer moi-même la table, comment la nommer, comment nommer le forumlaire...

J'ai appeler mon forumlaire Form, mais il m'indique une erreur de compilation, Variable non définie sur "GetUserName ="

Excusez moi pour le tit up précédent mais n'ayant pas eu de news depuis 1 mois je me suis dit...

Bonne journée.

[Heureux-oli]

Tu crée un table avec trois champs : un numéroauto; un avec le username et le dernier avec la date.

Tu crée un formulaire basé sur la table.

A l'ouverture de la DB, tu ouvre ce formulaire qui en ouvre immédiatement un autre.

Il est possible que Environ ne soit pas pris en compte alors, il faut utiliser le code de cafeine qui se trouve dans son tuto
http://<br /> http://cafeine.develo.../update/<br />

[JeremieT]

Bonjour à tous,

Avec la préciseuse aide de Heureux-oli, j'ai avancé et donc je me retrouve sur ce code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
 
Option Compare Database
Option Explicit
'''""""""""""""""""""""""""""""""""""""""""""""""""""'''
'
'                    API advapi32.dll
'
'''""""""""""""""""""""""""""""""""""""""""""""""""""'''
' récupérer le login Windows
Private Declare Function apiGetUserName Lib "advapi32.dll" Alias _
        "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long
Private Function GetLogin() As String
' Retourne le nom d'usager fourni lors du branchement au réseau.
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
    GetLogin = Left$(strUserName, lngLen - 1)
Else
    GetLogin = ""
End If
End Function
Private Sub Form_Open(Cancel As Integer)
    Dim UserId As String
    DoCmd.GoToRecord , , acNewRec
    MsgBox GetLogin()
    UserId = GetLogin()  'assigne le user name à la variable UserId
    MsgBox UserId
    GetUserName = UserId
    Dim stDocName As String
    Dim stLinkCriteria As String
    DoCmd.Close
    stDocName = "QR"
    DoCmd.OpenForm stDocName, , , stLinkCriteria
End Sub

Le truc maintenant est que j'ai une erreur de compilation : projet ou bibliothèque introuvable sur le

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

String$

XP Pro / Access 97

Merci pour votre aide...

[Maître Kenobi]

il me semble que c'est un problème de références, mais je ne sais plus lequel