Problème de formulaire avec des If-Else

**MasterChief78** · 17/08/2006, 22h28

Bonjour,
alors mon problème est le suivant. Dans mon formulaire, j'ai une liste de choix, et j'aimerais que lorsque l'on choisit un choix dans cette liste, le champs d'a coté se remplisse d'un code, correspondant a ce choix :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 Private Sub NomModule_AfterUpdate()
 
If NomModule = "ABCD" Then
    CodeModule = 234567
Else
    CodeModule = Null
 
End If
If [NomModule] = "XXXX" Then
    [CodeModule] = 345234
Else
    CodeModule = Null
End If

J'ai essayer avec un elseif, mais sa ne marche pas...

**Dolphy35** · 17/08/2006, 22h40

Salut et bienvenue sur le forum

,

Pense à mettre ton code dans les balises

.

Je ne comprends pas très bien.

En gros tu veux que suivant la sélection de ta liste un champs du Form se remplisse.

Ou ça bloque dans ton code.

As-tu essyé un Select Case.

Dolphy

**Faw** · 17/08/2006, 22h40

Salut, et comme ça

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub NomModule_AfterUpdate()
 
If NomModule = "ABCD" Then
CodeModule = 234567
Else
If [NomModule] = "XXXX" Then
[CodeModule] = 345234
Else
CodeModule = Null
End If
end if
end sub

ou

Code :

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

1
2
3
4
5
6
7
8
select case NomModule
case "ABCD" 
CodeModule = 234567
case "XXXX" 
CodeModule = 345234
case else
CodeModule = Null
end select

Merci de penser aux balises de code à l'avenir

EDIT:
Salut Dolphy

, c'est ce qu'on appelle un téléscopage.

**MasterChief78** · 17/08/2006, 22h42

Oui c'est ça. En sélectionnant un nom de module, je veut que le champs codemodule se remplisse tout seul.
Pour le select case, j'ai essayer, mais j'ai pas réussi, faute de compréhension...

EDIT: jvien d'essayer ton code, et il ne marche pas. Après jsui peut etre trop débutant pour le copier correctement lol.
Désolé pour les balises, j'ai pas chercher assez longtemp le bouton

**vador972** · 17/08/2006, 22h44

Je suppose que ta liste de choix est basée sur une table du genre :
Table(ID,Nom) ou id est une clé primaire...

Sache que ta liste de choix renvoie la valeur de la première colonne de la table source, dans mon exemple 'ID'.

Essai donc ça :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
If NomDeLaListe.Column(1) = "ABCD" Then
    CodeModule = 234567
Else
    CodeModule = Null
 
End If
If NomDeLaListe.Column(1) = "XXXX" Then
    [CodeModule] = 345234
Else
    CodeModule = Null
End If

l'indice de 'column()' commence à 0 pour la colonne 1 de la table
'column(1)' renvoi donc la colonne 2 de la table

bon courage

**MasterChief78** · 17/08/2006, 22h55

Access ne comprend pas column, Message :
Erreur de compilation:
Membre de méthode ou de données introuvable

**Dolphy35** · 17/08/2006, 23h06

Tu as mis quoi comme code exactement ?

montre nous ton code s'il te plaît

Dolphy

**Faw** · 18/08/2006, 01h49

Comme le suppose vador972, c'est peut-être un problème de colonne liée.
si tu fais

Code :

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

1
2
3
Private Sub NomModule_AfterUpdate()
msgbox me.NomModule
end sub

ça donne quoi?

**MasterChief78** · 18/08/2006, 12h54

Ton code m'ouvre une boite de message avec le code correspondant. Il m'affiche le bon code donc c'est cool merci. Comment je fais pour lui dire de mettre ça dans le champs codemodule??

**Dolphy35** · 18/08/2006, 17h21

Salut,

Avec le code de Faw, la boîte de message te renvoi un code que tu veux mettre dans un contrôle :

Code :

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

1
2
3
Private Sub NomModule_AfterUpdate()
Me.CodeModule = Me.NomModule
End sub

Dolphy

**MasterChief78** · 18/08/2006, 17h46

Envoyé par Dolphy35

Salut,

Avec le code de Faw, la boîte de message te renvoi un code que tu veux mettre dans un contrôle :

Code :

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

1
2
3
Private Sub NomModule_AfterUpdate()
Me.CodeModule = Me.NomModule
End sub

Dolphy

Bah ouai mais là, dans codemodule, c'est le nom du module que je viens de sélectionner qui s'affiche lol.

**Dolphy35** · 18/08/2006, 17h50

Envoyé par MasterChief78

Bah ouai mais là, dans codemodule, c'est le nom du module que je viens de sélectionner qui s'affiche lol.

Je ne comprend plus rien, plus tu as dis que c'était le bon code qui s'affichait dans la boîte

Envoyé par MasterChief78

Ton code m'ouvre une boite de message avec le code correspondant. Il m'affiche le bon code donc c'est cool merci. Comment je fais pour lui dire de mettre ça dans le champs codemodule??

Peux-tu être plus clair.

Dolphy

**MasterChief78** · 18/08/2006, 18h16

C'est bien le bon code correspondant qui se met dans la boite de message.
Mais avec ton code, bah quand je rentre le NomModule, bah dans CodeModule, il met la valeur du NomModule que je vient de rentrer.

**Faw** · 18/08/2006, 20h08

Envoyé par Dolphy35

Tu as mis quoi comme code exactement ?

montre nous ton code s'il te plaît

Dolphy

je réitère la demande...+ une description de ta liste.

Pas de help!! ni de up stp. merci

EDIT:
Je continue de penser que c'est un problème de colonne liée qui est à 0cm de
largeur.
essaye une affectation de la colonne

Code :

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

1
2
3
Private Sub NomModule_AfterUpdate()
Me.CodeModule = Me.NomModule.Column(1)
End sub

et column est bien reconnu si c'est bien une combobox dont tu parles.

**MasterChief78** · 19/08/2006, 11h20

Comme code, bah j'ai mit le tien mais il ne fonctionne pas.
Ma table est juste constitué de deux champs : CodeModule et NomModule

**MasterChief78** · 28/08/2006, 14h18

Après de nombreuses modifications en tout genre et un peu au hasard je n'y arrive toujours pas. Personne n'a d'autre idée??

**Dolphy35** · 28/08/2006, 15h09

Salut,

Si tu veux que l'on t'aide il va falloire être plus précis.

Montre nous ton code et dis nous ce que tu veux faire réellement et où ton code ne fonctionne pas.

Là on est tous perdus

Dolphy

**MasterChief78** · 28/08/2006, 19h48

Code :

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

1
2
3
Private Sub NomModule_AfterUpdate()
Me.CodeModule = Me.NomModule.Column(0)
End Sub

Voila pour mon code. Pour etre plus préci? Bah jsai pas. J'ai une table a deux colonne. Je veut que dans mon form, lorsque je sélectionne le nom du module dans une liste déroulant, le champs CodeModule du formulaire se remplisse automatiquement de la valeur qui correspond (cette valeur étant déjà rentré dans la table!)

Voila, et merci pour votre aide!

**LE VIEUX** · 28/08/2006, 20h01

J'ai essayé ton code marche si tu supprimes les Else

cela suppose que tu a une seule table, que tu as entrées tes valeurs dans ta combo manuellement et que tu n'as qu'un seul formulaire......

**MasterChief78** · 28/08/2006, 23h59

Où tu vois un Else?

Problème de formulaire avec des If-Else

Access

Discussions similaires

Partager

Partager