OVH Cloud OVH Cloud

Taille de formulaires

7 réponses
Avatar
Laurent
salut =E0 tous,

Il y a quelques temps, j'avais pos=E9 une question afin de=20
pouvoir ajuster automatiquement la taille de mes=20
formulaires =E0 la config install=E9e.

cf la page suivante pour obtenir les modules n=E9cessaires :
http://access.jessy.free.fr/htm/DownLoad/AutoResize.htm

et cf le message de Jessy pour utiliser ce code :

Notice pour utiliser le code :

1=B0) Importer les 4 modules dans la base de donn=E9e o=F9 l'on=20
souhaite
faire un redimenssionnement automatique de formulaire
(Menu : Fichier - Donn=E9es externes - importer et choisir=20
ma base)

2=B0) Cr=E9er une propi=E9t=E9 personnalis=E9e dans la base pour=20
indiquer la
r=E9solution qui a =E9t=E9 utiliser en mode d=E9veloppement
(Menu : Fichier - Prori=E9t=E9 de la base - Onglet=20
Personnalis=E9)
Nom de la propri=E9t=E9 : R=E9solution
Type : Texte
Valeur : 800 x 600 (96x96)
et faire ajouter
PS : 800 x 600 est un exemple, met ta r=E9solution =E0 toi...

3=B0) Ouvrir le module modResolution
et dans la fonction EXE_UpDateRes, tu as une ligne
o=F9 il y a =E9crit EditPropRes, tu dois retirer cette ligne.

4=B0) Cr=E9er un nouveau module et y copier le code suivant :

Function ResizedAllForms()
Dim db As Database
Dim cnt As Container
Dim doc As Document
Set cnt =3D db.Containers("Forms")
For Each doc In cnt.Documents
EXE_UpDateRes doc.Name
Next
EditPropRes
End Function

5=B0) Lancer la fonction que tu viens de cr=E9er =E0 chaque=20
d=E9marrage
de l'application, si la r=E9solution est diff=E9rente, la mise=20
=E0 jour
s'effectuera.

Voil=E0




Laurent
merci =E0 tout ceux qui m'ont aid=E9 et merci =E0 Jessy.

7 réponses

Avatar
Pierre CFI [mvp]
et oui, le pauvre jessy reduit à travailler dans la clandestinité :o))

--
Pierre CFI
MVP Microsoft Access
Mail : http://cerbermail.com/?z0SN8cN53B

Site pour bien commencer
http://users.skynet.be/mpfa/
Site perso
http://access.cfi.free.fr
"Laurent" a écrit dans le message de news: 0bd901c3c0af$556a8580$
salut à tous,

Il y a quelques temps, j'avais posé une question afin de
pouvoir ajuster automatiquement la taille de mes
formulaires à la config installée.

cf la page suivante pour obtenir les modules nécessaires :
http://access.jessy.free.fr/htm/DownLoad/AutoResize.htm

et cf le message de Jessy pour utiliser ce code :

Notice pour utiliser le code :

1°) Importer les 4 modules dans la base de donnée où l'on
souhaite
faire un redimenssionnement automatique de formulaire
(Menu : Fichier - Données externes - importer et choisir
ma base)

2°) Créer une propiété personnalisée dans la base pour
indiquer la
résolution qui a été utiliser en mode développement
(Menu : Fichier - Proriété de la base - Onglet
Personnalisé)
Nom de la propriété : Résolution
Type : Texte
Valeur : 800 x 600 (96x96)
et faire ajouter
PS : 800 x 600 est un exemple, met ta résolution à toi...

3°) Ouvrir le module modResolution
et dans la fonction EXE_UpDateRes, tu as une ligne
où il y a écrit EditPropRes, tu dois retirer cette ligne.

4°) Créer un nouveau module et y copier le code suivant :

Function ResizedAllForms()
Dim db As Database
Dim cnt As Container
Dim doc As Document
Set cnt = db.Containers("Forms")
For Each doc In cnt.Documents
EXE_UpDateRes doc.Name
Next
EditPropRes
End Function

5°) Lancer la fonction que tu viens de créer à chaque
démarrage
de l'application, si la résolution est différente, la mise
à jour
s'effectuera.

Voilà




Laurent
merci à tout ceux qui m'ont aidé et merci à Jessy.
Avatar
Jessy SEMPERE
Coucou me revoilou !!!!!!

ça aura duré 2 mois mais visiblement, ça re-fonctionne

youpi ;-)))))))))

@+
Jessy Sempere - Access MVP

------------------------------------
Site @ccess : http://access.jessy.free.fr/
Pour l'efficacité de tous :
http://users.skynet.be/mpfa/
------------------------------------
"Pierre CFI [mvp]" a écrit dans le message news:

et oui, le pauvre jessy reduit à travailler dans la clandestinité :o))

--
Pierre CFI
MVP Microsoft Access
Mail : http://cerbermail.com/?z0SN8cN53B

Site pour bien commencer
http://users.skynet.be/mpfa/
Site perso
http://access.cfi.free.fr
"Laurent" a écrit dans le message de
news: 0bd901c3c0af$556a8580$

salut à tous,

Il y a quelques temps, j'avais posé une question afin de
pouvoir ajuster automatiquement la taille de mes
formulaires à la config installée.

cf la page suivante pour obtenir les modules nécessaires :
http://access.jessy.free.fr/htm/DownLoad/AutoResize.htm

et cf le message de Jessy pour utiliser ce code :

Notice pour utiliser le code :

1°) Importer les 4 modules dans la base de donnée où l'on
souhaite
faire un redimenssionnement automatique de formulaire
(Menu : Fichier - Données externes - importer et choisir
ma base)

2°) Créer une propiété personnalisée dans la base pour
indiquer la
résolution qui a été utiliser en mode développement
(Menu : Fichier - Proriété de la base - Onglet
Personnalisé)
Nom de la propriété : Résolution
Type : Texte
Valeur : 800 x 600 (96x96)
et faire ajouter
PS : 800 x 600 est un exemple, met ta résolution à toi...

3°) Ouvrir le module modResolution
et dans la fonction EXE_UpDateRes, tu as une ligne
où il y a écrit EditPropRes, tu dois retirer cette ligne.

4°) Créer un nouveau module et y copier le code suivant :

Function ResizedAllForms()
Dim db As Database
Dim cnt As Container
Dim doc As Document
Set cnt = db.Containers("Forms")
For Each doc In cnt.Documents
EXE_UpDateRes doc.Name
Next
EditPropRes
End Function

5°) Lancer la fonction que tu viens de créer à chaque
démarrage
de l'application, si la résolution est différente, la mise
à jour
s'effectuera.

Voilà




Laurent
merci à tout ceux qui m'ont aidé et merci à Jessy.




Avatar
Pierre CFI [mvp]
et la concurrence sauvage revient :o)))
bon et bien au boulot

--
Pierre CFI
MVP Microsoft Access
Mail : http://cerbermail.com/?z0SN8cN53B

Site pour bien commencer
http://users.skynet.be/mpfa/
Site perso
http://access.cfi.free.fr
"Jessy SEMPERE" a écrit dans le message de news: brjsh2$q9j$
Coucou me revoilou !!!!!!

ça aura duré 2 mois mais visiblement, ça re-fonctionne

youpi ;-)))))))))

@+
Jessy Sempere - Access MVP

------------------------------------
Site @ccess : http://access.jessy.free.fr/
Pour l'efficacité de tous :
http://users.skynet.be/mpfa/
------------------------------------
"Pierre CFI [mvp]" a écrit dans le message news:

et oui, le pauvre jessy reduit à travailler dans la clandestinité :o))

--
Pierre CFI
MVP Microsoft Access
Mail : http://cerbermail.com/?z0SN8cN53B

Site pour bien commencer
http://users.skynet.be/mpfa/
Site perso
http://access.cfi.free.fr
"Laurent" a écrit dans le message de
news: 0bd901c3c0af$556a8580$

salut à tous,

Il y a quelques temps, j'avais posé une question afin de
pouvoir ajuster automatiquement la taille de mes
formulaires à la config installée.

cf la page suivante pour obtenir les modules nécessaires :
http://access.jessy.free.fr/htm/DownLoad/AutoResize.htm

et cf le message de Jessy pour utiliser ce code :

Notice pour utiliser le code :

1°) Importer les 4 modules dans la base de donnée où l'on
souhaite
faire un redimenssionnement automatique de formulaire
(Menu : Fichier - Données externes - importer et choisir
ma base)

2°) Créer une propiété personnalisée dans la base pour
indiquer la
résolution qui a été utiliser en mode développement
(Menu : Fichier - Proriété de la base - Onglet
Personnalisé)
Nom de la propriété : Résolution
Type : Texte
Valeur : 800 x 600 (96x96)
et faire ajouter
PS : 800 x 600 est un exemple, met ta résolution à toi...

3°) Ouvrir le module modResolution
et dans la fonction EXE_UpDateRes, tu as une ligne
où il y a écrit EditPropRes, tu dois retirer cette ligne.

4°) Créer un nouveau module et y copier le code suivant :

Function ResizedAllForms()
Dim db As Database
Dim cnt As Container
Dim doc As Document
Set cnt = db.Containers("Forms")
For Each doc In cnt.Documents
EXE_UpDateRes doc.Name
Next
EditPropRes
End Function

5°) Lancer la fonction que tu viens de créer à chaque
démarrage
de l'application, si la résolution est différente, la mise
à jour
s'effectuera.

Voilà




Laurent
merci à tout ceux qui m'ont aidé et merci à Jessy.








Avatar
3stone
Bonjour Jessy,

"Jessy SEMPERE"
Coucou me revoilou !!!!!!
ça aura duré 2 mois mais visiblement, ça re-fonctionne

youpi ;-)))))))))



Formidable ! J'en suis heureux pour toi !!!


Et maintenant... AU BOULOT ;o))))



--
A+
Pierre (3stone) Access MVP
--------------------------------------
Une pour tous, tous pour une ;-)
http://users.skynet.be/mpfa/charte.htm
--------------------------------------

Avatar
Raymond [mvp]
Bonjour Jessy.

Ce n'est pas trop tôt. on va enfin se reposer un peu.

--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"Jessy SEMPERE" a écrit dans le message de
news:brjsh2$q9j$
Coucou me revoilou !!!!!!

ça aura duré 2 mois mais visiblement, ça re-fonctionne

youpi ;-)))))))))

@+
Jessy Sempere - Access MVP


Avatar
Jessy SEMPERE
Salut à tous

J'ai quand même un doute, j'ai bien peur que ce ne fut résolu
que temporairement...

Si vous voyez ce message, dite le moi, ça lèvera le doute ????

@+
Jessy Sempere - Access MVP

------------------------------------
Site @ccess : http://access.jessy.free.fr/
Pour l'efficacité de tous :
http://users.skynet.be/mpfa/
------------------------------------
"Raymond [mvp]" a écrit dans le message news:

Bonjour Jessy.

Ce n'est pas trop tôt. on va enfin se reposer un peu.

--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"Jessy SEMPERE" a écrit dans le message de
news:brjsh2$q9j$
Coucou me revoilou !!!!!!

ça aura duré 2 mois mais visiblement, ça re-fonctionne

youpi ;-)))))))))

@+
Jessy Sempere - Access MVP






Avatar
Raymond [mvp]
Bien lu le message, pas de doute, le mien à 14:28 le tien à 14:30.

c'est plus efficace qu'avant, non ?
je retourne faire ma sieste.
--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"Jessy SEMPERE" a écrit dans le message de
news:brkd1n$4fg$
Salut à tous

J'ai quand même un doute, j'ai bien peur que ce ne fut résolu
que temporairement...

Si vous voyez ce message, dite le moi, ça lèvera le doute ????

@+
Jessy Sempere - Access MVP