Discussion :

[TicTac75]

Bonjour à tous,

Lorsque j'ouvre un état (sur le support d'une requete) j'ai un message d'erreur '2427' (expression sans paramètres) (Me.txtNumeroLigne)

En faite le code en VBA ci dessous permet de griser une ligne sur 2 dans l'état (ce qui le rend plus agréable à lire), malheuresement quand l'état ne comporte pas d'enregistrement le message d'erreur apparait

Je n'arrive pas à trouver comment faire (en VBA) pour que lorsque je n'ai pas d'enregistrement, ce dernier saute la partie VBA qui permet de griser les lignes

Code :

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

1
2
3
4
5
6
7
8
Private Sub Détail_Format(Cancel As Integer, FormatCount As Integer)
    ' Appliqué un grisé "1 ligne sur 2" sur la zone de détail
        If (Me.txtNumeroLigne Mod 2) = 0 Then
        Me.Section(acDetail).BackColor = RGB(230, 230, 230) ' Gris clair
    Else
        Me.Section(acDetail).BackColor = RGB(255, 255, 255) ' Blanc
    End If
End Sub

Si quelqu'un peu m'aider ?
Cdlt.

[philben]

bonjour,

je vois 2 solutions.

La première, ne pas ouvrir l'état s'il n'y a pas de données à afficher par l'évènement Nodata :

Code :

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

1
2
3
4
 
Private Sub Report_NoData(Cancel As Integer)
   Cancel = True
End Sub

La deuxième, tester le contenu de <Me.txtNumeroLigne> avec une fonction du style :

Code :

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

1
2
3
4
...
IF NZ(Me.txtNumeroLigne,0) = 0 then exit sub
...

cordialement,

Philippe

[Fifi69]

Troisième solution :
Gérer l'erreur avec "on error goto"

[philben]

Bonjour Fifi69,

Gérer l'erreur avec "on error goto"

d'autant que je ne suis pas sûr que la solution n°2 règle ce type de message d'erreur...

Amicalement,

Philippe