problème de syntaxe pour select case

Bonjour,

J'ai crée une base de données access pour le service du personnel dans lequel je travaille.
Je voudrais créer un champ calculé relatif à l'ancienneté.
Par exemple si l'ancienneté est de 5 ans, je voudrais que dans le champ s'affiche 3%.
Pour se faire je suis allée créer un code avec le programme select case. Mais aucune réaction.

Voilà ce que j'ai :

Code:

---

1 2 3 4 5 6 7 8 9

Private Sub Texte134_BeforeUpdate(Cancel As Integer) Sub Texte134() Select Case Texte65 Case 1, 2, 3, 4, 5, 6, 8, 9, 10 MsgBox "1" Case Else MsgBox "9" End Select End Sub

---

C'est quoi la ligne

Code:

---

1 2	Sub Texte134()

---

juste avant le select ?

je pense sinon que ton texte65 renvoi un texte et non un chiffre
donc dans ton select mets plutôt

Code:

---

1 2	case "1", "2","3"...

---

Bonjour et bienvenue sur nos forums...

Merci de penser à mettre des balises autour du code.

Je suppose qu'il n'y aura pas que deux cas dans le Select Case, sinon un If... Else... End If suffit.

Sache que tu peux aussi utiliser la syntaxe suivante

Code:

---

1 2 3 4 5 6

Select Case Texte65 * 1 Case Is <= 10 MsgBox 1 Case Else MsgBox 9 End Select

---

qui t'évite n'énumérer toutes les possibilités du premier Case.

Il faut aussi, comme le souligne Taoueret, supprimer la ligne

Code:

---

Sub Texte134()

---

qui te donne une erreur à la compilation...

salut,
l'utilisation dun select case en basic est plus performant qu'un If si le test est complexe ce qui est le cas.

Une zone de texte si elle n'est pas lié un une zone numérique d'une table est une chaine, l'instruction val t'assurera une intervalle correcte.

Code:

---

1 2 3 4 5 6

Select Case val(Texte65) Case 1 To 10 MsgBox 1 Case Else MsgBox 9 End Select

---

Bonsoir Jack78960,

Juste pour le fun, je serais curieux de tester la performance de ton

Code:

---

Case 1 To 10

---

par rapport à mon

Code:

---

Case Is <= 10

---

ou par rapport à un

Code:

---

1 2 3 4 5

If Val(Texte65) <10 then ' ou Text65 * 1 (je ne vois pas trop la différence) Msgbox 1 Else Msgbox 9 End If

---

;)

salut à tous,

le select case n'est qu'une facilité d'écriture pour les langages évolués une fois converti en instruction machine on retrouve des comparaisons suivi de sauts.

il est donc logique que:

Code:

---

Case 1 To 10

---

soit plus "long" qu'un

Code:

---

Case Is <= 10

---

vu qu'il n'y aura qu'un test de majoration alors que l'autre aura un test aussi de minoration.

il ne faut pas oublier en plus que le code est optimisé ensuite donc il ne serait pas surprenant que:
Case 1, 2, 3, 4, 5, 6, 8, 9, 10
Case 1 to 10
If ...>=1 and ...<=10 then
donne les même instructions machine.

pour revenir au sujet il n'existe pas que IF, SELECT CASE qui peuvent convenir: il y a aussi IIF(), SWITCH() que tu peux utiliser bddaccess directement comme formule dans ton controle et ainsi te passer de VB.

;)

Merci pour vos suggestions, j'ai modifié et maintenant entre 2 traits j'ai ça :

Code:

---

1 2 3 4 5 6 7 8 9 10

Private Sub Texte65_BeforeUpdate(Cancel As Integer) Select Case Val(Texte65) Case 1 To 10 MsgBox 1 Case Else MsgBox 9 End Select     End Sub

---

Le problème c'est que mon étiquette reste vide!!
Le texte 65 est en fait un champ calculé, est-ce important?

Merci de penser aux balises de code...

De quelle étiquette parles-tu?
Pourquoi gérer l'évènement BeforeUpdate? En général, on ne gère cet évènement que lorsque l'on veut pouvoir l'annuler suite à un contrôle de saisie...

Le code que tu fournis ne fait qu'afficher un message en fonction d'une valeur saisie ou calculée dans le Texte65.

Si tu veux affecter le texte d'une étiquette, utilise ceci

Code:

---

1 2 3 4 5 6 7 8

Private Sub Texte65_BeforeUpdate(Cancel As Integer) Select Case Val(Texte65) Case 1 To 10 lblEtiquette.Caption= 1 Case Else lblEtiquette.Caption = 9 End Select End Sub

---

en remplaçant lblEtiquette par le nom de l'étiquette que tu veux modifier.

Pour rappel : j'ai un champ avec la date d'entrée du salarié
un autre avec son ancienneté : =Ent((Date()-[Année d'entrée])/365,25)

à partir de ce champ, qui m'indique donc le nombre d'années d'ancienneté, je veux en créer un autre qui correspond au pourcentage d'ancienneté. Ainsi, à titre d'exemple, si mon champ calculé (texte65) est égal à 1, le nouveau champ doit indiquer 3%; si texte65=5 alors 12%;si texte65=10 alors 14%....

la formule ne réagit toujours pas

Hum... En fait, à la relecture, c'est normal.

Puisque tu as un champ calculé, il n'y a pas de survenance de l'évènement BeforeUpdate.

C'est sur l'évènement Sur activation (Form_Current en VBA) que tu dois placer ton code, mais, à mon avis, tu devras calculer la formule en reprenant la valeur du champ Date d'entrée.



Ou alors, le mieux, à mon avis, tu suis l'idée émise par Vodiem de placer plutôt une formule dans le contrôle comme tu l'as fait pour Texte65...

Merci

Je connais pas Iif et switch.
J'avais essayé de rentrer un "si" incrémenté comme on peut le faire dans excel mais ça ne fonctionnait pas.
Est-ce que ce sont les équivalents?

Dans les versions françaises d'Access, il faut utiliser la fonction VraiFaux(Condition;Valeur si VRAI;Valeur si Faux) en lieu et place de Iif.

Vu les plages que tu énonces, je pense que c'est la fonction qui convient...

Tu peux aussi les imbriquer, comme la fonction SI de Excel. L'assistant Fonction peut t'aider.

=VraiFaux("1">=[Texte65]>"3";"7%";"0%")

Voilà un essai, mon champ reste à 0% quelle que soit la date d'entrée....

Il ne comprend pas le > à et <à

j'ai essayé avec between and et ça ne marche pas.
Comment puis-je lui faire comprendre qu'il s'agit intervalle??

Essaie de mettre plutôt

Code:

---

1 2	=VraiFaux(1>=[Texte65]>3;"7%";"0%")

---

bonsoir,
juste pour essayer, si j'ai bien compris, car j'ai lu un peu vite et c'est tard
excusez si je suis à côté.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19

Private Sub Année_entrée_BeforeUpdate(Cancel As Integer)   Me.Ancienneté = Round(((Date - Année_entrée) / 365.25))   Select Case Me.Ancienneté Case 1 Me.Pourcentage_ancienneté = "3%" Case 5 Me.Pourcentage_ancienneté = "12%" Case 10 Me.Pourcentage_ancienneté = "14%" Case Else Me.Pourcentage_ancienneté = "" End Select         End Sub

---

base test jointe :

Merci pour votre aide mais même en enlevant les guillemets, Taoueret, ça ne fonctionne pas.

Est-ce que qqun a une idée??

Merci pour votre aide
Taoueret : même en enlevantles guillemets, ça ne fonctionne pas

Le vieux : j'ai déjà essayé ce genre de formule; le souci c'est que mais dates d'entrée sont déjà dans une table et que l'ancienneté est calculée dans le champ.

Est-ce que qqun a une autre idée?,

=VraiFaux(1<=[Ancienneté]<3;"7%";VraiFaux(3<=[Ancienneté]<5;"10%";"0%"))
Voilà un nouvel essai non concluant!!

Ancienneté est un champ calculé, pensez-vous que cela ait une incidence??:evilred:

bonjour,
alors c'est çà :
a essayer il y a une table avec les dates, une requête avec un champ qui calcule l'ancienneté et un avec l'accès à une fonction qui donne le %.
on avance....
à+

Excuse moi mais si je crée un formulaire à partir de ta requête il bloque!!
Ne crois tu pas qu'il suffit d'une formule dans mon champ pourcentage? du style vraifraux???