Je souhaite avec VBA pouvoir r=E9initialiser en haut et =E0=20
gauche les barres de d=E9filement d'un formulaire, apr=E8s=20
avoir appuy=E9 sur un bouton.
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
Bonjour.
A ma connaissance les barres de défilement (ScrollBars) appelées ascenseurs sont à droite et en bas de l'écran.
pour les sélectionner en vba: Me.ScrollBars = 0 'aucune Me.ScrollBars = 1 'horizontale Me.ScrollBars = 2 'verticale Me.ScrollBars = 3 'les deux
-- @+ Raymond Access MVP. http://access.seneque.free.fr/ http://access2003.free.fr/ http://users.skynet.be/mpfa/charte.htm pour une meilleure efficacité de tes interventions sur MPFA.
"bernard" a écrit dans le message de news:0b2101c38a31$da30aec0$ Bonjour,
Je souhaite avec VBA pouvoir réinitialiser en haut et à gauche les barres de défilement d'un formulaire, après avoir appuyé sur un bouton.
Merci.
Bonjour.
A ma connaissance les barres de défilement (ScrollBars) appelées ascenseurs
sont à droite et en bas de l'écran.
pour les sélectionner en vba:
Me.ScrollBars = 0 'aucune
Me.ScrollBars = 1 'horizontale
Me.ScrollBars = 2 'verticale
Me.ScrollBars = 3 'les deux
--
@+
Raymond Access MVP.
http://access.seneque.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/charte.htm pour une meilleure
efficacité de tes interventions sur MPFA.
"bernard" <bpeyrol@hotmail.com> a écrit dans le message de
news:0b2101c38a31$da30aec0$a101280a@phx.gbl...
Bonjour,
Je souhaite avec VBA pouvoir réinitialiser en haut et à
gauche les barres de défilement d'un formulaire, après
avoir appuyé sur un bouton.
A ma connaissance les barres de défilement (ScrollBars) appelées ascenseurs sont à droite et en bas de l'écran.
pour les sélectionner en vba: Me.ScrollBars = 0 'aucune Me.ScrollBars = 1 'horizontale Me.ScrollBars = 2 'verticale Me.ScrollBars = 3 'les deux
-- @+ Raymond Access MVP. http://access.seneque.free.fr/ http://access2003.free.fr/ http://users.skynet.be/mpfa/charte.htm pour une meilleure efficacité de tes interventions sur MPFA.
"bernard" a écrit dans le message de news:0b2101c38a31$da30aec0$ Bonjour,
Je souhaite avec VBA pouvoir réinitialiser en haut et à gauche les barres de défilement d'un formulaire, après avoir appuyé sur un bouton.
Merci.
bernard
Bonjour,
Je me suis mal exprimé dans ma demande. Ce que je souhaite, c'est pouvoir replacer automatiquement les curseurs des barres de défilement à la position d'origine soit au maxi en haut et au maxi à gauche.
Merci.
-----Message d'origine----- Bonjour.
A ma connaissance les barres de défilement (ScrollBars) appelées ascenseurs
sont à droite et en bas de l'écran.
pour les sélectionner en vba: Me.ScrollBars = 0 'aucune Me.ScrollBars = 1 'horizontale Me.ScrollBars = 2 'verticale Me.ScrollBars = 3 'les deux
-- @+ Raymond Access MVP. http://access.seneque.free.fr/ http://access2003.free.fr/ http://users.skynet.be/mpfa/charte.htm pour une meilleure efficacité de tes interventions sur MPFA.
"bernard" a écrit dans le message de
news:0b2101c38a31$da30aec0$ Bonjour,
Je souhaite avec VBA pouvoir réinitialiser en haut et à gauche les barres de défilement d'un formulaire, après avoir appuyé sur un bouton.
Merci.
.
Bonjour,
Je me suis mal exprimé dans ma demande. Ce que je
souhaite, c'est pouvoir replacer automatiquement les
curseurs des barres de défilement à la position d'origine
soit au maxi en haut et au maxi à gauche.
Merci.
-----Message d'origine-----
Bonjour.
A ma connaissance les barres de défilement (ScrollBars)
appelées ascenseurs
sont à droite et en bas de l'écran.
pour les sélectionner en vba:
Me.ScrollBars = 0 'aucune
Me.ScrollBars = 1 'horizontale
Me.ScrollBars = 2 'verticale
Me.ScrollBars = 3 'les deux
--
@+
Raymond Access MVP.
http://access.seneque.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/charte.htm pour une meilleure
efficacité de tes interventions sur MPFA.
"bernard" <bpeyrol@hotmail.com> a écrit dans le message
de
Je me suis mal exprimé dans ma demande. Ce que je souhaite, c'est pouvoir replacer automatiquement les curseurs des barres de défilement à la position d'origine soit au maxi en haut et au maxi à gauche.
Merci.
-----Message d'origine----- Bonjour.
A ma connaissance les barres de défilement (ScrollBars) appelées ascenseurs
sont à droite et en bas de l'écran.
pour les sélectionner en vba: Me.ScrollBars = 0 'aucune Me.ScrollBars = 1 'horizontale Me.ScrollBars = 2 'verticale Me.ScrollBars = 3 'les deux
-- @+ Raymond Access MVP. http://access.seneque.free.fr/ http://access2003.free.fr/ http://users.skynet.be/mpfa/charte.htm pour une meilleure efficacité de tes interventions sur MPFA.
"bernard" a écrit dans le message de
news:0b2101c38a31$da30aec0$ Bonjour,
Je souhaite avec VBA pouvoir réinitialiser en haut et à gauche les barres de défilement d'un formulaire, après avoir appuyé sur un bouton.
Merci.
.
Raymond
RE.
A ma connaissance on ne peut pas agir sur les ascenseurs autrement que sur leur existence. Il est possible de se positionner sur le premier contrôle par le numéro d'index de tabulation avec une fonction de ce genre, à condition que l'index le plus petit soit le plus à gauche et le plus en haut. Dim Ctl As Control Dim Pos As Integer Dim Contre As String Pos = 0 Contre = "" On Error Resume Next For Each Ctl In Me.Controls If Ctl.TabIndex <= Pos Then If Ctl.ControlType = acTextBox Then Pos = Ctl.TabIndex Contre = Ctl.Name End If End If Next If Contre <> "" Then Me.Controls(Contre).SetFocus End If
on peut modifier et changer les if.
quoi qu'il arrive, même avec cette fonction, l'opérateur aura la possibilité de déplacer les ascenseurs et de faire ce qu'il veut et un bouton pour remettre en place n'est que d'une utilité toute relative.
c'était une idée (pas terrible)
-- @+ Raymond Access MVP. http://access.seneque.free.fr/ http://access2003.free.fr/ http://users.skynet.be/mpfa/charte.htm pour une meilleure efficacité de tes interventions sur MPFA.
"bernard" a écrit dans le message de news:0e3701c38a61$5ddad870$ Bonjour,
Je me suis mal exprimé dans ma demande. Ce que je souhaite, c'est pouvoir replacer automatiquement les curseurs des barres de défilement à la position d'origine soit au maxi en haut et au maxi à gauche.
Merci.
-----Message d'origine----- Bonjour.
A ma connaissance les barres de défilement (ScrollBars) appelées ascenseurs
sont à droite et en bas de l'écran.
pour les sélectionner en vba: Me.ScrollBars = 0 'aucune Me.ScrollBars = 1 'horizontale Me.ScrollBars = 2 'verticale Me.ScrollBars = 3 'les deux
-- @+ Raymond Access MVP. http://access.seneque.free.fr/ http://access2003.free.fr/ http://users.skynet.be/mpfa/charte.htm pour une meilleure efficacité de tes interventions sur MPFA.
"bernard" a écrit dans le message de
news:0b2101c38a31$da30aec0$ Bonjour,
Je souhaite avec VBA pouvoir réinitialiser en haut et à gauche les barres de défilement d'un formulaire, après avoir appuyé sur un bouton.
Merci.
.
RE.
A ma connaissance on ne peut pas agir sur les ascenseurs autrement que sur
leur existence.
Il est possible de se positionner sur le premier contrôle par le numéro
d'index de tabulation avec une fonction de ce genre, à condition que l'index
le plus petit soit le plus à gauche et le plus en haut.
Dim Ctl As Control
Dim Pos As Integer
Dim Contre As String
Pos = 0
Contre = ""
On Error Resume Next
For Each Ctl In Me.Controls
If Ctl.TabIndex <= Pos Then
If Ctl.ControlType = acTextBox Then
Pos = Ctl.TabIndex
Contre = Ctl.Name
End If
End If
Next
If Contre <> "" Then
Me.Controls(Contre).SetFocus
End If
on peut modifier et changer les if.
quoi qu'il arrive, même avec cette fonction, l'opérateur aura la possibilité
de déplacer les ascenseurs et de faire ce qu'il veut et un bouton pour
remettre en place n'est que d'une utilité toute relative.
c'était une idée (pas terrible)
--
@+
Raymond Access MVP.
http://access.seneque.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/charte.htm pour une meilleure
efficacité de tes interventions sur MPFA.
"bernard" <bpeyrol@hotmail.com> a écrit dans le message de
news:0e3701c38a61$5ddad870$a101280a@phx.gbl...
Bonjour,
Je me suis mal exprimé dans ma demande. Ce que je
souhaite, c'est pouvoir replacer automatiquement les
curseurs des barres de défilement à la position d'origine
soit au maxi en haut et au maxi à gauche.
Merci.
-----Message d'origine-----
Bonjour.
A ma connaissance les barres de défilement (ScrollBars)
appelées ascenseurs
sont à droite et en bas de l'écran.
pour les sélectionner en vba:
Me.ScrollBars = 0 'aucune
Me.ScrollBars = 1 'horizontale
Me.ScrollBars = 2 'verticale
Me.ScrollBars = 3 'les deux
--
@+
Raymond Access MVP.
http://access.seneque.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/charte.htm pour une meilleure
efficacité de tes interventions sur MPFA.
"bernard" <bpeyrol@hotmail.com> a écrit dans le message
de
A ma connaissance on ne peut pas agir sur les ascenseurs autrement que sur leur existence. Il est possible de se positionner sur le premier contrôle par le numéro d'index de tabulation avec une fonction de ce genre, à condition que l'index le plus petit soit le plus à gauche et le plus en haut. Dim Ctl As Control Dim Pos As Integer Dim Contre As String Pos = 0 Contre = "" On Error Resume Next For Each Ctl In Me.Controls If Ctl.TabIndex <= Pos Then If Ctl.ControlType = acTextBox Then Pos = Ctl.TabIndex Contre = Ctl.Name End If End If Next If Contre <> "" Then Me.Controls(Contre).SetFocus End If
on peut modifier et changer les if.
quoi qu'il arrive, même avec cette fonction, l'opérateur aura la possibilité de déplacer les ascenseurs et de faire ce qu'il veut et un bouton pour remettre en place n'est que d'une utilité toute relative.
c'était une idée (pas terrible)
-- @+ Raymond Access MVP. http://access.seneque.free.fr/ http://access2003.free.fr/ http://users.skynet.be/mpfa/charte.htm pour une meilleure efficacité de tes interventions sur MPFA.
"bernard" a écrit dans le message de news:0e3701c38a61$5ddad870$ Bonjour,
Je me suis mal exprimé dans ma demande. Ce que je souhaite, c'est pouvoir replacer automatiquement les curseurs des barres de défilement à la position d'origine soit au maxi en haut et au maxi à gauche.
Merci.
-----Message d'origine----- Bonjour.
A ma connaissance les barres de défilement (ScrollBars) appelées ascenseurs
sont à droite et en bas de l'écran.
pour les sélectionner en vba: Me.ScrollBars = 0 'aucune Me.ScrollBars = 1 'horizontale Me.ScrollBars = 2 'verticale Me.ScrollBars = 3 'les deux
-- @+ Raymond Access MVP. http://access.seneque.free.fr/ http://access2003.free.fr/ http://users.skynet.be/mpfa/charte.htm pour une meilleure efficacité de tes interventions sur MPFA.
"bernard" a écrit dans le message de
news:0b2101c38a31$da30aec0$ Bonjour,
Je souhaite avec VBA pouvoir réinitialiser en haut et à gauche les barres de défilement d'un formulaire, après avoir appuyé sur un bouton.
