Discussion :

[JulienTough]

Bonjour

j'ai fabriqué un état à partir d'une table et donc insère directement les champs sous forme d'étiquette.
ces champs ont pour valeur 0 ou 1 mais j'aimerais que sur l'état ça soit oui ou non.
j'ai essayé de faire

Code :

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

1
2
3
4
5
6
7
8
9
 
'pour cacher l'ancienne étiquette
Me.forme_habitat_zone_urbaines.Visible = False 
If Me.forme_habitat_zone_urbaines = "0" Then
'urbaines est la nouvelle étiquette que je veux afficher
Me.Urbaines = "Non"
Else
Me.Urbaines = "Oui"
End If

mais ça ne marche pas access me dit qu'il y a une expression sans paramètre.
je me doute que c'est le test mais je n'arrive pas à corriger le problème même en essayant avec caption.

merci

[bruno28]

Bonjour

j'ai fabriqué un état à partir d'une table et donc insère directement les champs sous forme d'étiquette.
ces champs ont pour valeur 0 ou 1 mais j'aimerais que sur l'état ça soit oui ou non.
j'ai essayé de faire

Code :

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

1
2
3
4
5
6
7
8
9
 
'pour cacher l'ancienne étiquette
Me.forme_habitat_zone_urbaines.Visible = False 
If Me.forme_habitat_zone_urbaines = "0" Then
'urbaines est la nouvelle étiquette que je veux afficher
Me.Urbaines = "Non"
Else
Me.Urbaines = "Oui"
End If

mais ça ne marche pas access me dit qu'il y a une expression sans paramètre.
je me doute que c'est le test mais je n'arrive pas à corriger le problème même en essayant avec caption.

merci

Ce sont bien des étiquettes, pas des zones de texte?

Si ce sont des étiquettes, met

Code :

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

1
2
3
4
5
6
7
 
If Me.forme_habitat_zone_urbaines.Caption = "0" Then
'urbaines est la nouvelle étiquette que je veux afficher
Me.Urbaines.Caption = "Non"
Else
Me.Urbaines.Caption = "Oui"
End If

Ca marche

[JulienTough]

Bonjour

effectivement ce sont des étiquettes et j'avais déjà essayé ce que tu m'as dit. lorsqu'on fait cela le programme renvoie le message d'erreur suivant :
erreur d'exécution '438'
Propriété ou méthode non gérée par cet objet
en fait quand on écrit la ligne Caption devrait apparaître dans la liste de sélection, or ce n'est pas le cas.
cela vient-il du fait que je travaille sur un état et non un formulaire.

merci

[bruno28]

Remplace donc tes étiquettes par des zones de texte et met .Value

[JulienTough]

je dois remplacer quelles étiquette par des zones de textes :
j'ai essayé celle sur laquelle je fais le test mais de la même façon qu'il refusait .caption il refuse .value

[JulienTough]

bonjour

j'ai essayé de faire le test sur la valeur de tla table dont était issue l'étiquette :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
Option Compare Database
 
Private Sub Report_Open()
 
Me.forme_habitat_zone_urbaines.Visible = False
If Tables![export_tro]![forme_habitat_zone_urbaines] = "0" Then
Me.Urbaines.Caption = "Non"
Else
Me.Urbaines.Caption = "Oui"
End If
 
End Sub

mais là Access ne me donne plus de message d'erreur mais ne m'affiche pas nom plus le sous-état dans la visualisation

merci

[bruno28]

bonjour

j'ai essayé de faire le test sur la valeur de tla table dont était issue l'étiquette :

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
 
Option Compare Database
 
Private Sub Report_Open()
 
Me.forme_habitat_zone_urbaines.Visible = False
If Tables![export_tro]![forme_habitat_zone_urbaines] = "0" Then
Me.Urbaines.Caption = "Non"
Else
Me.Urbaines.Caption = "Oui"
End If
 
Tu ne peut pas tester une table comme ça "If Tables![export...."
 
L'autre idée. Peut être que tu peut lancer l'exectution d'une requête avant l'ouverture de ton état. Du créé un autre champs à ta table. Ta nouvelle requête de mise à jour rempli ton nouveau champs avec oui ou non en fonction de ta valeur. Dans ton état, tu ne prend en comptes que ton nouveau champs.
Sinon,je peut pas t'aider.
 
End Sub

mais là Access ne me donne plus de message d'erreur mais ne m'affiche pas nom plus le sous-état dans la visualisation

merci

[JulienTough]

euh j'ai pas bien compris la réponse
si j'ai dit qu'Access ne mettait pas de message d'erreur c'est parce qu'il ne fait rien du tout, d'ailleurs quand j'essaye d'ouvrir le sous-état tout seul ça ne marche pas

[JulienTough]

bonjour

pour plus de précision, avec ce code :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
Private Sub Report_Open(Cancel As Integer)
 
Me.forme_habitat_zone_urbaines.Visible = False
If Tables![export_tro]![forme_habitat_zone_urbaines] = "0" Then
Me.Urbaines.Caption = "Non"
Else
Me.Urbaines.Caption = "Oui"
End If
 
End Sub

Acces me met toujours objet requis dans la ligne du test

merci