Discussion :

[jacques4020]

Bonjour,
J'ai un état (rapport) qui s'appelle "Recap Exercices Clos".
J'ai une zone de texte qui s'appelle Étiquette39 et une autre zone de texte qui s'appelle Ordi_Extra

J’insère le code suivant à l'évènement "Ouverture" de l'état.
Lorsque j'exécute et j'affiche le rapport (état), j'ai l'erreur suivante: "Erreur d'exécution 2427 expression sans paramètre" qui se produit à la ligne 8. Car l'instruction de la ligne 7. est vérifiée puisque la zone de texte "Ordi_Extra" reçoit suite un message, la valeur "E" ou la valeur "O"

Code :

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

1
2
3
4
5
6
7
8
9
10
11
1.    If (Me.Ordi_Extra.Enabled = False) Then
2.        Me.Ordi_Extra.Enabled = True
3.    End If
 
4.    If (Me.Ordi_Extra.Value) = "O" Then
5.       Me.Étiquette39.Value = "SERVICE ORDINAIRE"
6.    Else
7.        If (Me.Ordi_Extra.Value = "E") Then
8.           Me.Étiquette39.Value = "SERVICE EXTRAORDINAIRE"
9.        End If
10.  End If

Merci pour votre aide.
Jacques4020

[nico84]

Bonjour,

mettre une majuscule accentuée dans un nom de champ c'est quand même chercher les problèmes...

[jacques4020]

Bonjour NICO84,
J'accepte votre remarque.Ceci étant dit, c'est un programme écrit en version Access 97 dont j'ai hérité. Ensuite je l'ai importé en Access 365.
Merci.

[tee_grandbois]

bonsoir,
une étiquette n' a pas de valeur mais une légende (Caption en anglais) il faut donc écrire:

Code :

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

 Me.Étiquette39.Caption = "SERVICE ORDINAIRE"

d'autre part, concernant la remarque de Nico84, à propos des accents sur les nom d'objets (Étiquette39) : c'est Access qui nomme ainsi les objets de type étiquette créés (pour respecter les règles orthographiques locales françaises)

[jacques4020]

Bonjour tee_grandbois,

Merci pour votre réponse.
Cette réponse ne fonctionne pas car d'après ma discussion de base, j'ai mentionné que Étiquette39 est une zone de texte et non pas un objet de la classe "Etiquette" (Label en anglais).
la propriété "caption" n'est pas disponible pour les objets de type "texte".
J'ai résolu mon problème en déplaçant le code dans l'évènement "Au Formatage" de l'entête Groupe0 de l'état. Ce groupe "EntêteGroupe0" contient l'objet de texte "Étiquette39"

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
Private Sub EntêteGroupe0_Format(Cancel As Integer, FormatCount As Integer)
    If (Me.Ordi_Extra.Enabled = False) Then
        Me.Ordi_Extra.Enabled = True
    End If
 
    If (Me.Ordi_Extra.Value <> "") Then
        If (Me.Ordi_Extra.Value) = "O" Then
            Me.Étiquette39.Value = "SERVICE ORDINAIRE"
        Else
            If (Me.Ordi_Extra.Value = "E") Then
                Me.Étiquette39.Value = "SERVICE EXTRAORDINAIRE"
            End If
        End If
    End If
End Sub

[tee_grandbois]

bonsoir,

j'ai mentionné que Étiquette39 est une zone de texte et non pas un objet de la classe "Etiquette" (Label en anglais).

en effet, je n'ai pas capté en lisant, désolé.
Pense à fermer la discussion avec le bouton: