Affichage conditionnel sous Access

**rberniga** · 05/08/2009, 10h12

Bonjour à tous,

J'aurais besoin d'un petit coup de pouce svp.

Je suis en train de travailler sur des formulaires access et je n'arrive à gérer un affichage conditionnel en fonction de la valeur d'une variable dans une liste déroulante.

Voici mon code :

Code :

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

1
2
3
4
5
6
7
8
9
Private Sub Basejour_BeforeUpdate(Cancel As Integer)
If [Principal] = "Evolutif" Then
[Basejour].Visible = True
[DJI].Visible = True
Else
[Basejour].Visible = False
[DJI].Visible = False
End If
End Sub

Code :

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

1
2
3
4
5
6
7
8
9
Private Sub Form_Current()
If [Principal] = "Evolutif" Then
[Basejour].Visible = True
[DJI].Visible = True
Else
[Basejour].Visible = False
[DJI].Visible = False
End If
End Sub

Merci d'avance pour votre aide.

**fgiambelluco** · 05/08/2009, 10h54

Bonjour
Qu'est qui ne marche pas ?

Je ne voit pas à quoi sert le code suivant :

Code :

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

1
2
3
4
5
6
7
8
9
Private Sub Basejour_BeforeUpdate(Cancel As Integer)
If [Principal] = "Evolutif" Then
[Basejour].Visible = True
[DJI].Visible = True
Else
[Basejour].Visible = False
[DJI].Visible = False
End If
End Sub

En effet, Basejour n'intervient pas dans le test, donc il n'y a aucun intéret à gérér cet évenement.

**rberniga** · 05/08/2009, 12h33

Euh oui effectivement çà serait plutôt cela désolé :

Code :

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

1
2
3
4
5
6
7
8
9
10
 
Private Sub Form_Current()
If [Principal] = "Evolutif" Then
Basejour.Visible = True
DJI.Visible = True
Else
Basejour.Visible = False
DJI.Visible = False
End If
End Sub

Code :

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

1
2
3
4
5
6
7
8
9
10
 
Private Sub Principal_AfterUpdate()
If [Principal] = "Evolutif" Then
Basejour.Visible = True
DJI.Visible = True
Else
Basejour.Visible = False
DJI.Visible = False
End If
End Sub

En fait mon basejour et mon DJI reste en permanence invisible (choix par défaut) alors que je souhaiterais qu'ils apparaissent lorque Principal=Evolutif.

Peux-tu m'aider ? Merci

**fgiambelluco** · 05/08/2009, 12h41

Re
Question:
La liste déroulante Principal contient elle plusieurs colonnes dont la première masquée (un ID) ?

Si c'est le cas pour ton test il faut faire référence à la 2ème colonne, donc :

Code :

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

If Me.Principal.column(1) = "Evolutif" Then

Si c'est pas le cas essaye avec la syntaxe suivante :

Code :

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

If Me.Principal = "Evolutif" Then

**rberniga** · 05/08/2009, 13h29

Nan j'ai simplement une colonne de modalités possibles..
En revanche j'ai essayé ta méthode et .. c'est pas mieux

T'aurais une autre idée ?

**fgiambelluco** · 05/08/2009, 13h34

Re
Et en changeant la syntaxe partout ça donne quoi?

Code :

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

1
2
3
4
5
6
7
If Me.Principal = "Evolutif" Then
   me.Basejour.Visible = True
   me.DJI.Visible = True
Else
   me.Basejour.Visible = False
   me.DJI.Visible = False
End If

Edit : as-tu bien respecté la 'casse' pour le test sur 'Evolutif' ?

**rberniga** · 05/08/2009, 13h40

Bien vu mais pas mieux.
Toujours aucun affichage des éléments souhaités..

**fgiambelluco** · 05/08/2009, 13h44

Re
Je fais des essais et je reviens !!

**rberniga** · 05/08/2009, 13h48

Merci beaucoup

**fgiambelluco** · 05/08/2009, 13h55

Re
Les essais sont terminés. Conclusion, ça marche (presque)

Voila ce que j'ai fait
J'ai créé une table avec 3 champs (principal, basejour, dji)
J'ai saisis dans ma table plusieurs enregistrements avec un principal différent: Evolutif, pas evolutif, rien
J'ai créé un formulaire avec les mêmes champs
Ensuite j'ai placé ce code (changement d'enregistrement) :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Private Sub Form_Current()
If Me.principal = "Evolutif" Then
   Me.basejour.Visible = True
   Me.dji.Visible = True
Else
   Me.basejour.Visible = False
   Me.dji.Visible = False
End If
 
 
End Sub

Ca marche bien, sauf pour le premier affiché (d'où le presque).
J'ai testé la mise à jour de la liste aussi, mais il faut déjà que cela fonctionne.

Vérifie que les majuscules et miniscules soient respectées.

**rberniga** · 05/08/2009, 14h57

Ben écoute moi çà ne marche pas une seule fois ..
Est-ce que cela viendrait de ce que je dois afficher par derrière : 2 zones de texte avec leur label ?
Mais même la zone de texte seule (qui correspond aux noms des objets dans le code) ne s'affiche pas.
Je fais un autre essai..

**fgiambelluco** · 05/08/2009, 15h12

Re
Profites en pour vérifier aussi si la propriété Nom de tes zones de texte est correcte, car elle peut être différente du Source Controle.

**rberniga** · 05/08/2009, 15h16

Nan c'est bon, ce sont les mêmes.

**fgiambelluco** · 05/08/2009, 15h37

Re
question bète, mais que j'aurais peut être du poser avant
Quelle est la version ACCESS ?

Si c'est la version 2007, est ce que les macros sont activée ?

**rberniga** · 05/08/2009, 16h21

Mais il n'y a pas de question bête.
Je travaille sous Office 2003 donc çà doit pas être çà..

**rberniga** · 06/08/2009, 09h48

D'autres idées ce matin ? parce que moi je sèche complètement..

Affichage conditionnel sous Access

IHM

Discussions similaires

Partager

Partager