Discussion :

[Ric21]

Bonjour à tous

Une question ...Bête

Peut-on créer un état en automatique, à partire d'un forulaire?
Je pensais par un code ?

Je m'explique: lorsque je clic sur une liste déroulante par exemple, je souhaiterai que cela me donne les enregistrements qui correspondent au choix de ma liste

Suis-je clair ?

@ +
Ric21

[Heureux-oli]

Un état est un objet dynamique et normalement, il va afficher les données qui se trouvent dans une table où une requête.

Si tu fait un état, basé sur un autre objet, il va afficher les données de l'objet.

[Ric21]

Bonsoir Heureux-oli

Ce que je demandais c'est avec un état vierge, que le choix dans le formulaire me créer un état en automatique sans être obiger de le faire en mode création.

Je ne sais pas si je me fait bien comprendre

Ou c'esdt moi qui ne sais pas exprimer mon idée

Non Nöel à toi

@ +
Ric 21

[helas]

Un exemple de creation d'etat

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
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
 
Sub CreationEtat()
 Dim r As Report, NomEtat As String, c As Control
 
 Rem *** Creation de l'état ****
 Set r = CreateReport
 With r
     .RecordSource = "table1"
     .Caption = "Titre de l'etat"
 End With
 
 NomEtat = r.Name
 DoCmd.Save acReport, NomEtat
 
 DoCmd.Close acReport, NomEtat, acSaveYes
 DoCmd.Rename "NomDELEtat", acReport, NomEtat
 DoCmd.OpenReport "NomDELEtat", acViewDesign    'ouverture en mode creation
 
 Rem *** Création des controles ***
 Set c = CreateReportControl("NomDELEtat", acLabel, acPageHeader, , , 10, 20, 2000, 400)
 c.Name = "label"
 
 Set c = CreateReportControl("NomDELEtat", acTextBox, acPageHeader, , , 2200, 20, 5000, 400)
 c.Name = "texteEntete"
 
 Set c = CreateReportControl("NomDELEtat", acTextBox, acDetail, , "", 0, 0, 5000, 500)
 c.Name = "texteDetails"
 
 Set c = CreateReportControl("NomDELEtat", acTextBox, acPageFooter, , "", 200, 0, 4000, 200)
 c.Name = "texteBasDePage"
 
 DoCmd.Save acReport, "NomDELEtat"
 
 Rem *** Modification des proprietes des controles ***
 Set r = Reports("NomDELEtat")
 r!Label.Caption = "Ceci est l'entete"
 r!Label.FontSize = 12
 r!Label.FontBold = True
 r!TexteEntete.FontSize = 12
 
 r!TexteDetails.ControlSource = "champ1"
 
 r.PageHeader = 0
 r.PageFooter = 0
 
 r.Détail.Height = 200
 r.ZoneEntêtePage.Height = 400
 r.ZonePiedPage.Height = 500
 
 DoCmd.Save acReport, "NomDELEtat"
 DoCmd.Close acReport, "NomDELEtat", acSaveYes
 
End Sub

[Ric21]

Bonjour Helas

Merci pour le code que je vais tenter de déchiffer (je ne suis pas fortiche)

J'ai résolut le problème par une création de chaque état pour cette application

Mais j'ai d'autres projets en cours, donc je garde le code très précieusement.

@ +
Ric21