Discussion :

[@rkane]

bonjour à tous,
pour tracer le parcours des utilisateurs dans une base avec environnement utilisateur, j'utilise ce code que j'ai teste avec succes sur quelques formulaires :

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
Private Sub Form_Load()
Me.Ouverture.Value = Now()
End Sub
 
Private Sub Form_Close()
Me.Fermeture.Value = Now()
DoCmd.SetWarnings False
Dim sql As String
sql = "INSERT INTO JournalConnectionsUtilisateurs ( Nom, Ouverture, Formulaire, Fermeture )" & _
      "SELECT Formulaires!ConsignesPonctuelles!Nom AS Expr1," & _
      "Formulaires!ConsignesPonctuelles!Ouverture AS Expr2," & _
      "Formulaires!ConsignesPonctuelles!Formulaire AS Expr3," & _
      "Formulaires!ConsignesPonctuelles!Fermeture AS Expr4;"
DoCmd.RunSQL sql
End Sub

je dispose sur chaque formulaire 4 champs independants : Nom/Ouverture/Formulaire/Fermeture
Nom est recupere via le form de login et formulaire est le nom du formulaire qui est ouvert recupere par une valeur par defaut "Forms!MonForm.Nom"
Le principe fonctionne bien, mais c'est assez fastidieux de placer controles et codes dans chaque form... Y 'aurait il une possibilité de remplacer cela par une fonction ?
Merci d'avance.
Patrick

[pgz]

Bonjour,

Je ne suis pas sûr d'avoir bien compris to pb, mais as-tu pensé à définir une fonction comme

Code :

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

Public fctEnregistrerFormulaires( frm as form) as boolean

Qui se comporte comme une procédure d'enregistrement qui renvoie vrai si l'enregistrement c'est bien passé.
Ou

Code :

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

Public fctEnregistrerFormulaires( frm as form, ByVal sCtl1 as string, ...sCtl4 as string) as boolean

si les noms des contrôles indépendants changent d'un formulaire à l'autre.

Le contrôle "fermeture" n'est pas trop utile, la fonction peut directement utiliser Now().

Bon courage

[pgz]

..

[micniv]

Ma suggestion :
Tu as 4 valeurs à renseigner pour ta fonction.
Nom/dtOuverture/Formulaire/dtFermeture

Nom : ok
Form : ok
dtOuverture : à l'ouverture du frm, tu stockes cette date dans une variable de type date déclarée au niveau du module du frm
dtFermeture : date en Quittant le frm

Ainsi, en Quittant le frm, tu peux lancer ta fonction d'INSERT.

Avantage : tu n'as qu'une déclaration à faire par form et une seule action SQL sur la table JournalConnectionsUtilisateurs

Inconvenient : si c'est pour repérer des plantages éventuels d'utilisateurs sur un même frm, il faut mieux faire un INSERT des 3 valeurs connues à l'ouverture et un UPDATE (pour màj dtFermeture) en quittant le form

A+

[@rkane]

salut micniv,merci pour ta reponse, mais la procedure que tu me decris est deja en place et fonctionne... je veux savoir s'il est possible d'eviter de recopier "physiquement" les 4 controles independants et les lignes de codes dans chaque formulaires, en passant par une fonction qui serait simplement appelée à l'ouverture des formulaires ?

pour PGZ, ben je crois qu'on est pas sur la meme longueur d'onde...

[micniv]

Ah les longueurs d'onde ... !
A aucun moment je ne parle de champs dans ma suggestion de solution : meme qu'il y en a aucun ! seulement une seule déclaration en tête de module
A+