Discussion :

[Dafbau]

Bonjour
je crée un état en fonction des zones actives d'une table
Pour chaque enregistrement de la table l'état peut être tres différent.
a l'ouverture de cet état je cherche donc à selectionner TOUS les contrôles pour les supprimer.
Comment faire une selection multiple en VBA ?

Merci

[cafeine]

Hello,

cette conception est très étrange !
Cela dit, tu peux faire une boucle sur les contrôles ... et les effacer tous.

Bonjour
je crée un état en fonction des zones actives d'une table
Pour chaque enregistrement de la table l'état peut être tres différent.
a l'ouverture de cet état je cherche donc à selectionner TOUS les contrôles pour les supprimer.
Comment faire une selection multiple en VBA ?

Merci

[Tofalu]

Comme le dit cafeine, c'est très étrange.

D'autant plus qu'en mode runtime cette manipulation sera interdite.

D'autres part si les états sont vraiment différents, autant créer plusieurs états non ?

[Dafbau]

Bizarre ? vous avez dit bizarre?
En fait j'édite un bulletin d'analyse à destination du client.
Et je veux que la présentation du bulletin n'affiche que les champs pour lesquels l'analyse est demandée et pas toutes les analyses possibles.
Donc les combinaisons peuvent etre multiples et créer un etat par possibilité serait fastidieux.
Je veux supprimer tout les champs existants à l'ouverture de l'état en mode création car cela me paraissait plus simple pour la création du nouvel état.

Je vais réfléchir à un autre moyen d'y parvenir

Merci

[mcdotta]

Voici quelques lignes qui te permettront peut être de démarrer.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
 
strReportName = "NomDuRapport"
DoCmd.OpenReport strReportName, acViewDesign
Set rptReport = Reports(strReportName)
 
For Each ctlControl In rptReport
        strCtrName = ctlControl.Name
        ' Ca c'est éventuellement pour ne pas effacer tous tes contrôles
        '*********************************
        If Left(strCtrName, 6) = "lblAdd" Or Left(strCtrName, 6) = "txtAdd" Then
            ReDim Preserve strCtlName(i)
            strCtlName(i) = ctlControl.Name
            i = i + 1
        End If
        '*********************************
    Next
    For j = 0 To i - 1
        DeleteReportControl rptReport.Name, strCtlName(j)
    Next

Bon départ !!!

[Dafbau]

merci mcdotta

je teste cette piste.

[Faw]

Salut, sauf qu'avec l'ouverture en acViewDesign en plein programme, plus
question de créer un .MDE ou autre Réplicats...

Un petit plus si c'est ce que tu cherches, mets

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

DoCmd.OpenReport strReportName, acViewDesign , , , acHidden

le mode création n'apparaîtra pas à l'écran.

[Dafbau]

Les premières remarques à ma question m'ont fait réfléchir.
En fait je pars sur un état préétabli avec tous les controles possibles.
En fonction de l'enregistrement selectionné je déplace les controles et les rends visibles ou non.
Cela m'évite ainsi de supprimer les contrôles pour peut etre récréer les memes !
Cette formule a l'air de fonctionner plus simplement.
Il ne me restera qu'à ajuster la taille de l'état (c'est un sous état)
Merci

[cafeine]

Alléluia !
ça me paraît être la solution la plus sage ...

Les premières remarques à ma question m'ont fait réfléchir.
En fait je pars sur un état préétabli avec tous les controles possibles.
En fonction de l'enregistrement selectionné je déplace les controles et les rends visibles ou non.
Cela m'évite ainsi de supprimer les contrôles pour peut etre récréer les memes !
Cette formule a l'air de fonctionner plus simplement.
Il ne me restera qu'à ajuster la taille de l'état (c'est un sous état)
Merci

[Dafbau]

les voies d'access sont impénétrables....

[Dafbau]

et ça fonctionne vraiment bien avec des codes VBA plutôt simples (ou du moins adaptés à mon niveau.....)

Merci