bonjour,
A l'ouverture de ma base, je voudrai pouvoir identifier le pc utilisé, (fixe
ou portable) de maniére à ouvrir le formulaire "menu" selon le format de
l'ecran (3/4 ou 16/9)
Quelle est la formule magique, qui pourait me faire ça ??
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Eric
Bonjour,
Si les pcs n'ont pas les même noms, tu devrais y arriver avec la fonction Environ$()
Debug.? Environ$("ComputerName")
La routine ci-dessous t'affiche les variables d'environnement d'un pc et leurs valeurs. (Extrait de l'aide)
Sub zz() Dim EnvString As String, Idx As Integer Idx = 1 Do EnvString = Environ(Idx) Debug.Print EnvString Idx = Idx + 1 Loop Until EnvString = "" End Sub
bonjour, A l'ouverture de ma base, je voudrai pouvoir identifier le pc utilisé, (fixe ou portable) de maniére à ouvrir le formulaire "menu" selon le format de l'ecran (3/4 ou 16/9) Quelle est la formule magique, qui pourait me faire ça ??
-- A+ Eric http://www.mpfa.info/ Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr
Bonjour,
Si les pcs n'ont pas les même noms, tu devrais y arriver avec la
fonction Environ$()
Debug.? Environ$("ComputerName")
La routine ci-dessous t'affiche les variables d'environnement d'un pc et
leurs valeurs. (Extrait de l'aide)
Sub zz()
Dim EnvString As String, Idx As Integer
Idx = 1
Do
EnvString = Environ(Idx)
Debug.Print EnvString
Idx = Idx + 1
Loop Until EnvString = ""
End Sub
bonjour,
A l'ouverture de ma base, je voudrai pouvoir identifier le pc utilisé, (fixe
ou portable) de maniére à ouvrir le formulaire "menu" selon le format de
l'ecran (3/4 ou 16/9)
Quelle est la formule magique, qui pourait me faire ça ??
--
A+
Eric
http://www.mpfa.info/
Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr
Si les pcs n'ont pas les même noms, tu devrais y arriver avec la fonction Environ$()
Debug.? Environ$("ComputerName")
La routine ci-dessous t'affiche les variables d'environnement d'un pc et leurs valeurs. (Extrait de l'aide)
Sub zz() Dim EnvString As String, Idx As Integer Idx = 1 Do EnvString = Environ(Idx) Debug.Print EnvString Idx = Idx + 1 Loop Until EnvString = "" End Sub
bonjour, A l'ouverture de ma base, je voudrai pouvoir identifier le pc utilisé, (fixe ou portable) de maniére à ouvrir le formulaire "menu" selon le format de l'ecran (3/4 ou 16/9) Quelle est la formule magique, qui pourait me faire ça ??
-- A+ Eric http://www.mpfa.info/ Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr
3stone
Salut,
"le méruvien" | A l'ouverture de ma base, je voudrai pouvoir identifier le pc utilisé, (fixe | ou portable) de maniére à ouvrir le formulaire "menu" selon le format de | l'ecran (3/4 ou 16/9) | Quelle est la formule magique, qui pourait me faire ça ??
Je pense que c'est plutôt du la résolution d'écran dont tu as besoin ;-) http://www.3stone.be/access/articles.php?lng=fr&pg5
"le méruvien"
| A l'ouverture de ma base, je voudrai pouvoir identifier le pc utilisé, (fixe
| ou portable) de maniére à ouvrir le formulaire "menu" selon le format de
| l'ecran (3/4 ou 16/9)
| Quelle est la formule magique, qui pourait me faire ça ??
Je pense que c'est plutôt du la résolution d'écran dont tu as besoin ;-)
http://www.3stone.be/access/articles.php?lng=fr&pg5
"le méruvien" | A l'ouverture de ma base, je voudrai pouvoir identifier le pc utilisé, (fixe | ou portable) de maniére à ouvrir le formulaire "menu" selon le format de | l'ecran (3/4 ou 16/9) | Quelle est la formule magique, qui pourait me faire ça ??
Je pense que c'est plutôt du la résolution d'écran dont tu as besoin ;-) http://www.3stone.be/access/articles.php?lng=fr&pg5
Pourquoi ne pas travailler en fonction de la résolution de ton écran ....
Type Rect X1 As Long Y1 As Long X2 As Long Y2 As Long End Type Declare Function GetDesktopWindow Lib "user32" () As Long Declare Function GetWindowRect Lib "user32" (ByVal hWnd As Long, Rectangle As Rect) As Long
Pourquoi ne pas travailler en fonction de la résolution de ton écran
....
Type Rect
X1 As Long
Y1 As Long
X2 As Long
Y2 As Long
End Type
Declare Function GetDesktopWindow Lib "user32" () As Long
Declare Function GetWindowRect Lib "user32" (ByVal hWnd As Long,
Rectangle As Rect) As Long
Pourquoi ne pas travailler en fonction de la résolution de ton écran ....
Type Rect X1 As Long Y1 As Long X2 As Long Y2 As Long End Type Declare Function GetDesktopWindow Lib "user32" () As Long Declare Function GetWindowRect Lib "user32" (ByVal hWnd As Long, Rectangle As Rect) As Long
bonjour, et merci a tous les trois, je vais essayer les 3 solutions!
"le méruvien" a écrit dans le message de news: 43d4d145$0$29545$
bonjour, A l'ouverture de ma base, je voudrai pouvoir identifier le pc utilisé, (fixe ou portable) de maniére à ouvrir le formulaire "menu" selon le format de l'ecran (3/4 ou 16/9) Quelle est la formule magique, qui pourait me faire ça ??
bonjour, et merci a tous les trois, je vais essayer les 3 solutions!
"le méruvien" <Rvdb.roger@free.fr> a écrit dans le message de news:
43d4d145$0$29545$626a54ce@news.free.fr...
bonjour,
A l'ouverture de ma base, je voudrai pouvoir identifier le pc utilisé,
(fixe ou portable) de maniére à ouvrir le formulaire "menu" selon le
format de l'ecran (3/4 ou 16/9)
Quelle est la formule magique, qui pourait me faire ça ??
bonjour, et merci a tous les trois, je vais essayer les 3 solutions!
"le méruvien" a écrit dans le message de news: 43d4d145$0$29545$
bonjour, A l'ouverture de ma base, je voudrai pouvoir identifier le pc utilisé, (fixe ou portable) de maniére à ouvrir le formulaire "menu" selon le format de l'ecran (3/4 ou 16/9) Quelle est la formule magique, qui pourait me faire ça ??
le méruvien
ça, ç'est court, et facile, ça me plait, mais ou et comment placer ça ?
"Drizzit" a écrit dans le message de news:
Pourquoi ne pas travailler en fonction de la résolution de ton écran ....
Type Rect X1 As Long Y1 As Long X2 As Long Y2 As Long End Type Declare Function GetDesktopWindow Lib "user32" () As Long Declare Function GetWindowRect Lib "user32" (ByVal hWnd As Long, Rectangle As Rect) As Long
ça, ç'est court, et facile, ça me plait, mais ou et comment placer ça ?
"Drizzit" <dilallement@wanadoo.fr> a écrit dans le message de news:
1138027736.406685.216680@g49g2000cwa.googlegroups.com...
Pourquoi ne pas travailler en fonction de la résolution de ton écran
....
Type Rect
X1 As Long
Y1 As Long
X2 As Long
Y2 As Long
End Type
Declare Function GetDesktopWindow Lib "user32" () As Long
Declare Function GetWindowRect Lib "user32" (ByVal hWnd As Long,
Rectangle As Rect) As Long
ça, ç'est court, et facile, ça me plait, mais ou et comment placer ça ?
"Drizzit" a écrit dans le message de news:
Pourquoi ne pas travailler en fonction de la résolution de ton écran ....
Type Rect X1 As Long Y1 As Long X2 As Long Y2 As Long End Type Declare Function GetDesktopWindow Lib "user32" () As Long Declare Function GetWindowRect Lib "user32" (ByVal hWnd As Long, Rectangle As Rect) As Long
