Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Access Modifier un formulaire

Modifier un formulaire

11 réponses
Avatar
PasGlop
Bonjour,

Est-il possible de modifier un formulaire sur un mde qui tourne en RunTime ?
Merci
Signaler un problème avec ce contenu

10 réponses

Supprimer
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
1 2
Avatar
Raymond [mvp]
Bonjour.

une base mde en runtime, c'est la protection suprême d'un formulaire.
Impossible.
pas besoin des deux, l'un ou l'autre suffit pour le rendre impossible.

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


"PasGlop" a écrit dans le message de
news:%23uBF$
Bonjour,

Est-il possible de modifier un formulaire sur un mde qui tourne en RunTime
?

Merci




Avatar
PasGlop
Donc, il n'est pas possible d'adapter la taille des formulaires en fonction
de la résolution du PC sur lequel est installé l'application ? Quelle
tristesse!
"Raymond [mvp]" a écrit dans le message de
news:eQ$
Bonjour.

une base mde en runtime, c'est la protection suprême d'un formulaire.
Impossible.
pas besoin des deux, l'un ou l'autre suffit pour le rendre impossible.

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


"PasGlop" a écrit dans le message de
news:%23uBF$
Bonjour,

Est-il possible de modifier un formulaire sur un mde qui tourne en
RunTime


?
Merci








Avatar
Raymond [mvp]
Bonjour.

je n'ai pas dis ça .

tu as demandé modifier. tu ne peux pas modifier la structure d'un formulaire
mais tu peux déplacer ou modifier les dimensions et emplacement d'un
formulaire.

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


"PasGlop" a écrit dans le message de
news:
Donc, il n'est pas possible d'adapter la taille des formulaires en
fonction

de la résolution du PC sur lequel est installé l'application ? Quelle
tristesse!


Avatar
PasGlop
Je n'arrive pas à faire fonctionner le magnifique code w.stucki (enfin je
crois), car il ne sauvegarde pas les formulaires modifiés.
Public Function RedimensionnerTousLesFormulaires()
Dim Doc As Document, Cnt As Container, Bdd As Database, NomForm As String
' Parcourt la liste des formulaires du conteneur Forms et ouvre chaque
formulaire en mode Création
' pour pouvoir modifier ses dimensions via la procédure RedimensionneForm.
Set Bdd = CurrentDb()
Set Cnt = Bdd.Containers!Forms
DoCmd.Echo False
For Each Doc In Cnt.Documents
NomForm = Doc.Name
DoCmd.OpenForm NomForm, acDesign
RedimensionneForm Screen.ActiveForm
DoCmd.Close acForm, NomForm, acSaveYes
Next
DoCmd.Echo True
MsgBox "Tous les formulaires ont été redimensionnés avec succès"
End Function

Qu'elle est l'autre piste ?

Merci
Avatar
Raymond [mvp]
L'autre piste c'est jessy.

http://access.jessy.free.fr/htm/DownLoad/AutoResize.htm

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


"PasGlop" a écrit dans le message de
news:
Je n'arrive pas à faire fonctionner le magnifique code w.stucki (enfin je
crois), car il ne sauvegarde pas les formulaires modifiés.
Public Function RedimensionnerTousLesFormulaires()
Dim Doc As Document, Cnt As Container, Bdd As Database, NomForm As String
' Parcourt la liste des formulaires du conteneur Forms et ouvre chaque
formulaire en mode Création
' pour pouvoir modifier ses dimensions via la procédure RedimensionneForm.
Set Bdd = CurrentDb()
Set Cnt = Bdd.Containers!Forms
DoCmd.Echo False
For Each Doc In Cnt.Documents
NomForm = Doc.Name
DoCmd.OpenForm NomForm, acDesign
RedimensionneForm Screen.ActiveForm
DoCmd.Close acForm, NomForm, acSaveYes
Next
DoCmd.Echo True
MsgBox "Tous les formulaires ont été redimensionnés avec succès"
End Function

Qu'elle est l'autre piste ?

Merci




Avatar
Jessy Sempere [MVP]
Bonjour

Oui mais je doute que ça fonctionne sur un mde, j'en suis même
quasiment certains... ;-))))

@+
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:

L'autre piste c'est jessy.

http://access.jessy.free.fr/htm/DownLoad/AutoResize.htm

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


"PasGlop" a écrit dans le message de
news:
Je n'arrive pas à faire fonctionner le magnifique code w.stucki (enfin
je


crois), car il ne sauvegarde pas les formulaires modifiés.
Public Function RedimensionnerTousLesFormulaires()
Dim Doc As Document, Cnt As Container, Bdd As Database, NomForm As
String


' Parcourt la liste des formulaires du conteneur Forms et ouvre chaque
formulaire en mode Création
' pour pouvoir modifier ses dimensions via la procédure
RedimensionneForm.


Set Bdd = CurrentDb()
Set Cnt = Bdd.Containers!Forms
DoCmd.Echo False
For Each Doc In Cnt.Documents
NomForm = Doc.Name
DoCmd.OpenForm NomForm, acDesign
RedimensionneForm Screen.ActiveForm
DoCmd.Close acForm, NomForm, acSaveYes
Next
DoCmd.Echo True
MsgBox "Tous les formulaires ont été redimensionnés avec succès"
End Function

Qu'elle est l'autre piste ?

Merci








Avatar
Raymond [mvp]
Bonjour Jessy.

je ne peux pas tester alors je ne me prononcerai pas.
ce que je sais c'est qu'on peut modifier les dimensions des contrôles sous
mde, mais dans quelle limite avec ta procédure ?

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


"Jessy Sempere [MVP]" a écrit dans le message de
news:c8vmj0$u5k$
Bonjour

Oui mais je doute que ça fonctionne sur un mde, j'en suis même
quasiment certains... ;-))))

@+
Jessy Sempere - Access MVP



Avatar
Pierre CFI [mvp]
ce serait bien de faire des choses qui marchent mon petit Jessy, regarde papa 3stone, il dort, et çà marche bien pour lui :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
"Jessy Sempere [MVP]" a écrit dans le message de news:c8vmj0$u5k$
Bonjour

Oui mais je doute que ça fonctionne sur un mde, j'en suis même
quasiment certains... ;-))))

@+
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:

L'autre piste c'est jessy.

http://access.jessy.free.fr/htm/DownLoad/AutoResize.htm

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


"PasGlop" a écrit dans le message de
news:
Je n'arrive pas à faire fonctionner le magnifique code w.stucki (enfin
je


crois), car il ne sauvegarde pas les formulaires modifiés.
Public Function RedimensionnerTousLesFormulaires()
Dim Doc As Document, Cnt As Container, Bdd As Database, NomForm As
String


' Parcourt la liste des formulaires du conteneur Forms et ouvre chaque
formulaire en mode Création
' pour pouvoir modifier ses dimensions via la procédure
RedimensionneForm.


Set Bdd = CurrentDb()
Set Cnt = Bdd.Containers!Forms
DoCmd.Echo False
For Each Doc In Cnt.Documents
NomForm = Doc.Name
DoCmd.OpenForm NomForm, acDesign
RedimensionneForm Screen.ActiveForm
DoCmd.Close acForm, NomForm, acSaveYes
Next
DoCmd.Echo True
MsgBox "Tous les formulaires ont été redimensionnés avec succès"
End Function

Qu'elle est l'autre piste ?

Merci












Avatar
PasGlop
Je peux effectivement modifier les contrôles sur le mde. Mais uniquement
avec access d'installé. En RunTime les modifs ne sont pas sauvegardées.
Je ne dois pas être la seule à avoir eu ce problème à résoudre. Si vous avez
trouvé la solution, merci de m'aider.
Avatar
Jessy Sempere [MVP]
Ah ces jeunes.... ;-)))

Bon j'ai testé sur un mde et...
Pour le redimensionnement manuel, pas de problème, ça fonctionne mais
par contre comme on ne peut pas sauvegarder le formulaire, le
redimensionnement
n'est pas conservé...

Du coup le redimensionnement automatique des formulaires sur ouverture de la
base ne fonctionne pas vu qu'il faut pour chaque formulaire les
sauvegarder...

Voilà donc maintenant c'est sûr, ça ne marche pas pour les mde

@+
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:

ce serait bien de faire des choses qui marchent mon petit Jessy, regarde
papa 3stone, il dort, et çà marche bien pour lui :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
"Jessy Sempere [MVP]" a écrit dans le message
de news:c8vmj0$u5k$

Bonjour

Oui mais je doute que ça fonctionne sur un mde, j'en suis même
quasiment certains... ;-))))

@+
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:



L'autre piste c'est jessy.

http://access.jessy.free.fr/htm/DownLoad/AutoResize.htm

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


"PasGlop" a écrit dans le message de
news:
Je n'arrive pas à faire fonctionner le magnifique code w.stucki
(enfin




je
crois), car il ne sauvegarde pas les formulaires modifiés.
Public Function RedimensionnerTousLesFormulaires()
Dim Doc As Document, Cnt As Container, Bdd As Database, NomForm As
String


' Parcourt la liste des formulaires du conteneur Forms et ouvre
chaque




formulaire en mode Création
' pour pouvoir modifier ses dimensions via la procédure
RedimensionneForm.


Set Bdd = CurrentDb()
Set Cnt = Bdd.Containers!Forms
DoCmd.Echo False
For Each Doc In Cnt.Documents
NomForm = Doc.Name
DoCmd.OpenForm NomForm, acDesign
RedimensionneForm Screen.ActiveForm
DoCmd.Close acForm, NomForm, acSaveYes
Next
DoCmd.Echo True
MsgBox "Tous les formulaires ont été redimensionnés avec succès"
End Function

Qu'elle est l'autre piste ?

Merci
















1 2