Discussion :

[LearningAccess]

Bonjour,

J'aimerais mettre comme valeur par défaut le nom de l'utilisateur courant dans une liste déroulante qui regroupe le nom de plusieurs utlisateurs.

Je tape donc comme valeur par défaut:
[DBEngine].[Workspaces](0).[UserName]

Mais ça ne fonctionne pas, Access me met #Nom? à la place.

Que faire?

[ClaudeLELOUP]

Bonjour,

et avec

Environ("username")

qu'obtiens-tu ?

[LearningAccess]

Bonjour,

Ca me donne le même résultat:

#Nom?

[ClaudeLELOUP]

Procèdes-tu bien comme ceci ?

[LearningAccess]

Oui, je procède bien comme dans ton image. Ce qui est étrange c'est que la plupart du temps il m'affiche #Nom? mais aussi quelquefois il m'affiche le nom de ma session d'utilisateur et pas le nom avec lequel je suis connecté dans le workspace.

[zoom61]

Salut,

Cela ne serait pas plutôt Environ$("username") !

@+

[LearningAccess]

Bonjour,

Non, ça me met toujours #Nom ?

[zoom61]

Si Environ$("username") et Environ("username") ne fonctionnent pas, il doit te manquer une référence ! Contrôle tes références si l'une n'est pas marquée manquante.

@+.

[LearningAccess]

J'ai rajouté cette fonction puisqu'apparemment, Environ ne fonctionne pas sous Access 2003 si on ne la crée pas:

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
Option Compare Database
 
Public Function Environ(Expression)
On Error GoTo Err_Environ
 
    Environ = VBA.Environ(Expression)
 
Exit_Environ:
    Exit Function
 
Err_Environ:
    MsgBox err.Number & " - " & err.Description
    Resume Exit_Environ
 
End Function

Maintenant ça ne me met plus du tout #Nom ? mais mon nom de session et pas celui avec lequel je m'identifie dans Access que ce soit avec Environ$("username") ou Environ("username") .

[LearningAccess]

Bon, c'est pas grave, j'ai trouvé une astuce: j'ai créé un champ texte (que je cacherai) qui se remplit sur chargement du formulaire par:

Code :

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

1
2
3
4
5
Private Sub Form_Current()
 
Me.NomduChampTexte = DBEngine.Workspaces(0).UserName
 
End Sub

Et j'ai mis dans la valeur par défaut du champ déroulant:

= [NomduChampTexte]

Et maintenant ça marche.

Merci quand-même pour votre aide.

[zoom61]

C'est normal Environ$("username") ou Environ("username") récupère le nom de l'utilisateur système.

Dans ton cas pourquoi ne pas utiliser une variable public qui se mettrait à jour au moment de l'ouverture comme ceci :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Public ValUserName as string
...
Private Sub Form_Current()
   ValUserName = DBEngine.Workspaces(0).UserName
End Sub
...
Function F1()
   ...
   Foms!F_Formulaire.NomduChampTexte.Value = ValUserName
   ...
End Function