Discussion :

[pascalito]

Bonsoir,

j'ai mis en place une table avec un etat et un formulaire. La table me permet de saisir des valeurs afin qu'une image apparaisse. Dans le même état j'ai deux tableaux distincts sur lequel doit apparaitre une image selon la valeur que j'attribue dans la table. Lorsque je rentre mes valeurs, l'image du moins la flèche apparait mais pas dans le second tableau. Je joins mon fichier, est-ce que quelqu'un peut m'aider ?

Merci, Pascalito

[ClaudeLELOUP]

Bonsoir,

N'aurais-tu pas la possibilité de poster une DB compatible Access2000 ?

[pascalito]

autant pour moi, je renvoie la base dans un format compatible.

Merci Pascalito

[ClaudeLELOUP]

Où se trouve fleche.bmp ?

[ClaudeLELOUP]

Je crois que c'est un problème 2010 --> 2000.

[FreeAccess]

Bonjour,

Il n'y aucun problème de version.....juste une mauvaise utilisation de Select Case ...... / End Select....

Pourquoi mettre des Exit Sub dans ton Select CAse

En faisant cela, dès qu'une condition est rempli alors tu quitte la procédure et donc les autre conditions ne sont pas vérifiées...

[pascalito]

voici le code vba dans l'état où je pense avoir fait une erreur

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
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
Option Compare Database
Option Explicit
 
Private Sub EntêteGroupe0_Format(Cancel As Integer, FormatCount As Integer)
'rendre toutes les flèches invisibles
Me.A.Visible = False
Me.B.Visible = False
Me.C.Visible = False
Me.D.Visible = False
Me.E.Visible = False
Me.F.Visible = False
Me.G.Visible = False
Me.H.Visible = False
Me.I.Visible = False
Me.J.Visible = False
Me.K.Visible = False
Me.L.Visible = False
Me.M.Visible = False
Me.N.Visible = False
'Faire apparaître la flèche qui convient
Select Case Me.Co²
 Case Is < 51
  Me.A.Visible = True
  Exit Sub
 Case Is <= 90
  Me.B.Visible = True
  Exit Sub
 Case Is <= 150
  Me.C.Visible = True
  Exit Sub
 Case Is <= 230
  Me.D.Visible = True
  Exit Sub
 Case Is <= 330
  Me.E.Visible = True
  Exit Sub
 Case Is <= 450
  Me.F.Visible = True
  Exit Sub
 Case Else
  Me.G.Visible = True
  End Select
 
   Select Case Me.GES
 Case Is < 6
  Me.H.Visible = True
   Exit Sub
 Case Is <= 10
  Me.I.Visible = True
  Exit Sub
 Case Is <= 20
  Me.J.Visible = True
  Exit Sub
 Case Is <= 35
  Me.K.Visible = True
  Exit Sub
 Case Is <= 55
  Me.L.Visible = True
  Exit Sub
 Case Is <= 80
  Me.M.Visible = True
  Exit Sub
 Case Else
  Me.N.Visible = True
End Select
End Sub

[ClaudeLELOUP]

Bonsoir FreeAccess,

Je crois que c'est un problème 2010 --> 2000.

qui explique probablement pourquoi je ne parviens pas à visionner sur ma machine.

[pascalito]

en fait lorsque j'enlève le "end sub" à la fin et que je lance l'état, il me dit qu'un "end sub" est attendu à la fin !

j'comprend pas !

[FreeAccess]

Erreur de ma part.....il faut bien sûr lire "Exit Sub"..

[pascalito]

Lorsque je rajoute "exit sub" j'ai toujours un message d'erreur, regardez la pièce jointe

[FreeAccess]

Heu.....il faut tout lire.....

Dans ton Select Case, tu n'as pas besoin de Exit Sub..

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
Select Case Me.Co²
 Case Is < 51
  Me.A.Visible = True
 Case Is <= 90
  Me.B.Visible = True
  Case Is <= 150
  Me.C.Visible = True
   Case Is <= 230
  Me.D.Visible = True
 Case Is <= 330
  Me.E.Visible = True
 Case Is <= 450
  Me.F.Visible = True
 Case Else
  Me.G.Visible = True
  End Select

[pascalito]

Tip Top merci pour votre aide ça fonctionne