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 arret tabulation an vba

arret tabulation an vba

4 réponses
Avatar
...Patrick
Bonjour,

pour la création de plusieurs formulaires, comment faire en vba pour mettre
tous les arrets tabulation à "non" ? si c'est possible ...

Merci
Signaler un problème avec ce contenu

4 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
Avatar
Eric
Bonjour,

Quelque chose comme :

Sub NoTabStop(UnForm As Form)
On Error Resume Next
Dim c As Control
For Each c In UnForm.Controls
c.TabStop = False
Next c
End Sub

et sur Activation du formulaire:
Private Sub Form_Current()
NoTabStop Me
End Sub

Bonjour,

pour la création de plusieurs formulaires, comment faire en vba pour
mettre tous les arrets tabulation à "non" ? si c'est possible ...

Merci


--
A+
Eric
http://www.mpfa.info/
Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr

Avatar
...Patrick
Merci Eric,

j'essaie ça !

Patrick



"Eric" a écrit dans le message de news:

Bonjour,

Quelque chose comme :

Sub NoTabStop(UnForm As Form)
On Error Resume Next
Dim c As Control
For Each c In UnForm.Controls
c.TabStop = False
Next c
End Sub

et sur Activation du formulaire:
Private Sub Form_Current()
NoTabStop Me
End Sub

Bonjour,

pour la création de plusieurs formulaires, comment faire en vba pour
mettre tous les arrets tabulation à "non" ? si c'est possible ...

Merci


--
A+
Eric
http://www.mpfa.info/
Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr



Avatar
Luiz Cláudio C. V. Rocha
Vous pouvez également essayer ce code (vous le besoin de l'exécuter seulement
une fois):

Sub ChangeTabStop()
'Change controls TabStop property in design time
Dim frm As AccessObject
Dim ctl As Control

For Each frm In CurrentProject.AllForms
DoCmd.OpenForm frm.Name, acDesign
On Error Resume Next
For Each ctl In Forms(frm.Name).Controls
ctl.Properties("TabStop") = False
Next ctl
DoCmd.Save acForm, frm.Name
DoCmd.Close acForm, frm.Name
Next frm

End Sub


--
Luiz Cláudio C. V. Rocha
Coordenador de Projetos FórumAccess
São Paulo - Brasil
MVP Office
http://www.msmvps.com/officedev


"...Patrick" wrote:

Merci Eric,

j'essaie ça !

Patrick



"Eric" a écrit dans le message de news:

Bonjour,

Quelque chose comme :

Sub NoTabStop(UnForm As Form)
On Error Resume Next
Dim c As Control
For Each c In UnForm.Controls
c.TabStop = False
Next c
End Sub

et sur Activation du formulaire:
Private Sub Form_Current()
NoTabStop Me
End Sub

Bonjour,

pour la création de plusieurs formulaires, comment faire en vba pour
mettre tous les arrets tabulation à "non" ? si c'est possible ...

Merci


--
A+
Eric
http://www.mpfa.info/
Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr







Avatar
...Patrick
Ok

merci
j'essaie demain

Bye

"Luiz Cláudio C. V. Rocha" a
écrit dans le message de news:

Vous pouvez également essayer ce code (vous le besoin de l'exécuter
seulement
une fois):

Sub ChangeTabStop()
'Change controls TabStop property in design time
Dim frm As AccessObject
Dim ctl As Control

For Each frm In CurrentProject.AllForms
DoCmd.OpenForm frm.Name, acDesign
On Error Resume Next
For Each ctl In Forms(frm.Name).Controls
ctl.Properties("TabStop") = False
Next ctl
DoCmd.Save acForm, frm.Name
DoCmd.Close acForm, frm.Name
Next frm

End Sub


--
Luiz Cláudio C. V. Rocha
Coordenador de Projetos FórumAccess
São Paulo - Brasil
MVP Office
http://www.msmvps.com/officedev


"...Patrick" wrote:

Merci Eric,

j'essaie ça !

Patrick



"Eric" a écrit dans le message de news:

Bonjour,

Quelque chose comme :

Sub NoTabStop(UnForm As Form)
On Error Resume Next
Dim c As Control
For Each c In UnForm.Controls
c.TabStop = False
Next c
End Sub

et sur Activation du formulaire:
Private Sub Form_Current()
NoTabStop Me
End Sub

Bonjour,

pour la création de plusieurs formulaires, comment faire en vba pour
mettre tous les arrets tabulation à "non" ? si c'est possible ...

Merci


--
A+
Eric
http://www.mpfa.info/
Archives :
http://groups.google.fr/group/microsoft.public.fr.access?hl=fr