Discussion :

[Imitator92]

Bonjour

Est il possible de faire apparaitre tel ou tel élément présent sur un formulaire en fonction du nom de la machine qui travaille sur une application ?

J'ai trouvé une FAQ concernant la récupération du nom de la machine ici...cela dit j'avoue ne pas arriver a m'en servir mais de plus, je voudrais savoir si il est possible, une fois ce nom de machine repéré et identifié sur une table de référence, de faire apparaitre un contrôle ou au contraire d'en faire disparaitre un...

Merci de vos réponses.

[Imitator92]

Bonjour

J'ai réussi grace au tuto que j'avais cité, à extraire le nom de la machine sur lequel travail une personne.
J'ai maintenant une table qui référence les différents utilisateurs et le nom de leur machine.
Je souhaiterai que mon application vérifie dans la table de référencement des utilisateurs pour voir si le numéro de machine figure bien afin:
- s'il y figure bien de faire apparaitre certains contrôles
- s'il n'y figure pas de clore l'application

Je sais faire apparaitre les contrôles ou clore l'application, mais je ne sais pas comment vérifier si le numéro de machine figure bien dans la table de référence.

Pouvez vous m'aider

Merci

[Imitator92]

Bonjour,

Toujours a la recherche de la solution de mon problème j'ai essayé le code suivant

Code :

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

1
2
3
4
5
6
7
 
Dim clafouti As String
 
NumOrdi = fOSMachineName()
clafouti = DLookup("NomUtilisateur", "TTableUtilisateurs", "NumMachine = 'NumOrdi'")
 
Étiquette95.Caption = clafouti

Je cherche donc a ce que dans l'étiquette95 s'affiche le nom d'utilisateur qui figure dans la table (TTableUtilisateurs) en regard de la valeur NumOrdi qui est la référence netbios de ma machine extraite grâce à la fonction fOSMachineName

Mais cela ne me renvoie aucune valeur et génère une erreur...
Je patauge complètement ....

Help please....

[Kawabaumga]

Bonjour

Code :

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

1
2
3
4
5
6
Dim clafouti As String
 
NumOrdi = fOSMachineName()
clafouti = DLookup("NomUtilisateur", "TTableUtilisateurs", "NumMachine = '" & NumOrdi & "'")
 
Étiquette95.Caption = clafouti

Essayes ceci (modification au niveau du DLookup)

[Imitator92]

Genial

Merci ca marche enfin !!