OVH Cloud OVH Cloud

Taille de formulaire

21 réponses
Avatar
Laurent
salut =E0 tous,

un p'tit soucis avec la taille de mes formulaires.
j'ai d=E9velopp=E9 ma Base de donn=E9es avec une config 800x600.=20
Et je souhaite aussi installer cette base sur un poste=20
avec une autre d=E9finition (1024 ou plus encore). Y a t il=20
un moyen (une proc=E9dure ou une option d'access) pour=20
adapter automatiquement la taille du formulaire =E0 la=20
config ?

Ou faut il que je redimentionne tous mes formulaires, un=20
par un et =E0 la mimine ?


Merci de votre aide.

Laurent (un peu inquiet)

10 réponses

1 2 3
Avatar
Raymond [mvp]
d'après l'erreur le module n'existe pas dans les modules de classe ou il est
dans un module normal. quand il a dit importé, ce ne serait pas un
copier/coller ?

--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour une meilleure
efficacité de tes interventions sur MPFA


"3stone" a écrit dans le message de
news:3fcc822e$0$3249$
Salut,

"Raymond [mvp]"
je crois bien que laurent n'a pas renommé un module de classe en
GridBag,


d'après l'erreur.



Comme il a dit : "importer"... il n'a pas dû renommer...
C'est pour cela que j'ai plutôt pensé à l'endroit... du code !


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







Avatar
Laurent
j'ai importé modResolution dans l'onglet module et les 3
autres dans module de classe.
pour cela, sous VBA, j'ai fais importer un fichier.

c'est bon ?

Laurent

-----Message d'origine-----
Salut,

"Laurent"
j'ai copié le code suivant en début d'un formulaire :
[...]
ensuite, j'ai importé les 3 modules de classe et le
module.

Qd je compile, il met "type défini par l'utilisateur non
défini" sur gdb As New GridBag


Tu as bien importé les 4 modules dans la
section "module général"

à l'onglet "Module" ? et non sous un
formulaire...




Désolé pour l'envoi de mails... j'étais au bord du
désespoir.


Tu as plus de chance d'avoir une réponse ici...



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




.



Avatar
Laurent
salut à tout deux.

j'avais bien importé, mais effectivement, je n'avais pas
renommé.
j'ai lancé le traitement à l'ouverture d'un formulaire...
ça a commencé à bien fonctionner. Puis le sablier est
resté, il ne me redonne pas la main, mais semble ne rien
faire, comme s'il le pgm était perdu dans une boucle
infinie. Ca fait déjà une bonne minute. Et comme il n'y a
que 11 formulaires, il devrait avoir fini.

Laurent



-----Message d'origine-----
d'après l'erreur le module n'existe pas dans les modules
de classe ou il est

dans un module normal. quand il a dit importé, ce ne
serait pas un

copier/coller ?

--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour une meilleure
efficacité de tes interventions sur MPFA


"3stone" a écrit dans le message de
news:3fcc822e$0$3249$
Salut,

"Raymond [mvp]"
je crois bien que laurent n'a pas renommé un module
de classe en



GridBag,
d'après l'erreur.



Comme il a dit : "importer"... il n'a pas dû
renommer...


C'est pour cela que j'ai plutôt pensé à l'endroit... du
code !




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







.





Avatar
Laurent
salut,

j'ai arrété le traitement.
il était en train dexécuter :

For Each cnt In frm.Controls
lngOldValue = colControls
(cnt.Name).lngLeft * dblAH
cnt.Left = colControls
(cnt.Name).lngLeft * dblAH
If cnt.Left <> lngOldValue Then blnOk
= False

lngOldValue = colControls
(cnt.Name).lngWidth * dblAH
cnt.Width = colControls
(cnt.Name).lngWidth * dblAH
If cnt.Width <> lngOldValue Then blnOk
= False
Next


dans le module GridBag. J'ai stoppé au bout de 3 minutes.

Y a un pbe, ou c'est juste très long ?





-----Message d'origine-----
d'après l'erreur le module n'existe pas dans les modules
de classe ou il est

dans un module normal. quand il a dit importé, ce ne
serait pas un

copier/coller ?

--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour une meilleure
efficacité de tes interventions sur MPFA


"3stone" a écrit dans le message de
news:3fcc822e$0$3249$
Salut,

"Raymond [mvp]"
je crois bien que laurent n'a pas renommé un module
de classe en



GridBag,
d'après l'erreur.



Comme il a dit : "importer"... il n'a pas dû
renommer...


C'est pour cela que j'ai plutôt pensé à l'endroit... du
code !




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







.





Avatar
3stone
Salut,

"Laurent"
j'ai importé modResolution dans l'onglet module et les 3
autres dans module de classe.
pour cela, sous VBA, j'ai fais importer un fichier.


Importe les 4 sous l'onglet "Module" !!!

Ce qui ce fait automatiquement par "Fichier, Données Externes, Importer"
Là, tu choisi la base exemple de Jessy et tu coche les 4 modules.

Et go !


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

"Laurent"
j'avais bien importé, mais effectivement, je n'avais pas renommé.

Il n'y a rien à renommer...


j'ai lancé le traitement à l'ouverture d'un formulaire...

Il ne faut pas "redimmensioner" le formulaire qui exécute le code,
puisque les formulaires sont passés en mode design.


ça a commencé à bien fonctionner. Puis le sablier est
resté, il ne me redonne pas la main, mais semble ne rien
faire, comme s'il le pgm était perdu dans une boucle
infinie. Ca fait déjà une bonne minute. Et comme il n'y a
que 11 formulaires, il devrait avoir fini.

Un formulaire ne prend que quelques secondes...
dont la plupart sont utilisé à ouvrir, sauver et fermer le formulaire.


--
A+
Pierre (3stone) Access MVP
--------------------------------------
Une pour tous, tous pour une ;-)
http://users.skynet.be/mpfa/charte.htm
--------------------------------------
Avatar
Laurent
si je comprend bien (c'est pas sur), il me faut créer un
autre formulaire qui ne servira qu'à redimentionner les
autres, c'est ça ?
Sinon, comment exécuter le code ?

Laurent


-----Message d'origine-----
Salut,

"Laurent"
j'avais bien importé, mais effectivement, je n'avais pas
renommé.


Il n'y a rien à renommer...


j'ai lancé le traitement à l'ouverture d'un formulaire...

Il ne faut pas "redimmensioner" le formulaire qui
exécute le code,

puisque les formulaires sont passés en mode design.


ça a commencé à bien fonctionner. Puis le sablier est
resté, il ne me redonne pas la main, mais semble ne rien
faire, comme s'il le pgm était perdu dans une boucle
infinie. Ca fait déjà une bonne minute. Et comme il n'y a
que 11 formulaires, il devrait avoir fini.

Un formulaire ne prend que quelques secondes...
dont la plupart sont utilisé à ouvrir, sauver et
fermer le formulaire.



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




.



Avatar
3stone
Salut,

"Laurent"
si je comprend bien (c'est pas sur), il me faut créer un
autre formulaire qui ne servira qu'à redimentionner les
autres, c'est ça ?
Sinon, comment exécuter le code ?



Si tu veux redimentionner tout tes formulaires au démarage de la base,
il te faudra appeller le code par une macro "AutoExec"

Regarde bien l'exemple de Jessy, dans le module "modResolution"
il y à une fonction "EXE_Test()"

Il te faudra créer l'équivalent... soit en énumérant les formulaires,
soit en bouclant sur les formulaires par le code (For Each...)

Mais, on ne redimenssionne que les formulaires "plein écran"


--
A+
Pierre (3stone) Access MVP
--------------------------------------
Une pour tous, tous pour une ;-)
http://users.skynet.be/mpfa/charte.htm
--------------------------------------
Avatar
Laurent
Je suis complètement pommé, les gars !!!

C'est plus fort que moi.
Tant que le niveau reste à Do while et If-then-end... je
m'en sort. Mais bidouiller des macro AutoExec, des modules
et modules de claase (je ne connais même pas la
différence...)... j'ai mal à la tête !

Laurent (désespéré).


-----Message d'origine-----
Salut,

"Laurent"
si je comprend bien (c'est pas sur), il me faut créer un
autre formulaire qui ne servira qu'à redimentionner les
autres, c'est ça ?
Sinon, comment exécuter le code ?



Si tu veux redimentionner tout tes formulaires au
démarage de la base,

il te faudra appeller le code par une macro "AutoExec"

Regarde bien l'exemple de Jessy, dans le
module "modResolution"

il y à une fonction "EXE_Test()"

Il te faudra créer l'équivalent... soit en énumérant les
formulaires,

soit en bouclant sur les formulaires par le code (For
Each...)


Mais, on ne redimenssionne que les formulaires "plein
écran"



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




.



Avatar
3stone
Salut,

"Laurent"
Je suis complètement pommé, les gars !!!

C'est plus fort que moi.
Tant que le niveau reste à Do while et If-then-end... je
m'en sort. Mais bidouiller des macro AutoExec, des modules
et modules de claase (je ne connais même pas la
différence...)... j'ai mal à la tête !

Laurent (désespéré).



Alors, un (très) bon conseil...

Crée des formulaires à la résolution la plus base qu'utilisera ta base.

Et cela, tant que Access ne sait pas redimensionner ses formulaires
par lui-même, ce qui ne devrait pas arriver de sitôt ;-)

Tout le reste n'est qu'emplâtre, qu'il est primordial de bien "posséder".
Il devrait être hors de question de *coller* un code quelconque
dont on ne maitrise pas la mise en oeuvre
(je ne parle pas de la compréhension du code lui-même).

Pour le bien de ton application !


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