Logo GNT
Actualités Tests & Guides Bons Plans
Gemini 3 Shein GTA 6 iPhone 17 Switch 2 ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Access récupérer login dans une table...

récupérer login dans une table...

21 réponses
Avatar
Fred Pasc
Bonjour,

J'ai créé une base de données sous Access 2000, je l'ai sécurisé avec
l'assistant et en suivant toute une procédure trouvée sur le net. Je
souhaite savoir desormais comment peut-on faire pour enregistrer le login de
la personne qui se connecte ainsi que la date de sa connexion dans une
table.
Merci d'avance pour votre aide.

A+
Fred
Signaler un problème avec ce contenu

10 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
1 2 3
Avatar
Gafish
Bonjour,

Regarde de ce côté là, tout est y est je pense :
http://mypage.bluewin.ch/w.stucki/Admin.htm#JournalActivites

Arnaud

Fred Pasc wrote:
Bonjour,

J'ai créé une base de données sous Access 2000, je l'ai sécurisé avec
l'assistant et en suivant toute une procédure trouvée sur le net. Je
souhaite savoir desormais comment peut-on faire pour enregistrer le
login de la personne qui se connecte ainsi que la date de sa
connexion dans une table.
Merci d'avance pour votre aide.

A+
Fred


Avatar
ST
Ci-joint un exemple de code que j'ai utilisé dans une base et que j'ai
associé à un bouton de connexion.


DoCmd.RunSQL "INSERT INTO [NomTable] (Login, Jour, Heure)" _
& " VALUES (" & Me.login & ", '" & Date & "' , '" & Time & "')"

ST

"Fred Pasc" a écrit dans le message de
news:d61m4f$q08$
Bonjour,

J'ai créé une base de données sous Access 2000, je l'ai sécurisé avec
l'assistant et en suivant toute une procédure trouvée sur le net. Je
souhaite savoir desormais comment peut-on faire pour enregistrer le login
de

la personne qui se connecte ainsi que la date de sa connexion dans une
table.
Merci d'avance pour votre aide.

A+
Fred




Avatar
didier TEST
"Fred Pasc" a écrit dans le message de
news:d61m4f$q08$
Bonjour,

J'ai créé une base de données sous Access 2000, je l'ai sécurisé avec
l'assistant et en suivant toute une procédure trouvée sur le net. Je
souhaite savoir desormais comment peut-on faire pour enregistrer le login
de

la personne qui se connecte ainsi que la date de sa connexion dans une
table.
Merci d'avance pour votre aide.

A+
Fred

le login access ou windows ?

- pour acces j'ai fait ca y a longtemps... regarde du cote de CurrentUser.
- pour le login windows :
Function UserName()
Dim oNetwork
Set oNetwork = CreateObject("wscript.network")
UserName = oNetwork.UserName
Set oNetwork = Nothing
End Function
DJ

Avatar
Fred Pasc
Bonjour,
Merci beaucoup pour ce lien, c'est un peu compliqué pour moi mais bien
expliqué alorsje devrait m'en sortir.
Merci encore

A+
Fred



"Gafish" a écrit dans le message de news:

Bonjour,

Regarde de ce côté là, tout est y est je pense :
http://mypage.bluewin.ch/w.stucki/Admin.htm#JournalActivites

Arnaud

Fred Pasc wrote:
Bonjour,

J'ai créé une base de données sous Access 2000, je l'ai sécurisé avec
l'assistant et en suivant toute une procédure trouvée sur le net. Je
souhaite savoir desormais comment peut-on faire pour enregistrer le
login de la personne qui se connecte ainsi que la date de sa
connexion dans une table.
Merci d'avance pour votre aide.

A+
Fred






Avatar
Fred Pasc
Bonjour,
Merci d'abord. Ton code me parait simple (et ça me plait beaucoup). J'espère
que cela va marcher.
Merci encore

A+
Fred


"ST" a écrit dans le message de news:
d61o7f$
Ci-joint un exemple de code que j'ai utilisé dans une base et que j'ai
associé à un bouton de connexion.


DoCmd.RunSQL "INSERT INTO [NomTable] (Login, Jour, Heure)" _
& " VALUES (" & Me.login & ", '" & Date & "' , '" & Time & "')"

ST

"Fred Pasc" a écrit dans le message de
news:d61m4f$q08$
Bonjour,

J'ai créé une base de données sous Access 2000, je l'ai sécurisé avec
l'assistant et en suivant toute une procédure trouvée sur le net. Je
souhaite savoir desormais comment peut-on faire pour enregistrer le
login


de
la personne qui se connecte ainsi que la date de sa connexion dans une
table.
Merci d'avance pour votre aide.

A+
Fred








Avatar
Fred Pasc
Re-bonjour,
C'était pour le login access. Merci de tes informations quand même, je pense
que ça peut toujours me servir plus tard.
A+
Fred


"didier TEST" a écrit dans le message de news:


"Fred Pasc" a écrit dans le message de
news:d61m4f$q08$
Bonjour,

J'ai créé une base de données sous Access 2000, je l'ai sécurisé avec
l'assistant et en suivant toute une procédure trouvée sur le net. Je
souhaite savoir desormais comment peut-on faire pour enregistrer le
login


de
la personne qui se connecte ainsi que la date de sa connexion dans une
table.
Merci d'avance pour votre aide.

A+
Fred

le login access ou windows ?

- pour acces j'ai fait ca y a longtemps... regarde du cote de CurrentUser.
- pour le login windows :
Function UserName()
Dim oNetwork
Set oNetwork = CreateObject("wscript.network")
UserName = oNetwork.UserName
Set oNetwork = Nothing
End Function
DJ





Avatar
Fred Pasc
Re-Bonjour,
Dans ton code :

DoCmd.RunSQL "INSERT INTO [NomTable] (Login, Jour,Heure)" _
& " VALUES (" & Me.login & ", '" & Date & "' , '" & Time & "')"

Tu utilises Me.login, ma base n'en veux pas. Peux tu m'expliquer où
exactement il faut mettre ce code si on veut récupérer le login de
l'utilisateur de ma base access.
Merci d'avance
A+
Fred

"ST" a écrit dans le message de news:
d61o7f$
Ci-joint un exemple de code que j'ai utilisé dans une base et que j'ai
associé à un bouton de connexion.


DoCmd.RunSQL "INSERT INTO [NomTable] (Login, Jour, Heure)" _
& " VALUES (" & Me.login & ", '" & Date & "' , '" & Time & "')"

ST

"Fred Pasc" a écrit dans le message de
news:d61m4f$q08$
Bonjour,

J'ai créé une base de données sous Access 2000, je l'ai sécurisé avec
l'assistant et en suivant toute une procédure trouvée sur le net. Je
souhaite savoir desormais comment peut-on faire pour enregistrer le
login


de
la personne qui se connecte ainsi que la date de sa connexion dans une
table.
Merci d'avance pour votre aide.

A+
Fred








Avatar
didier TEST
"Fred Pasc" a écrit dans le message de
news:d61qb7$sl1$
Re-Bonjour,
Dans ton code :

DoCmd.RunSQL "INSERT INTO [NomTable] (Login, Jour,Heure)" _
& " VALUES (" & Me.login & ", '" & Date & "' , '" & Time & "')"

Tu utilises Me.login, ma base n'en veux pas. Peux tu m'expliquer où
exactement il faut mettre ce code si on veut récupérer le login de
l'utilisateur de ma base access.
Merci d'avance
A+
Fred


AMHA il fait appel a un champs kekpart qui s'appelle "LOGIN" si tu veux le
recuperer aussi lors de maj d'enreg pour suivi de qui fait quoi quand ...
regarde dans l'aide CurrentUser (mon F1 marche plus ) ca te retourne le nom
de login Access
tu remplaces Me.login par CurrentUser et je serais pas surpris que ca
marche de suite.

petit precision pourquoi 2 champs pur la meme chose (date heure) ??? un
champ CnxTime = Now()
et apres pour l'affichage Format() ets ton ami !

DJ

Avatar
Fred Pasc
re...

Merci, on approche du but mais maintenant, quand je clique, il me retourne
une fenêtre avec "entrez la valeur du paramètre", il y bien le nom de
l'utilisateur en cours mais en etiquette de la zone de texte qui est vide.
Du coup, il sauvegarde dans la table la valeur entrée dans cette zone de
texte et pas la valeur de l'utilisateur courant. Comment remédier à celà ?
(PS: je n'ai pas d'aide spécifique à CurrentUser dans mon access)
Merci d'avance

A+
Fred


"didier TEST" a écrit dans le message de news:
#

"Fred Pasc" a écrit dans le message de
news:d61qb7$sl1$
Re-Bonjour,
Dans ton code :

DoCmd.RunSQL "INSERT INTO [NomTable] (Login, Jour,Heure)" _
& " VALUES (" & Me.login & ", '" & Date & "' , '" & Time & "')"

Tu utilises Me.login, ma base n'en veux pas. Peux tu m'expliquer où
exactement il faut mettre ce code si on veut récupérer le login de
l'utilisateur de ma base access.
Merci d'avance
A+
Fred


AMHA il fait appel a un champs kekpart qui s'appelle "LOGIN" si tu veux le
recuperer aussi lors de maj d'enreg pour suivi de qui fait quoi quand ...
regarde dans l'aide CurrentUser (mon F1 marche plus ) ca te retourne le
nom

de login Access
tu remplaces Me.login par CurrentUser et je serais pas surpris que ca
marche de suite.

petit precision pourquoi 2 champs pur la meme chose (date heure) ??? un
champ CnxTime = Now()
et apres pour l'affichage Format() ets ton ami !

DJ





Avatar
Fred Pasc
Re_Bonjour,

J'essaye depuis bientôt 3h d'utiliser le code du lien que tu m'a donné et je
n'arrive pas à le faire fonctionner. A l'exécution, il ne me reconnait pas :
strUsager et je ne vois pas comment je peux lui faire connaître ou par quoi
le remplacer.
Merci d'avance à celui qui pourra m'éclairer

Je vous donne mon code :

Option Compare Database

Option Explicit
' Version DAO
Public gstrGUID As String
Function AjouterJournalUsagers(CurrentUser() As String, dtMaintenant As
Date) As String
' Objectif: Ajouter un enregistrement dans la tblJournalUsagers quand un
usager se connecte à la bdd
' Appel lors de l'ouverture du formulaire de démarrage de l'application et
lors de la' création d'états fondés sur une requête comportant les deux
tables de journalisation.
Dim strGUID As String, rs As Recordset
Set rs = CurrentDb.OpenRecordset("tblJournalUsagers")
With rs

.AddNew
.Fields("Horodatage") = dtMaintenant
.Fields("Usager") = CurrentUser()
strGUID = .Fields("GUID")
.Update
End With
AjouterJournalUsagers = strGUID
End Function

Sub AjouterJournalEvenements(strGUID As String, strEvenement As String)
' Objectif: Ajouter un enregistrement dans la tblJournalEvenements quand un
usager effectue une opération
' de mise à jour ou de création d'enregistrement
' Appel lors de l'ouverture du formulaire de démarrage, lors d'événements
tels que AprèsMAJ ou
' lors de la création d'états.
Dim rs As Recordset
Set rs = CurrentDb.OpenRecordset("tblJournalEvenements")
With rs

.AddNew
.Fields("GUID") = strGUID
.Fields("Evenement") = strEvenement
.Update
End With
End Sub

Private Sub Form_Open(Cancel As Integer)
gstrGUID = AjouterJournalUsagers(CurrentUser(), Now())
Call AjouterJournalEvenements(gstrGUID, "Connecté")
End Sub


A+
Fred


"Gafish" a écrit dans le message de news:

Bonjour,

Regarde de ce côté là, tout est y est je pense :
http://mypage.bluewin.ch/w.stucki/Admin.htm#JournalActivites

Arnaud

Fred Pasc wrote:
Bonjour,

J'ai créé une base de données sous Access 2000, je l'ai sécurisé avec
l'assistant et en suivant toute une procédure trouvée sur le net. Je
souhaite savoir desormais comment peut-on faire pour enregistrer le
login de la personne qui se connecte ainsi que la date de sa
connexion dans une table.
Merci d'avance pour votre aide.

A+
Fred






1 2 3