Discussion :

[marcboucher70]

Je suis à la confection d'un rapport, et j'ai des sections ou j'ai besoin d'un nombre différent de contrôles, j'aimerais créer des textbox en fonction de mes besoins.
J'ai trouver quelques piste avec la fonction "CreateControl", mais il me semble que je ne peux pas l'utilisé à l'ouverture de l'état. Si vous avez un piste à me proposer je suis preneur.
Merci.

Voici le code:

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
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
Option Compare Database
Option Explicit
Dim vrDbRapport As Database, vrSqlEntete As String, vrRcsRapp As Recordset
Dim vrCP As String, opnArg As String, vrEtage As String
Dim vrTxt As Access.TextBox
 
Private Sub Report_Open(Cancel As Integer)
    If IsNull(Me.OpenArgs) Then
            opnArg = InputBox("Ouverture non conforme" & pLgn(1) & "Draccess", , gRdClient)
        Else
            opnArg = Me.OpenArgs
    End If
    '------------------------------------Remplir l 'entête du rapport---------------------------------------------------
    vrSqlEntete = "SELECT Tbl415_PrjtsMandats.IdMdat, Tbl412_PrjtsClients.fPrjtID, Tbl410_Prjts.Prjt_NoClaim, Tbl412_PrjtsClients.Client_Nm, " _
                  & "Tbl412_PrjtsClients.Client_PrNm, Tbl412_PrjtsClients.Client_Adr, Tbl412_PrjtsClients.Client_Ville, Tbl412_PrjtsClients.Client_CdePostal, " _
                  & "Tbl412_PrjtsClients.Client_Tel1 , Tbl412_PrjtsClients.Client_TelCell, Tbl412_PrjtsClients.Client_Dsgntn FROM " _
                  & "(Tbl415_PrjtsMandats INNER JOIN Tbl412_PrjtsClients " _
                  & "ON Tbl415_PrjtsMandats.fIdPrjt = Tbl412_PrjtsClients.fPrjtID) INNER JOIN Tbl410_Prjts ON " _
                  & "Tbl412_PrjtsClients.fPrjtID = Tbl410_Prjts.IdPrjt WHERE IdMdat = '" & opnArg & "' ORDER BY Tbl415_PrjtsMandats.IdMdat"
 
    Set vrDbRapport = CurrentDb()
 
    Set vrRcsRapp = vrDbRapport.OpenRecordset(vrSqlEntete, dbOpenDynaset)
 
        vrCP = Left(vrRcsRapp.Fields("Client_CdePostal"), 3) & " " & Right(vrRcsRapp.Fields("Client_CdePostal"), 3)
 
        With Me.LstClient
            .ColumnCount = 2
            .ColumnWidths = "3500;2000"
            .FontBold = True
            .AddItem (vrRcsRapp.Fields("Client_Dsgntn") & ". " & vrRcsRapp.Fields("Client_Prnm") & " " & vrRcsRapp.Fields("Client_nm")) & "; No Claim : " & vrRcsRapp.Fields("Prjt_NoClaim")
            .AddItem (vrRcsRapp.Fields("Client_Adr"))
            .AddItem (vrRcsRapp.Fields("Client_Ville") & ", Québec")
            .AddItem (vrCP) & "; No Téléphone : " & vrRcsRapp.Fields("Client_Tel1")
        End With
        vrSqlEntete = Empty: Set vrRcsRapp = Nothing
    '_________________________________________________________________________________________________________________________
    '-----------------------------------Remplir les lecture extérieur---------------------------------------------------------
    vrSqlEntete = "SELECT * FROM Tbl600a_FtRappPhychrometrique WHERE fIdMdat = '" & opnArg & "'"
 
    Set vrRcsRapp = vrDbRapport.OpenRecordset(vrSqlEntete, dbOpenDynaset)
 
    With Me.lstLectExt
        .ColumnCount = 2
        .ColumnWidths = "2800;2000"
        .FontBold = True
        .AddItem ("Dade de la prise du test : ") & ";" & vrRcsRapp.Fields("dateLecture")
        .AddItem ("Température extérieur : ") & ";" & vrRcsRapp.Fields("tempExterieur") & "°C"
        .AddItem ("Taux d'humidité extérieur : ") & ";" & vrRcsRapp.Fields("humiditeRelative") & "%"
        .AddItem ("Grain par livre (GPL) : ") & ";" & vrRcsRapp.Fields("temoinGPL")
    End With
    '----------------------------------------------------------------------------------------------------------------------------
        vrEtage = vrRcsRapp.Fields("etageMaison")
        If vrEtage = "1" Then vrEtage = "1er Étage"
        If vrEtage = "2" Then vrEtage = "2iem Étage"
        If vrEtage = "3" Then vrEtage = "Rez chaussé"
        If vrEtage = "4" Then vrEtage = "Sous-sol"
        If vrEtage = "5" Then vrEtage = "Autre"
    '____________________________________________________________________________________________________________________________
    With Me.lstPieceT
        .ColumnCount = 2
        .ColumnWidths = "2500;2400"
        .FontBold = True
        .AddItem ("Pièce témoin : ") & ";" & vrRcsRapp.Fields("temoinPiece") & ", " & vrEtage
        .AddItem ("Température intérieur : ") & ";" & vrRcsRapp.Fields("tempInterieur") & "°C"
        .AddItem ("Taux d'humidité intérieur : ") & ";" & vrRcsRapp.Fields("humiditeInterieur") & "%"
        .AddItem ("Grain par livre (GPL) : ") & ";" & vrRcsRapp.Fields("temoinPieceGPL")
    End With
    '_________________________________________________________________________________________________________________________
    '-----------------------------------Section des matériaux testés----------------------------------------------------------
    Set vrTxt = CreateControl("Tests_psychrometrique", acTextBox, acDetail, , "txtMat")
    '_________________________________________________________________________________________________________________________
    '-----------------------------------Libérer les variable------------------------------------------------------------------
'    vrCP = Empty: Set vrRcsRapp = Nothing: Set vrDbRapport = Nothing
    '_________________________________________________________________________________________________________________________
End Sub

[tee_grandbois]

bonjour,

J'ai trouver quelques piste avec la fonction "CreateControl", mais il me semble que je ne peux pas l'utilisé à l'ouverture de l'état.

si, tu peux l'ouvrir mais uniquement en mode création et de ce fait, les données ne seront pas accessibles.
Ce n'est pas gagné d'avance de créer dynamiquement un rapport. Avant de te lancer dans ce genre de projet vérifies avant si tu ne peux pas créer autant d'états différents que nécessaire ou éventuellement des sous-états.