Discussion :

[Ninou49000]

Coucou à tous , je tiens à signaler que c'est mon premier post!
Je suis en stage actuellement et mes tuteurs m'ont demandé de renouveler une BDD Access qui est vieille de 1997 , je suis sous Access 2010 à un moment j'essaie de faire un champ déroulant en formulaire tout va bien , je met les information que je veux dedans c'est à dire "thermique" "surface" "rien"
Le problème c'est que après je veux récupérer l'information en VBA pour l'envoyer dans une tuple dans la bdd nommée 'traitement'.
donc je me suis mise en tête de faire une fonction if else etc pour m'occuper de la gestion du panneau déroulant


Je vous le montre ici:

Code :

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

1
2
3
4
5
6
7
If Me.Modifiable184.Value = "Thermique" Then rs!Traitement = "Thermique"
 
If Me.Modifiable184.Value = "Surface" Then rs!Traitement = "Surface"
 
If Me.Modifiable184.Value = "Ther.&Surf." Then rs!Traitement = "Ther.&Surf."
 
If Me.Modifiable184.Value = "Aucun" Then rs!Traitement = "Aucun"

Et ça plante au premier quoi que je fasse si je rajout des else aussi si je rajoute des elseif aussi et les end le vb en veut pas.

Si quelqu'un a une idée de comment m'aider il est le bienvenu !
Merci

[madefemere]

Bonjour,

C'est quoi le "rs" ?

Cordialement.

[Invité]

Bonsoir,

Code :

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

1
2
3
4
5
6
select case ""  & Me.Modifiable184.Value 
     case  "Thermique" : rs!Traitement = "Thermique"
     case  "Surface" : rs!Traitement = "Surface"
     case "Ther.&Surf." : rs!Traitement = "Ther.&Surf."
     case else  :rs!Traitement = "Aucun"
End select

[Ninou49000]

Rs permet le lien à la bdd.
Merci pour la réponse elle a fonctionné !