Bonjour,
Je voudrais dans VBA r=E9cup=E9rer les enregistrements d'une table et les
attribuer =E0 des boutons de commande .
Le code suivant marche tres bien lorsque le nombre de boutons
correspond au nombre d'enregistrement
For Each ctl In Me.Section(acDetail).Controls
if TypeOf ctl Is CommandButton Then
ctl.Caption =3D rst("NomRegion").Value
rst.MoveNext
End If
Next ctl
ce que je voudrais faire, c'est rendre invisible les boutons en trop,
mais je n'arrive pas =E0 faire une boucle pour les =E9num=E9rer.
si vous avez une id=E9e..
Merci
Idaholola
A quel moment sont-ils en trop ? quel est le paramètre qui permet de le savoir ?
"hidaholola" a écrit dans le message de news:
Bonjour, Je voudrais dans VBA récupérer les enregistrements d'une table et les attribuer à des boutons de commande . Le code suivant marche tres bien lorsque le nombre de boutons correspond au nombre d'enregistrement
For Each ctl In Me.Section(acDetail).Controls if TypeOf ctl Is CommandButton Then
ctl.Caption = rst("NomRegion").Value rst.MoveNext End If Next ctl
ce que je voudrais faire, c'est rendre invisible les boutons en trop, mais je n'arrive pas à faire une boucle pour les énumérer. si vous avez une idée.. Merci Idaholola
A quel moment sont-ils en trop ? quel est le paramètre qui permet de le
savoir ?
"hidaholola" <rdelbeuf@alicepro.fr> a écrit dans le message de news:
fad5616a-77db-43e2-94d9-3a7e579130ac@e38g2000prn.googlegroups.com...
Bonjour,
Je voudrais dans VBA récupérer les enregistrements d'une table et les
attribuer à des boutons de commande .
Le code suivant marche tres bien lorsque le nombre de boutons
correspond au nombre d'enregistrement
For Each ctl In Me.Section(acDetail).Controls
if TypeOf ctl Is CommandButton Then
ctl.Caption = rst("NomRegion").Value
rst.MoveNext
End If
Next ctl
ce que je voudrais faire, c'est rendre invisible les boutons en trop,
mais je n'arrive pas à faire une boucle pour les énumérer.
si vous avez une idée..
Merci
Idaholola
A quel moment sont-ils en trop ? quel est le paramètre qui permet de le savoir ?
"hidaholola" a écrit dans le message de news:
Bonjour, Je voudrais dans VBA récupérer les enregistrements d'une table et les attribuer à des boutons de commande . Le code suivant marche tres bien lorsque le nombre de boutons correspond au nombre d'enregistrement
For Each ctl In Me.Section(acDetail).Controls if TypeOf ctl Is CommandButton Then
ctl.Caption = rst("NomRegion").Value rst.MoveNext End If Next ctl
ce que je voudrais faire, c'est rendre invisible les boutons en trop, mais je n'arrive pas à faire une boucle pour les énumérer. si vous avez une idée.. Merci Idaholola
Gilbert
Bonjour,
Essaie avec ça Tu nommes tes boutons Bouton1,Bouton2,...
Const Nbboutons Dim i as long
For i=1 to Nbboutons Me("Bouton" & i).visibleúlse next i
-- Cordialement,
Gilbert
"hidaholola" a écrit dans le message de news: Bonjour, Je voudrais dans VBA récupérer les enregistrements d'une table et les attribuer à des boutons de commande . Le code suivant marche tres bien lorsque le nombre de boutons correspond au nombre d'enregistrement
For Each ctl In Me.Section(acDetail).Controls if TypeOf ctl Is CommandButton Then
ctl.Caption = rst("NomRegion").Value rst.MoveNext End If Next ctl
ce que je voudrais faire, c'est rendre invisible les boutons en trop, mais je n'arrive pas à faire une boucle pour les énumérer. si vous avez une idée.. Merci Idaholola
Bonjour,
Essaie avec ça
Tu nommes tes boutons Bouton1,Bouton2,...
Const Nbboutons
Dim i as long
For i=1 to Nbboutons
Me("Bouton" & i).visibleúlse
next i
--
Cordialement,
Gilbert
"hidaholola" <rdelbeuf@alicepro.fr> a écrit dans le message de
news:fad5616a-77db-43e2-94d9-3a7e579130ac@e38g2000prn.googlegroups.com...
Bonjour,
Je voudrais dans VBA récupérer les enregistrements d'une table et les
attribuer à des boutons de commande .
Le code suivant marche tres bien lorsque le nombre de boutons
correspond au nombre d'enregistrement
For Each ctl In Me.Section(acDetail).Controls
if TypeOf ctl Is CommandButton Then
ctl.Caption = rst("NomRegion").Value
rst.MoveNext
End If
Next ctl
ce que je voudrais faire, c'est rendre invisible les boutons en trop,
mais je n'arrive pas à faire une boucle pour les énumérer.
si vous avez une idée..
Merci
Idaholola
Essaie avec ça Tu nommes tes boutons Bouton1,Bouton2,...
Const Nbboutons Dim i as long
For i=1 to Nbboutons Me("Bouton" & i).visibleúlse next i
-- Cordialement,
Gilbert
"hidaholola" a écrit dans le message de news: Bonjour, Je voudrais dans VBA récupérer les enregistrements d'une table et les attribuer à des boutons de commande . Le code suivant marche tres bien lorsque le nombre de boutons correspond au nombre d'enregistrement
For Each ctl In Me.Section(acDetail).Controls if TypeOf ctl Is CommandButton Then
ctl.Caption = rst("NomRegion").Value rst.MoveNext End If Next ctl
ce que je voudrais faire, c'est rendre invisible les boutons en trop, mais je n'arrive pas à faire une boucle pour les énumérer. si vous avez une idée.. Merci Idaholola
hidaholola
On 8 oct, 21:56, "CErnst" wrote:
A quel moment sont-ils en trop ? quel est le paramètre qui permet de le savoir ?
"hidaholola" a écrit dans le message de news:
Bonjour, Je voudrais dans VBA récupérer les enregistrements d'une table et les attribuer à des boutons de commande . Le code suivant marche tres bien lorsque le nombre de boutons correspond au nombre d'enregistrement
For Each ctl In Me.Section(acDetail).Controls if TypeOf ctl Is CommandButton Then
ctl.Caption = rst("NomRegion").Value rst.MoveNext End If Next ctl
ce que je voudrais faire, c'est rendre invisible les boutons en trop, mais je n'arrive pas à faire une boucle pour les énumérer. si vous avez une idée.. Merci Idaholola
Bonjour, réponse tardive après absence Ils sont en trop lorsque le nombre d'enregistrements de la table est inférieur au nombre de boutons sur le formulaire c"e qui provoque une erreur d'exécution: enregistrement non trouvé merci de ton aide
On 8 oct, 21:56, "CErnst" <contact.nos...@micro-gestion.fr> wrote:
A quel moment sont-ils en trop ? quel est le paramètre qui permet de le
savoir ?
"hidaholola" <rdelb...@alicepro.fr> a écrit dans le message de news:
fad5616a-77db-43e2-94d9-3a7e57913...@e38g2000prn.googlegroups.com...
Bonjour,
Je voudrais dans VBA récupérer les enregistrements d'une table et les
attribuer à des boutons de commande .
Le code suivant marche tres bien lorsque le nombre de boutons
correspond au nombre d'enregistrement
For Each ctl In Me.Section(acDetail).Controls
if TypeOf ctl Is CommandButton Then
ctl.Caption = rst("NomRegion").Value
rst.MoveNext
End If
Next ctl
ce que je voudrais faire, c'est rendre invisible les boutons en trop,
mais je n'arrive pas à faire une boucle pour les énumérer.
si vous avez une idée..
Merci
Idaholola
Bonjour,
réponse tardive après absence
Ils sont en trop lorsque le nombre d'enregistrements de la table est
inférieur au nombre de boutons sur le formulaire c"e qui provoque une
erreur d'exécution: enregistrement non trouvé
merci de ton aide
A quel moment sont-ils en trop ? quel est le paramètre qui permet de le savoir ?
"hidaholola" a écrit dans le message de news:
Bonjour, Je voudrais dans VBA récupérer les enregistrements d'une table et les attribuer à des boutons de commande . Le code suivant marche tres bien lorsque le nombre de boutons correspond au nombre d'enregistrement
For Each ctl In Me.Section(acDetail).Controls if TypeOf ctl Is CommandButton Then
ctl.Caption = rst("NomRegion").Value rst.MoveNext End If Next ctl
ce que je voudrais faire, c'est rendre invisible les boutons en trop, mais je n'arrive pas à faire une boucle pour les énumérer. si vous avez une idée.. Merci Idaholola
Bonjour, réponse tardive après absence Ils sont en trop lorsque le nombre d'enregistrements de la table est inférieur au nombre de boutons sur le formulaire c"e qui provoque une erreur d'exécution: enregistrement non trouvé merci de ton aide
hidaholola
On 8 oct, 22:29, "Gilbert" wrote:
Bonjour,
Essaie avec ça Tu nommes tes boutons Bouton1,Bouton2,...
Const Nbboutons Dim i as long
For i=1 to Nbboutons Me("Bouton" & i).visibleúlse next i
-- Cordialement,
Gilbert
"hidaholola" a écrit dans le message denews:fad5 Bonjour, Je voudrais dans VBA récupérer les enregistrements d'une table et les attribuer à des boutons de commande . Le code suivant marche tres bien lorsque le nombre de boutons correspond au nombre d'enregistrement
For Each ctl In Me.Section(acDetail).Controls if TypeOf ctl Is CommandButton Then
ctl.Caption = rst("NomRegion").Value rst.MoveNext End If Next ctl
ce que je voudrais faire, c'est rendre invisible les boutons en trop, mais je n'arrive pas à faire une boucle pour les énumérer. si vous avez une idée.. Merci Idaholola
Merci, après légère adaptation, ça marche super je compliquais trop (comme souvent) bonne journée
On 8 oct, 22:29, "Gilbert" <ZZZZgilbert...@tiscali.fr> wrote:
Bonjour,
Essaie avec ça
Tu nommes tes boutons Bouton1,Bouton2,...
Const Nbboutons =10
Dim i as long
For i=1 to Nbboutons
Me("Bouton" & i).visible=False
next i
--
Cordialement,
Gilbert
"hidaholola" <rdelb...@alicepro.fr> a écrit dans le message denews:fad5 616a-77db-43e2-94d9-3a7e579130ac@e38g2000prn.googlegroups.com...
Bonjour,
Je voudrais dans VBA récupérer les enregistrements d'une table et les
attribuer à des boutons de commande .
Le code suivant marche tres bien lorsque le nombre de boutons
correspond au nombre d'enregistrement
For Each ctl In Me.Section(acDetail).Controls
if TypeOf ctl Is CommandButton Then
ctl.Caption = rst("NomRegion").Value
rst.MoveNext
End If
Next ctl
ce que je voudrais faire, c'est rendre invisible les boutons en trop,
mais je n'arrive pas à faire une boucle pour les énumérer.
si vous avez une idée..
Merci
Idaholola
Merci,
après légère adaptation, ça marche super je compliquais trop (comme
souvent)
bonne journée
Essaie avec ça Tu nommes tes boutons Bouton1,Bouton2,...
Const Nbboutons Dim i as long
For i=1 to Nbboutons Me("Bouton" & i).visibleúlse next i
-- Cordialement,
Gilbert
"hidaholola" a écrit dans le message denews:fad5 Bonjour, Je voudrais dans VBA récupérer les enregistrements d'une table et les attribuer à des boutons de commande . Le code suivant marche tres bien lorsque le nombre de boutons correspond au nombre d'enregistrement
For Each ctl In Me.Section(acDetail).Controls if TypeOf ctl Is CommandButton Then
ctl.Caption = rst("NomRegion").Value rst.MoveNext End If Next ctl
ce que je voudrais faire, c'est rendre invisible les boutons en trop, mais je n'arrive pas à faire une boucle pour les énumérer. si vous avez une idée.. Merci Idaholola
Merci, après légère adaptation, ça marche super je compliquais trop (comme souvent) bonne journée