Discussion :

[Nabouille]

Bonjour,

j'ai un problème qui paraît simple comme ça... mais je ne sais pas comment m'y prendre.

J'ai un formulaire d'encodage qui remplit une table.
Chaque personne a une application perso qui est liée à la table sur le serveur.
Suivant la personne qui encode (via sa propre application), les initiales de celle-ci apparaisse automatiquement dans une colonne de la table.
J'ai donc pour chaque formulaire un champ caché 'Initiales' dans lequel je mets les initiales de la personne comme "valeur par défaut".

Jusque là, tout va bien.

Pour ne pas devoir modifier les "valeurs par défaut" des 3 formulaires de l'application lorsque je crée une application pour une nouvelle personne, j'aurais aimé utiliser une constante que je puisse aller rechercher par exemple via le générateur d'expression dans "Constantes". Je n'aurais qu'à changer cette constante à un seul endroit...

Lorsque je met dans valeur par défaut, une formule renvoyant à une colonne d'une requête (d'une seule ligne), cela ne fonctionne pas...

J'ai essayé aussi en VB, mais je ne sais pas où placer ma commande pour que la constante apparaisse dans le générateur d'expression.

Merci pour votre aide... je suis sûre que c'est tour bête.

Nabouille

[Heureux-oli]

Le principe que j'utilise est une table de concordance.
Dans cette table, j'ai le texte que je veux voir ou utiliser et le Login name de la personne.

Partant de la, je fais une fonction qui va renvoyer le texte voulu en fonction du nom de la personne loggée sur le PC.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Public Function Utilisateur() As String
Dim stUser As string
Dim rs as DAO.recordSet
Dim SQL as String
 
stUser = Environ("UserName")
SQL = "SELECT * FROM tblUSER WHERE USER = '" & stUser & "';"
Set rs = CurrentDB.OpenRecordSet(SQL)
Ustilisateur = rs.Fields(1)
rs.close
set rs = Nothing
End Function

La table comporte deux champs
Le premier contenant le Logon name
et le second, les initiales.

[Nabouille]

Bonjour,

merci pour la réponse, mais où dois-je insérer cette fonction et comment puis-je récupérer la constante dans "valeur par défaut" d'un champ de mon formulaire?

Merci,

Nabouille

[Heureux-oli]

La fonction, tu la mets dans un module de ta DB.

Pour récupérer la valeur dans un formulaire, dans valeur par défaut

Code :

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

=Utilisateur()

Tu peux aussi utiliser un évènement sur ton formulaire pour insérer la valeur renvoyée par la fonction.

[Nabouille]

Génial

merci beaucoup, cela va me faire gagner beaucoup de temps

Très bonne journée

Nabouille