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
Eric
Bonjour,
Pour changer la légende : Private Sub Commande0_Click() Dim i As Integer, nb As Integer With Me.CtlTab0 nb = .Pages.Count For i = 0 To nb - 1 .Pages(i).Caption = "Test" & Format(i, "00") Next i End With End Sub
Pour changer le nom des pages d'un formulaire nommé FRMLUC, il faut être en mode Design. le code doit être du genre, à partir d'un autre formulaire,
Private Sub Commande0_Click() Dim f As Form, i As Integer, nb As Integer DoCmd.OpenForm "FRMLUC", acDesign, , , , acHidden Set f = Forms("frmluc") With f!CtlTab0 nb = .Pages.Count For i = 0 To nb - 1 .Pages(i).Name = "NouveauNom" & Format(i, "00") Next i End With DoCmd.Close acForm, "FRMLUC", acSaveYes Set f = Nothing End Sub
La légende des onglets aura par défaut le nom des onglets
Bonjour,
Je voudrais juste dynamiquement changer le nom des onglets d'un TAB Control.
Qu'elle en est la syntaxe ?
Merci et bonne journee,
Luc
-- A+ Eric http://users.skynet.be/mpfa/ Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr
Bonjour,
Pour changer la légende :
Private Sub Commande0_Click()
Dim i As Integer, nb As Integer
With Me.CtlTab0
nb = .Pages.Count
For i = 0 To nb - 1
.Pages(i).Caption = "Test" & Format(i, "00")
Next i
End With
End Sub
Pour changer le nom des pages d'un formulaire nommé FRMLUC,
il faut être en mode Design.
le code doit être du genre, à partir d'un autre formulaire,
Private Sub Commande0_Click()
Dim f As Form, i As Integer, nb As Integer
DoCmd.OpenForm "FRMLUC", acDesign, , , , acHidden
Set f = Forms("frmluc")
With f!CtlTab0
nb = .Pages.Count
For i = 0 To nb - 1
.Pages(i).Name = "NouveauNom" & Format(i, "00")
Next i
End With
DoCmd.Close acForm, "FRMLUC", acSaveYes
Set f = Nothing
End Sub
La légende des onglets aura par défaut le nom des onglets
Bonjour,
Je voudrais juste dynamiquement changer le nom des onglets d'un TAB Control.
Qu'elle en est la syntaxe ?
Merci et bonne journee,
Luc
--
A+
Eric
http://users.skynet.be/mpfa/
Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr
Pour changer la légende : Private Sub Commande0_Click() Dim i As Integer, nb As Integer With Me.CtlTab0 nb = .Pages.Count For i = 0 To nb - 1 .Pages(i).Caption = "Test" & Format(i, "00") Next i End With End Sub
Pour changer le nom des pages d'un formulaire nommé FRMLUC, il faut être en mode Design. le code doit être du genre, à partir d'un autre formulaire,
Private Sub Commande0_Click() Dim f As Form, i As Integer, nb As Integer DoCmd.OpenForm "FRMLUC", acDesign, , , , acHidden Set f = Forms("frmluc") With f!CtlTab0 nb = .Pages.Count For i = 0 To nb - 1 .Pages(i).Name = "NouveauNom" & Format(i, "00") Next i End With DoCmd.Close acForm, "FRMLUC", acSaveYes Set f = Nothing End Sub
La légende des onglets aura par défaut le nom des onglets
Bonjour,
Je voudrais juste dynamiquement changer le nom des onglets d'un TAB Control.
Qu'elle en est la syntaxe ?
Merci et bonne journee,
Luc
-- A+ Eric http://users.skynet.be/mpfa/ Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr
Luc de Kin
Merci Eric et Bonne Journee...
Bonjour,
Pour changer la légende : Private Sub Commande0_Click() Dim i As Integer, nb As Integer With Me.CtlTab0 nb = .Pages.Count For i = 0 To nb - 1 .Pages(i).Caption = "Test" & Format(i, "00") Next i End With End Sub
Pour changer le nom des pages d'un formulaire nommé FRMLUC, il faut être en mode Design. le code doit être du genre, à partir d'un autre formulaire,
Private Sub Commande0_Click() Dim f As Form, i As Integer, nb As Integer DoCmd.OpenForm "FRMLUC", acDesign, , , , acHidden Set f = Forms("frmluc") With f!CtlTab0 nb = .Pages.Count For i = 0 To nb - 1 .Pages(i).Name = "NouveauNom" & Format(i, "00") Next i End With DoCmd.Close acForm, "FRMLUC", acSaveYes Set f = Nothing End Sub
La légende des onglets aura par défaut le nom des onglets
Bonjour,
Je voudrais juste dynamiquement changer le nom des onglets d'un TAB Control.
Qu'elle en est la syntaxe ?
Merci et bonne journee,
Luc
-- A+ Eric http://users.skynet.be/mpfa/ Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr
Merci Eric et Bonne Journee...
Bonjour,
Pour changer la légende :
Private Sub Commande0_Click()
Dim i As Integer, nb As Integer
With Me.CtlTab0
nb = .Pages.Count
For i = 0 To nb - 1
.Pages(i).Caption = "Test" & Format(i, "00")
Next i
End With
End Sub
Pour changer le nom des pages d'un formulaire nommé FRMLUC,
il faut être en mode Design.
le code doit être du genre, à partir d'un autre formulaire,
Private Sub Commande0_Click()
Dim f As Form, i As Integer, nb As Integer
DoCmd.OpenForm "FRMLUC", acDesign, , , , acHidden
Set f = Forms("frmluc")
With f!CtlTab0
nb = .Pages.Count
For i = 0 To nb - 1
.Pages(i).Name = "NouveauNom" & Format(i, "00")
Next i
End With
DoCmd.Close acForm, "FRMLUC", acSaveYes
Set f = Nothing
End Sub
La légende des onglets aura par défaut le nom des onglets
Bonjour,
Je voudrais juste dynamiquement changer le nom des onglets d'un TAB Control.
Qu'elle en est la syntaxe ?
Merci et bonne journee,
Luc
--
A+
Eric
http://users.skynet.be/mpfa/
Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr
Pour changer la légende : Private Sub Commande0_Click() Dim i As Integer, nb As Integer With Me.CtlTab0 nb = .Pages.Count For i = 0 To nb - 1 .Pages(i).Caption = "Test" & Format(i, "00") Next i End With End Sub
Pour changer le nom des pages d'un formulaire nommé FRMLUC, il faut être en mode Design. le code doit être du genre, à partir d'un autre formulaire,
Private Sub Commande0_Click() Dim f As Form, i As Integer, nb As Integer DoCmd.OpenForm "FRMLUC", acDesign, , , , acHidden Set f = Forms("frmluc") With f!CtlTab0 nb = .Pages.Count For i = 0 To nb - 1 .Pages(i).Name = "NouveauNom" & Format(i, "00") Next i End With DoCmd.Close acForm, "FRMLUC", acSaveYes Set f = Nothing End Sub
La légende des onglets aura par défaut le nom des onglets
Bonjour,
Je voudrais juste dynamiquement changer le nom des onglets d'un TAB Control.
Qu'elle en est la syntaxe ?
Merci et bonne journee,
Luc
-- A+ Eric http://users.skynet.be/mpfa/ Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr
