Sur un contrôle de formulaire,
il est paossible par la combinaison Shift + F2
de faire un zoom sur le contrôle
je souhaiterais le faire par du code en double cliquant sur le contrôle
merci de bien vouloir m'indiquer le code
A+
Paul
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
Raymond [mvp]
Bonjour.
utiliser la commande acCmdZoomBox exemple:
Private Sub Texte1_DblClick(Cancel As Integer) DoCmd.RunCommand acCmdZoomBox End Sub
cette commande, par doCmd, s'applique sur l'objet actif et peut donc s'appliquer sur un autre contrôle que celui où on se trouve. Private Sub Commande0_Click() Me.Texte1.SetFocus DoCmd.RunCommand acCmdZoomBox End Sub dans le cas ci-dessus c'est texte1 qui sera zoomé. -- @+ Raymond Access MVP http://www.OfficeSystemAccess.com/ http://officesystem.access.over-blog.com/ http://officesystem.access.free.fr/wiki/ Pour débuter sur le forum: http://www.mpfa.info/
Venez découvrir Open XML, le nouveau format de fichier de la suite Office ! http://www.comscamp.com/Tracker/Redirect.ashx?linkidÿ71c7f3-78e8-4371-abaf-b73c259e58db
"Florent" a écrit dans le message de news:
| Bonjour à tous, | | Sur un contrôle de formulaire, | il est paossible par la combinaison Shift + F2 | de faire un zoom sur le contrôle | je souhaiterais le faire par du code en double cliquant sur le contrôle | merci de bien vouloir m'indiquer le code | A+ | Paul |
Bonjour.
utiliser la commande acCmdZoomBox
exemple:
Private Sub Texte1_DblClick(Cancel As Integer)
DoCmd.RunCommand acCmdZoomBox
End Sub
cette commande, par doCmd, s'applique sur l'objet actif et peut donc
s'appliquer sur un autre contrôle que celui où on se trouve.
Private Sub Commande0_Click()
Me.Texte1.SetFocus
DoCmd.RunCommand acCmdZoomBox
End Sub
dans le cas ci-dessus c'est texte1 qui sera zoomé.
--
@+
Raymond Access MVP http://www.OfficeSystemAccess.com/
http://officesystem.access.over-blog.com/
http://officesystem.access.free.fr/wiki/
Pour débuter sur le forum: http://www.mpfa.info/
Venez découvrir Open XML, le nouveau format de fichier de la suite Office !
http://www.comscamp.com/Tracker/Redirect.ashx?linkidÿ71c7f3-78e8-4371-abaf-b73c259e58db
"Florent" <paul@florent.fr> a écrit dans le message de news:
B85A7A34-759C-4313-9D88-ED5F71E585BE@microsoft.com...
| Bonjour à tous,
|
| Sur un contrôle de formulaire,
| il est paossible par la combinaison Shift + F2
| de faire un zoom sur le contrôle
| je souhaiterais le faire par du code en double cliquant sur le contrôle
| merci de bien vouloir m'indiquer le code
| A+
| Paul
|
Private Sub Texte1_DblClick(Cancel As Integer) DoCmd.RunCommand acCmdZoomBox End Sub
cette commande, par doCmd, s'applique sur l'objet actif et peut donc s'appliquer sur un autre contrôle que celui où on se trouve. Private Sub Commande0_Click() Me.Texte1.SetFocus DoCmd.RunCommand acCmdZoomBox End Sub dans le cas ci-dessus c'est texte1 qui sera zoomé. -- @+ Raymond Access MVP http://www.OfficeSystemAccess.com/ http://officesystem.access.over-blog.com/ http://officesystem.access.free.fr/wiki/ Pour débuter sur le forum: http://www.mpfa.info/
Venez découvrir Open XML, le nouveau format de fichier de la suite Office ! http://www.comscamp.com/Tracker/Redirect.ashx?linkidÿ71c7f3-78e8-4371-abaf-b73c259e58db
"Florent" a écrit dans le message de news:
| Bonjour à tous, | | Sur un contrôle de formulaire, | il est paossible par la combinaison Shift + F2 | de faire un zoom sur le contrôle | je souhaiterais le faire par du code en double cliquant sur le contrôle | merci de bien vouloir m'indiquer le code | A+ | Paul |
