récupérer une variable dans un select case

Version imprimable

23/12/2005, 09h35
rob2-9

récupérer une variable dans un select case

Bonjour,
je vous écris car j'ai un gros problème. En ce moment je dois une application pour l'améliorer. Mon problème est que je n'arrive pas récupérer une variable dans un select case.
Par exemple, j'ai 3 cas :
case nouvea, modifier, copier.
Je voudrais attribuer une variable à nouveau et à modifier;
Comment faire ? J'ai essayer plein de trucs mais sans succès.
Est-ce que quelqu'un pourrait m'aider s'il-vous-plaît.
merci
23/12/2005, 09h42
Megaxel

Salut!
Y'a plein de gens prêts à t'aider, ici.
Mais je n'ai vraiment rien compris à ce que tu veux faire...
:D
Si tu pouvais nous expliquer ça mieux...
23/12/2005, 09h46
rob2-9

je vais essayer de faire mieux :oops:
dons ma page de code est divisée en 2 parties, d'un côté dans le load j'ai un select case (nouveau, modifier et copier), de l'autre dans une fonction je dois faire du code en fonction du cas (qui figure dans le select case). je voudrais attribuer une variable selon le cas auquel appartient le client.

J'espère m'être mieux exprimée

Merci de l'aide
23/12/2005, 09h55
Le Pharaon

Montre le code !

voici le code

Code:

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
Public Sub Load
Select Case Action
 
    Case NOUVEAU
       ...
 
 
    Case Modifier
   ...
 
    Case COPY
        ...
end select
 
 
 
Private Function Controle_RepertoireDocClient
sql = "SELECT * FROM Client WHERE IDClient = " & IntClient
Set rs = DE.Cnx.Execute(sql)
 
'Si le cas est nouveau
...
 
 
'Si le cas est modifier
...
 
End Function

23/12/2005, 10h08
jacma
Bonjour
Si j'ai bien compris tu veux qu'au moin un de tes Case du Sélect soit une variable.
Inspires toi du code ci dessous
Code:

1 2 3 4 5 Dim myVar As String myVar = "Bibi" Select Case xxx case myvar ...
Cependant je ne vois pas l'intérêt, puisque le Select Case te permet déà de tester le contenu d'une variable. Ou alors, peut être pour une certaine souplesse?
23/12/2005, 10h13
rob2-9

Je ne vois pas trop comment récupérer la valeur du select case si ma fonction ne se trouve pas dedans.

Avec une variable publique à ta feuille :

Code:

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
 
Public Const NOUVEAU As String = "NOUVEAU"
Public Const MODIFIER As String = "MODIFER"
Public Const COPIE As String = "COPIE"
 
Public sEtat as string 'etat en cours
 
...
 
Public Sub Form_Load
 
    Select Case Action
        Case NOUVEAU
            sEtat = NOUVEAU
            ...
        Case MODIFIER
            sEtat = MODIFIER
            ...
        Case COPIE
            sEtat = COPIE
            ...
    End Select
End Sub
 
Private Function Controle_RepertoireDocClient
sql = "SELECT * FROM Client WHERE IDClient = " & IntClient
Set rs = DE.Cnx.Execute(sql)
 
'Si le cas est nouveau
    If sEtat = NOUVEAU Then
        ....
 
'Si le cas est modifier
...
 
End Function

23/12/2005, 10h22
rob2-9

ok merci beaucoup
je suis en train d'éssayer là mais j'ai un souci avec

Public Const NOUVEAU = "NOUVEAU"
Public const Modifier = "MODIFER"

vb ne ve pa le prendre en compte
23/12/2005, 10h23
jacma

Avec le code, je vois mieux.
Il te suffit d'appeler ta fonction depuis la procédure Load comme suit;

Code:

myVar = Controle_RepertoireDocClient

Tu ajoutes dans ta fonction:

Code:

myTrans = "xxx"

dans chaque item de ton if
ainsi que:

Code:

Controle_RepertoireDocClient = myVar

à la fin de la dite fonction.
Ainsi, quand ta procédure Load appelle la fonction, la procédure renvoit la valeur voulu dans myVar. Et c'est cette dernière qu'il te faut tester dans ton Select Case.
23/12/2005, 10h26
jacma

Citation:

Envoyé par Xo

Avec une variable publique à ta feuille :

Ne vaut-il pas mieux éviter les variables plus ou moins globale autant que faire se peut? :wink:
23/12/2005, 10h31
Amri_Daly

Citation:

Public Sub Load
Select Case Action

Case NOUVEAU
...

Case Modifier
...

Case COPY
...
end select

c'est quoi "Action" une variable ou une propriété ?
de toute façon si elle est visible dans toute la feuille te peut l'utilisé dans ta fonction, si non tu peut la passé comme paramètre à cette dernière :
Private Function Controle_RepertoireDocClient (mAction as [Type de la vriable Action])
23/12/2005, 10h34
rob2-9

merci beaucoup !!!
j'ai une dernière questio avant de tester.
MyTrans veut dire quoi ?

C'est la variable dont il faut renvoyer le contenu. J'aurais pu l'appeler myVar, mais j'ai préféré éviter toute confusion avec la variable dans Load.
N'oublies pas de déclarer les deux variables dans chacune des procédure.
Un dernier point: l'utilisation d'une fonction dans ce cas n'est justifiée que parce que la procédure Load ne peut recevoir d'argument. Sinon, il suffit d'appeler la procédure dans laquelle le SelectCase existe en lui passant un argument. Par exemple:
Code:

1 2 3 4 5 6 7 8 9 10 11 12 Private Sub ProcedureAppel() ... if condition then myVar = xxx call ProcedureSelect(myVar) --- end sub Private Sun ProcedureSelect(myVar) Select Case myVar ... end sub
Notes que là, j'ai utilise le même nom de variable (muVar) dans les deux procédures. Celà n'a aucune importance car étant déclarées chacune dans la procédure qui les contient, elles ont une portée locale.