OVH Cloud OVH Cloud

Liste de champs

4 réponses
Avatar
Stéphane Lavergne
Bonjour,

Je cherche à avoir dans VBA Access la liste de tous les champs utilisés
(voire disponibles) dans 1 état qui n'est pas encore ouvert.
Si ce n'est pas possible à partir de l'état, il serait possible d'avoir les
champs disponible dans 1 requête.

La collection Reports ne fonctionne qu'avec des états ouverts alors j'ai
cherché du côté de AllReports, qui ne contient hélas pas autant de
propriétés...

Merci pour votre aide

Stéphane Lavergne

4 réponses

Avatar
Raymond
Bonsoir.
tu peux avoir la liste dans l'état lui-même avant le chargement et
l'impression:
Private Sub Report_Open(Cancel As Integer)
Dim ctl As Control
For Each ctl In Me.Controls
MsgBox ctl.Name
Next
End Sub

Tu peux l'avoir dans un formulaire sans ouvrir l'état:
Dim ctl As Control
Dim Rpt As Report
Set Rpt = Report_état1
For Each ctl In Rpt.Controls
MsgBox ctl.Name
Next

il reste à tester le type de contrôle selon ce qu'on veut en faire.
--
@+
Raymond Access MVP.
http://access.seneque.free.fr/
http://users.skynet.be/mpfa/charte.htm pour une meilleure
efficacité de tes interventions sur MPFA.


"Stéphane Lavergne" a écrit dans le message de
news:%23by$
Bonjour,

Je cherche à avoir dans VBA Access la liste de tous les champs utilisés
(voire disponibles) dans 1 état qui n'est pas encore ouvert.
Si ce n'est pas possible à partir de l'état, il serait possible d'avoir
les

champs disponible dans 1 requête.

La collection Reports ne fonctionne qu'avec des états ouverts alors j'ai
cherché du côté de AllReports, qui ne contient hélas pas autant de
propriétés...

Merci pour votre aide

Stéphane Lavergne




Avatar
Stéphane Lavergne
Merci Raymond,

Je ne peux pas utiliser le code pour dans l'état.

Celui du formulaire semble me convenir :)
mais j'ai 1 pb avec :
Set Rpt = Report_état1
si je met :

Set Rpt = "NomDeMonEtat"
ca ne peut pas fonctionner,

si je met :

Set Rpt = reports("NomDeMonEtat")
ca ne fonctionne pas non plus car l'état n'est pas ouvert

Que dois-je mettre a la place de Report_état1 ?

Stéphane Lavergne


"Raymond" a écrit dans le message de
news:
Bonsoir.
tu peux avoir la liste dans l'état lui-même avant le chargement et
l'impression:
Private Sub Report_Open(Cancel As Integer)
Dim ctl As Control
For Each ctl In Me.Controls
MsgBox ctl.Name
Next
End Sub

Tu peux l'avoir dans un formulaire sans ouvrir l'état:
Dim ctl As Control
Dim Rpt As Report
Set Rpt = Report_état1
For Each ctl In Rpt.Controls
MsgBox ctl.Name
Next

il reste à tester le type de contrôle selon ce qu'on veut en faire.
--
@+
Raymond Access MVP.
http://access.seneque.free.fr/
http://users.skynet.be/mpfa/charte.htm pour une meilleure
efficacité de tes interventions sur MPFA.


"Stéphane Lavergne" a écrit dans le message de
news:%23by$
Bonjour,

Je cherche à avoir dans VBA Access la liste de tous les champs utilisés
(voire disponibles) dans 1 état qui n'est pas encore ouvert.
Si ce n'est pas possible à partir de l'état, il serait possible d'avoir
les

champs disponible dans 1 requête.

La collection Reports ne fonctionne qu'avec des états ouverts alors j'ai
cherché du côté de AllReports, qui ne contient hélas pas autant de
propriétés...

Merci pour votre aide

Stéphane Lavergne







Avatar
Raymond
Bonsoir.

Il faut indiquer un objet. si ton état se nomme Monétat2 tu mets
Set Rpt = Report_Monétat2

--
@+
Raymond Access MVP.
http://access.seneque.free.fr/
http://users.skynet.be/mpfa/charte.htm pour une meilleure
efficacité de tes interventions sur MPFA.


"Stéphane Lavergne" a écrit dans le message de
news:
Merci Raymond,

Je ne peux pas utiliser le code pour dans l'état.

Celui du formulaire semble me convenir :)
mais j'ai 1 pb avec :
Set Rpt = Report_état1
si je met :

Set Rpt = "NomDeMonEtat"
ca ne peut pas fonctionner,

si je met :

Set Rpt = reports("NomDeMonEtat")
ca ne fonctionne pas non plus car l'état n'est pas ouvert

Que dois-je mettre a la place de Report_état1 ?

Stéphane Lavergne




Avatar
Stéphane Lavergne
Encore un grand merci Raymond

Cela fonctionne parfaitement

J'ai juste remplacé .name par .controlsource
et ajouté juste avant On error resume next pour éviter les étiquettes et
autre controles sans controles sources.

Stéphane Lavergne

"Raymond" a écrit dans le message de
news:
Bonsoir.

Il faut indiquer un objet. si ton état se nomme Monétat2 tu mets
Set Rpt = Report_Monétat2

--
@+
Raymond Access MVP.
http://access.seneque.free.fr/
http://users.skynet.be/mpfa/charte.htm pour une meilleure
efficacité de tes interventions sur MPFA.


"Stéphane Lavergne" a écrit dans le message de
news:
Merci Raymond,

Je ne peux pas utiliser le code pour dans l'état.

Celui du formulaire semble me convenir :)
mais j'ai 1 pb avec :
Set Rpt = Report_état1
si je met :

Set Rpt = "NomDeMonEtat"
ca ne peut pas fonctionner,

si je met :

Set Rpt = reports("NomDeMonEtat")
ca ne fonctionne pas non plus car l'état n'est pas ouvert

Que dois-je mettre a la place de Report_état1 ?

Stéphane Lavergne