Discussion :

[Marc_27]

Bonjour,

J'ai une base Access qui sert de menu pour des autres applications Access.
Ma question:

Dans mon application menu, j'ai une variable globale (écrit dans une module),

Code :

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

Public Mmec_glo as String

et j'ai besoin de l'utiliser dans les autres applications.

Est-ce que c'est possible de recuperer cette valeur, une fois que je suis dans la vrai application (pas dans le menu, qui reste toujours ouvert)?

OBS: la valeur de cette variable reste toujours dans une zone de texte invisible du menu des applications.

Merci d'avance.

[ilank]

Bonjour marc27,
de quelle manière appelles-tu les applications depuis le menu ?

[Marc_27]

Bonjour ilank.

Je l'ouvre par biais du code suivant:

Code :

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

1
2
3
4
Static ac As Access.Application: Set ac = New Access.Application
acapp.AutomationSecurity = msoAutomationSecurityLow
ac.Visible = True
ac.OpenCurrentDatabase ("E:\Data\Impression\Gestion Clients.mdb")

En fait, j'arrive à utiliser cette valeur par biais d'une table liée:

Code :

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

1
2
3
4
5
6
7
8
9
Set rs = New ADODB.Recordset
rs.Open "T_logs_Gestion_Clients", CurrentProject.Connection, _
adOpenDynamic, adLockOptimistic
With rs
   .AddNew
   ![USER] = MEC.Value
   ![Time] = Now
   .Update
End With

où MEC est le champ du formulaire menu.
Après, lors de l'ouverture de la nouvelle application (Gestion Clients), je retrouve le dernier enregistrement de cette table.

Le problème arrive quand plus d'un utilisateur fait ça au même temps.
C'est ça qui je voudrais eviter, en appelant directement la valeur de l'application menu...

[ilank]

Tu es donc dans un environnement multipostes; tu peux tenter en ajoutant à cette table le nom de l'ordinateur de l'utilisateur. Le nom de l'ordinateur peut être récupéré en VBA par :

Code :

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

 environ("COMPUTERNAME")

; puisque chaque utilisateur a son poste de travail, maintenant au lieu d'aller chercher le dernier enregistrement de la table, l'application "Gestion clients" va lire le dernier enregistrement correspondant à l'ordinateur de l'utilisateur.

[Marc_27]

Merci beaucoup pour l'idée !

Je vais l'essayer demain matin et je poste après.

A+

[Marc_27]

J'ai essayé, mais ça sert pas, car l'application est dans un server, et donc tous les utilisateurs ont un même nom d'ordinateur...

est-ce que c'est possible de recuperer l'ID utilisateur du Windows??

[User]

Salut,

je ne connais pas la methode pour recuperer la valeur d'une variable globale declarer dans un module d'une autre BD, mais tu peux utiliser une fonction publique que tu declare dans le module de ta BD menu du style:

Code :

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

1
2
3
public function mavariable()
mavariable=Mmec_glo
end function

et tu appelle cette fonction depuis une autre application

de la maniere suivante (si ta bd menu est "c:\Rep\dbmenu.mdb")

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Dim str As String
 
Set app = New Access.Application
 
app.OpenCurrentDatabase "c:\Rep\dbmenu.mdb"
 
' appelle de la fonction "MaVariable" et recuperation de la valeur dans str
str = app.Run("MaVariable") 
 
MsgBox (str)  ' affichage de la valeur
 
...

A+

[Marc_27]

Maintenant je n'ai pas le temps pour tester ta solution User (cette fois c'est vrai!),

Mais je vais l'essayer demain matin


Merci beaucoup et à demain.

[ilank]

Heu non Marc, l'application ne tourne pas sur le serveur mais sur le poste client qui charge le fichier. A moins que tu utilises un outil comme Citrix.

Nom de l'ordinateur : Environ("COMPUTERNAME")
Nom de la session : Environ("USERNAME")

[Marc_27]

Merci beaucoup User et ilank.

Le Environ("username") suffi pour mes applications
Mais je vais réfléchir sur le sujet de la function...