Discussion :

[bddaccess]

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 :

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

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

[Taoueret]

C'est quoi la ligne

Code :

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

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 :

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

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

[Pierre Fauconnier]

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 :

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

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 :

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

Sub Texte134()

qui te donne une erreur à la compilation...

[Jack78960]

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 :

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

1
2
3
4
5
6
    Select Case val(Texte65)
        Case 1 To 10
            MsgBox 1
        Case Else
            MsgBox 9
    End Select

[Pierre Fauconnier]

Bonsoir Jack78960,

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

Code :

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

Case 1 To 10

par rapport à mon

Code :

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

Case Is <= 10

ou par rapport à un

Code :

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

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

[vodiem]

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 :

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

Case 1 To 10

soit plus "long" qu'un

Code :

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

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.

[bddaccess]

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

Code :

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

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?

[Pierre Fauconnier]

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 :

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

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.

[bddaccess]

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

[Pierre Fauconnier]

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...

[bddaccess]

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?

[bddaccess]

Private Sub Pourcentage_ancienneté_BeforeUpdate(Cancel As Integer)
Select Case [Ancienneté]
Case 1 To 10
MsgBox = "7%"
Case 11 To 20
MsgBox = "10%"
Case Else
MsgBox = "0%"
End Select


End Sub

A votre avis pourquoi ça ne focntionne pas??