Ajouter zone de texte dans un formulaire continu

**nadia68** · 01/12/2006, 08h59

salut
j'ai cree un formulaire continu a partir de la table MATIERE où le champ matier
(type de donnees "texte") avec liste de valeurs (maths, science.....ext)
j'ai ajoute a ce formulaire zone de texte où je veux que cette derniere affiche MT si zone de texte (matier) est maths et affiche SC si zone de texte (matier) est science.......... zone de texte (matiere) et zone de texte ajouter situer dans detail de formulaire!!!!!!!!!! dans propriete de formulaire et dans evenment precisement sur activation j'ai ecrit ce petit programme mais s'a marche pas je ne sais pas pourquoi

Code :

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

1
2
3
4
5
6
7
Private Sub Form_Current()
If Me.matiere.Value = "maths" Then Me.texte65.Value = "MT"
If Me.matiere.Value = "science" Then Me.texte65.Value = "SC"
Exite Sub
End If
End If
End Sub

quand execution zone de texte ajouter affiche que MT

MERCI D'AVANCE et j'espere je trouve une solution chez vous merci

**helas** · 01/12/2006, 09h10

Ce qui est en rouge est en trop, à effacer

Code :

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

1
2
3
4
5
6
7
8
Private Sub Form_Current()
If Me.matiere.Value = "maths" Then Me.texte65.Value = "MT"
If Me.matiere.Value = "science" Then Me.texte65.Value = "SC"
Exite Sub
End If
End If
End Sub

Le bon code

Code :

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

1
2
3
4
5
 
Private Sub Form_Current()
 If Me.matiere.Value = "maths" Then Me.texte65.Value = "MT"
 If Me.matiere.Value = "science" Then Me.texte65.Value = "SC"
End Sub

**lou87** · 01/12/2006, 09h13

Bonjour ^^

As-tu déja essayé :

Code :

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

1
2
3
4
5
Private Sub Form_Current()
If Me.matiere.Value = "maths" Then Me.texte65.Value = "MT"
ElseIf Me.matiere.Value = "science" Then Me.texte65.Value = "SC"
End If
End Sub

Edit : Grillé ?

**helas** · 01/12/2006, 09h14

le meilleur code

Code :

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

1
2
3
4
5
6
7
8
9
 
Private Sub Form_Current()
 Select Case  Me.matiere.Value 
 Case  "maths" 
   Me.texte65.Value = "MT"
 Case  "science" 
   Me.texte65.Value = "SC"
 End Select
End Sub

**Tofalu** · 01/12/2006, 12h03

Pas besoin de vba.

Dans la source de la zone de texte

Code :

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

IIF("[matier]='maths'";"MT";IIF("[matier]='sciences'";"SC;""))

En tout cas, la démarche n'est pas bonne selon moi. Qu'est ce qu'il se passe si demain on te demande gérer la matière Français, il faudra que tu modifies les propriétés du formulaire, c'est pas terrible.

**nadia68** · 01/12/2006, 17h45

j'ai essaye les 4 solutions mais aucunne ma donner resultat

zone de texte est situe dans detail de formulaire en mode continu..........
please trouvez moi une solution

merci

**nadia68** · 01/12/2006, 18h26

pour le code propose par helas et lou87 :
zone de texte affiche que MT pour toute les matieres
et pour le code propose par tofalu :
zone de texte affiche #Nom?

**Arkham46** · 01/12/2006, 18h45

Bjr,

Envoyé par nadia68

et pour le code propose par tofalu :
zone de texte affiche #Nom?

Regarde dans l'aide sur "Source contrôle" pour voir comment définir une expression.
Un indice : il faut ajouter un signe égal devant l'expression

**nadia68** · 01/12/2006, 19h15

j'ai ajouter '=' devant l'expression... message d'erreur "vous avez peut etre entre un operande sans operateur????????????!!!!!!!!!!!!!

**Tofalu** · 01/12/2006, 20h41

En effet, le dernier ; est mal placé

**nadia68** · 02/12/2006, 06h34

desolee j'ai pas compris ce que voulez dire par "En effet, le dernier ; est mal placé"
trouve moi la solution je suis coince....s.v.p

**sasmira_** · 02/12/2006, 10h35

Bonjour Nadia,
Je ne vais sans doute pas répondre à ta question: car si texte65 est une zone de texte indépendante et que tu travailles dans un formulaire continu, pour moi il n'y a pas de solution. Mais je ne suis pas une spécialiste

mais voici ce que je te propose
Tu as une table matière(Identifiant, NomDeLaMatiere, TypeMatière)
Identifiant: numérique
NomDeLaMatiere: texte (math, science, Gymnastique??, etc...)
TypeMatière:texte (SC, MT, GM??,etc...)
Tu crées 2 listes déroulantes basé sur cette table dans ton formulaire continu qui lui est basé sur une autre table qui stoquera l'identifiant de la matière
La première liste déroulera le nom de la matière et la seconde les abréviations

Je ne sais pas si cela peut répondre à ton pb, mais cela aura le mérite de remonter ton post

**nadia68** · 02/12/2006, 20h18

merci, je veux pas toucher la table et je veux faire un programme où zone de texte "independante" affiche selon l'affichage de zone de texte "matiere"

si pas de solution a mon probleme j'ai pas le choix

merci pour 2eme fois

**Arkham46** · 02/12/2006, 21h18

Code :

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

=IIF([matiere]="maths";"MT";IIF([matiere]="sciences";"SC";""))

ou

Code :

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

=PREMVRAI(matiere="maths";"MT";matiere="sciences";"SC";true;"")

La bonne solution est tout de même d'ajouter une table ce lien entre description et abréviation
Ca ne change rien à ce qui existe déjà, ça facilite énormément la maintenance de l'application

**@rkane** · 02/12/2006, 23h47

salut Nadia, essaies ça... j'ai teste ça fonctionne !

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub Matiere_AfterUpdate()
 Select Case Me.Matiere.Value
 Case "maths"
   Me.Texte65.Value = "MT"
 Case "science"
   Me.Texte65.Value = "SC"
 Case "français"
   Me.Texte65.Value = "FR"
 Case "sport"
   Me.Texte65.Value = "SP"
 End Select
End Sub

regardes le fichier joint. et verifies le NOM de tes controles.
par contre si tu travailles sur un form continu ça ne marchera pas correctement... tous les enregistrements prendront la valeur du 1er focus.
Il faut que tu passes par la mise en forme conditionnelle, pour modifier un champ en fonction d'un autre dans un formulaire en continu.
Format==>Mise en forme conditionnelle
Bon courage