Discussion :

[mosquitout]

Bonjour,

Dans mon datareport en section detail (section1), j'ai 4 zones text1, text2, text3 et text4.
J'alimente mon datareport avec un recordset.
Dans un cas normal, toutes mes zones sont renseignées et ça ne pose pas de pb. Mais je but sur la gestion de la zone détail en cas d'absence de donnée !
c.a.d, j'ai le code suivant

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
        With DRLfichecontact.Sections("Section1").Controls
            If Rst02.BOF <> True And Rst02.EOF <> True Then  'Test si il y a des données
               .Item("Text1").DataField = Rst02.Fields("DFtype").Name
               .Item("Text2").DataField = Rst02.Fields("DFdate").Name
               .Item("Text3").DataField = Rst02.Fields("DFnom1").Name
               .Item("Text4").DataField = Rst02.Fields("DFref").Name
            Else
               .Item("Text1").DataField = "type"
               .Item("Text2").DataField = "date"
               .Item("Text3").DataField = "Intitule"
               .Item("Text4").DataField = "Ref"
            End If
        End With

Dans le cas ou je n'ai pas de données pour renseigner la partie détail, j'ai tenté ici de faire apparaitre des constantes (valeurs bidon). Mais ca ne marche pas et j'ai le message "Champ de données 'date' de la propriete Datafield introuvable" (le champ 'Text2' est le premier sur mon document).

Comment pourrais-je gérer cette situation ? je ne veux rien fficher de particulier si je n'ai pas de données mais je dois à priori quand même gérer l'alimentation des zones Text.

Merci pour vos conseils

[paulvb]

Salut je sais que ça fait un bail mais je poste quand même la réponse pour une autre personnes.

Remplace .Name par .Caption
Exemple:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
       With DRLfichecontact.Sections("Section1").Controls
            If Rst02.BOF <> True And Rst02.EOF <> True Then  'Test si il y a des données
               .Item("Text1").DataField = Rst02.Fields("DFtype").Name
               .Item("Text2").DataField = Rst02.Fields("DFdate").Name
               .Item("Text3").DataField = Rst02.Fields("DFnom1").Name
               .Item("Text4").DataField = Rst02.Fields("DFref").Name
            Else
               .Item("Text1").Caption = "type"
               .Item("Text2").Caption = "date"
               .Item("Text3").Caption = "Intitule"
               .Item("Text4").Caption = "Ref"
            End If
        End With